For i = 1 To 1000 Set rng = Cells(WorksheetFunction.Match("a10000", Range("A:A"), 0), 1) Next Debug.Print Timer End Sub ※どちらもエラー処理は入れていません、単純な処理速度比較の為です。 A列のA1～A10000に、a1,a2,・・・a10000 このようにデータを入れて、上記をテス...
・シートの指定方法 ・全シートの「印刷の向き」を「横」に設定します。 ・シート名に"横"と入っているシートだけ「印刷の向き」を「横」に設定します ・シート名に"削除"と入っていたらシートを削除する ・For Eachについて ・ExcelマクロVBA入門の対応ページ 新...
・コレクションの要素数 ・Collectionオブジェクト 第59回.コレクション処理(For Each) ・For Each の構文 ・Exit For ・For Each の使用例 ・RangeオブジェクトのFor Each ・For Each サイト内の参考ページ 同じテーマ「マクロVBA再入門」の記事 第17回.セルにブック・シートを...