ワークシートのすべてのセルを選択して処理をする

2023年9月8日

ワークシートのすべてのセルを選択する

Cellsプロパティを使って、ワークシート上にあるすべてのセルを選択します。

■　コード内を「Wクリック」で選択できます。

Sub サンプル2600()
&lt;pre&gt;&lt;code&gt;Dim WS As Worksheet

Worksheets(&quot;Sheet1&quot;).Cells.Select
MsgBox &quot;すべてのセルを選択しました&quot;&lt;/code&gt;&lt;/pre&gt;
End Sub

Sheet1のすべてのセルを選択します。
Cellsプロパティは、引数を指定しないとすべてのセルを選択します。

Worksheets(&quot;Sheet1&quot;).Cells.Select

■　マクロの実行結果

ワークブック内のすべてのワークシートを選択する

Array関数を使用して、ワークブック内のすべてのワークシートのセルを選択して、指定した色で塗りつぶします。

■　コード内を「Wクリック」で選択できます。

Sub サンプル2605()
&lt;pre&gt;&lt;code&gt;Dim WS As Worksheet

Worksheets(Array(&quot;Sheet1&quot;, &quot;Sheet2&quot;, &quot;Sheet3&quot;)).Select
Cells.Select
Selection.Interior.ColorIndex = 3

Range(&quot;A1&quot;).Select
MsgBox &quot;全セルを塗りつぶし&quot;&lt;/code&gt;&lt;/pre&gt;
End Sub

Array関数で、すべてのワークシートを選択します。

Worksheets(Array(&quot;Sheet1&quot;, &quot;Sheet2&quot;, &quot;Sheet3&quot;)).Select

すべてのセルを選択します。

Cells.Select

背景色を「赤」に設定します。

Selection.Interior.ColorIndex = 3

■　マクロの実行結果

For Each～Nextステートメントによるマクロ

For Each～Nextステートメントを使っても同じ結果になります。

■　コード内を「Wクリック」で選択できます。

Sub サンプル2610()
&lt;pre&gt;&lt;code&gt;Dim WS As Worksheet

For Each WS In Worksheets
    WS.Cells.Interior.ColorIndex = 3
Next WS
MsgBox &quot;すべてのセルを選択しました&quot;&lt;/code&gt;&lt;/pre&gt;
End Sub

以上で「ワークシートのすべてのセルを選択して処理をする」の説明を終わります。