【VBA】セルの値を取得：ループ処理

Excel VBAを使用すると、ワークシートのセルを効率的にループ処理し、それぞれのセルからデータを取得することが可能です。基本的なループ処理の方法と、それを使ったセル値の取得について説明します。

ループ処理でセルの値を取得する基本構造

以下のVBAマクロは、指定された範囲のセルをループし、それぞれのセルの値をイミディエイトウィンドウに出力します。

Sub LoopThroughCells()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Dim i As Integer

' A1からA10までのセルをループ処理
For i = 1 To 10

' セルの値を取得して即時ウィンドウに表示
Debug.Print ws.Cells(i, 1).Value

Next i

End Sub

■コード解説

ワークシートの設定
Dim ws As Worksheetでワークシートオブジェクトを宣言し、Set ws = ThisWorkbook.Sheets("Sheet1")で特定のワークシート（ここでは"Sheet1"）を指定します。
Forループの使用
For i = 1 To 10ループを使用して、1から10までのインデックスを生成します。このインデックスは、セルの行番号を表します。
ws.Cells(i, 1).Valueを使用して、i行目の1列目（A列）のセルの値を取得します。Cellsプロパティは、指定された行と列のセルを参照するために使用されます。
データの出力
Debug.Printステートメントを使用して、取得したセルの値をVBAの即時ウィンドウに出力します。これにより、各セルの内容を確認することができます。

以下のサンプルコードは、Excelシートの特定の範囲内のセルをループ処理し、それぞれのセルの値をイミディエイトウィンドウに出力する方法を示しています。

Sub ProcessCells()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Dim i As Long, j As Long

' A1からC10までの範囲をループ処理
For i = 1 To 10 ' 行のループ

For j = 1 To 3 ' 列のループ (AからC)

Debug.Print ws.Cells(i, j).Value

Next j

Next i

End Sub

■コード解説

ワークシートの設定
処理するワークシートをwsに設定します。
二重Forループ
外側のループ(i)が行を通して進み、内側のループ(j)が列を通して進みます。
ws.Cells(i, j).Valueは、i行j列のセルの値を取得します。

この基本的なループ処理を応用して、さまざまな条件に基づいてセルのデータを処理することができます。
例えば、特定の条件を満たすデータのみを抽出したり、セルのデータに基づいて計算を行ったりすることが可能です。

Excel VBAを使用したセルの値のループ処理は、データの自動化、分析、レポーティングのための強力なツールです。基本的なループ構造をマスターすることで、より複雑なデータ操作も容易に行えるようになります。