VBA：【Excel】シートデータの二次元配列への取込み１（同一ファイル内の場合）
Excelのシートに作ったデータを、二次元配列で取り込みたい時も多いので、そのサンプルコードを載せておきます。
◆二次元配列への取込み
以下のようなシートのデータを配列に取り込むサンプルです。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
Sub 二次元配列への取込み() Dim dataArray() As String '要素数を指定しない' Dim LastRow As Long Dim LastCol As Long Dim i As Long Dim j As Long With Worksheets("データ") '最終行と最終列を指定します。' LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column LastRow = .Cells(Rows.Count, 1).End(xlUp).Row '要素数を再定義します。要素が「0」からスタートするように引き算しています。' ReDim dataArray(LastRow - 2, LastCol - 1) '「データ」シートの情報を配列に取り込みます。' For i = 0 To UBound(dataArray, 1) For j = 0 To UBound(dataArray, 2) dataArray(i, j) = .Cells(i + 2, j + 1) Next j Next i End With Stop MsgBox "完了" End Sub |
