奇数行をExcel VBAで選択する

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2210 ビルド15726.20202 Microsoft Store）

「奇数行全て選択 vba」
という検索でアクセスがありました。

奇数行を選択するサンプルマクロ

以下のExcelマクロを実行すると、1行目から10行目までの奇数行のみが選択されます。

Sub 奇数行を選択する()
　Dim rng As Range

　Dim i As Long
　For i = 1 To 10 Step 2
　　If rng Is Nothing Then
　　　Set rng = Rows(i)
　　Else
　　　Set rng = Union(Rows(i), rng)
　　End If
　Next

　rng.Select
End Sub

RangeオブジェクトのSelectメソッドが、

拙著『理解するExcel VBA／図形操作の基本』の「1-3. ShapesからShapeを1つ取得する」で解説している、ShapeオブジェクトのSelectメソッドのように引数Replaceを指定できたならば、

もっと簡単なコードで書けるのですが、Range.Selectメソッドには引数を指定できません。

そのため、Unionメソッドを使って、

オブジェクト変数rngで参照できる行をFor～Next文の中で順番に増やし、

For i = 1 To 10 Step 2
　Else
　　Set rng = Union(Rows(i), rng)

最後にRange.Selectメソッドで選択するSubプロシージャにしています。

rng.Select

For～Next文に入った最初のみオブジェクト変数rngはNothingで、その状態で「Union(Rows(i), rng)」を実行すると実行時エラーが発生してしまいます。

そのため、

For i = 1 To 10 Step 2
　If rng Is Nothing Then
　　Set rng = Rows(i)
　Else

とIf文を入れています。

理解するExcel VBA／図形操作の基本

伊藤潔人 2021-11-28

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

3年前(2021年4月)の
人気記事

「行・列を表すRange」の記事一覧