Excel VBAを用いてセルの値をループ処理で変数に格納する手順は、データの取得、加工、分析に広く応用されます。基本的なループ構造を使ってワークシートのセルからデータを読み取り、それを変数に格納する方法を説明します。
セルの値をループ処理で変数に格納する方法
１：ワークシートの準備
データが格納されているワークシートを特定します。
Sub StoreDataInVariables()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
ws変数を使用して「Sheet1」という名前のシートを指定しています。
２：変数の宣言と初期化
必要なデータ型に応じた変数を宣言し、初期化します。ここでは、例として文字列型の変数を用いることにします。
Dim cellValue As String
Dim i As Long
３：ループ処理でのデータ取得
特定の範囲または条件に基づいてデータを取得します。例として、A列の1行目から10行目までのデータを取得します。
For i = 1 To 10
cellValue = ws.Cells(i, 1).Value ' A列のi行目のデータを取得
Debug.Print cellValue ' 取得したデータを即時ウィンドウに表示
Next i
End Sub
■コード解説
- ループカウンタの設定
For i = 1 To 10は、1から10までの数値を生成し、それによってループを制御します。 - セルの値の取得
ws.Cells(i, 1).Valueを使用して、i行目の1列目（A列）のセルの値を取得し、cellValue変数に格納します。 - データの出力
Debug.Print cellValueで、取得したセルの値をVBAの即時ウィンドウに出力します。これにより、ループ中に取得した各セルのデータを確認できます。
まとめ
Excel VBAを使用したセルの値のループ処理と変数への格納は、データの一時的な保存や加工に非常に便利です。この方法を理解しておくことで、データの取り扱いがより柔軟かつ効率的に行えるようになります。プログラムの応用範囲を広げ、複雑なデータ操作を簡単に実行するための基盤となります。