【VBA】二次元配列の一部を抽出する方法

今回はVBAマクロで二次元配列に格納したデータの一部を抽出する方法を紹介します。

うめ

二次元配列を使うと処理速度が速くなるので便利ですよー！

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

完成イメージ
コードはこちら
コードの解説
まとめ

完成イメージ

まずはこのようなデータを二次元配列に格納。

名前データは「テストデータ・ジェネレータ」からお借りしています。

二次元配列から「No」、「名前」、「生年月日」だけを抜き出してSheet2に設定する処理になります。

コードはこちら

Sub sample()

    Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1")
    Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")
      
    'Sheet1のデータを二次元配列に格納
    Dim arr() As Variant: arr = ws1.Range("A1").CurrentRegion
    
    '必要なデータを抽出
    Dim no() As Variant: no = WorksheetFunction.Index(arr, 0, 1) 'No
    Dim name() As Variant: name = WorksheetFunction.Index(arr, 0, 2) '名前
    Dim code() As Variant: code = WorksheetFunction.Index(arr, 0, 5) '生年月日
    
    'Sheet2にデータをセット
    With ws2
        .Range("A1").Resize(UBound(no, 1), UBound(no, 2)) = no 'No
        .Range("B1").Resize(UBound(name, 1), UBound(name, 2)) = name '名前
        .Range("C1").Resize(UBound(code, 1), UBound(code, 2)) = code '生年月日
    End With

End Sub

Sub sample()

Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1")

Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")

'Sheet1のデータを二次元配列に格納

Dim arr() As Variant: arr = ws1.Range("A1").CurrentRegion

'必要なデータを抽出

Dim no() As Variant: no = WorksheetFunction.Index(arr, 0, 1) 'No

Dim name() As Variant: name = WorksheetFunction.Index(arr, 0, 2) '名前

Dim code() As Variant: code = WorksheetFunction.Index(arr, 0, 5) '生年月日

'Sheet2にデータをセット

With ws2

.Range("A1").Resize(UBound(no, 1), UBound(no, 2)) = no 'No

.Range("B1").Resize(UBound(name, 1), UBound(name, 2)) = name '名前

.Range("C1").Resize(UBound(code, 1), UBound(code, 2)) = code '生年月日

End With

End Sub

コードの解説

最初に7行目のコードでSheet1の表全体をarr配列に格納します。

Dim arr() As Variant: arr = ws1.Range("A1").CurrentRegion

1	Dim arr() As Variant: arr = ws1.Range("A1").CurrentRegion

10～12行目の「WorksheetFunction.Index(配列, 行番号,列番号)」を使用すると指定した配列から該当列のデータをまるごと抽出できます。

Dim no() As Variant: no = WorksheetFunction.Index(arr, 0, 1)

1	Dim no() As Variant: no = WorksheetFunction.Index(arr, 0, 1)

最後に配列の最大範囲に調整してSheet2に設定します。

With ws2
　　.Range("A1").Resize(UBound(no, 1), UBound(no, 2)) = no 'No
　　.Range("B1").Resize(UBound(name, 1), UBound(name, 2)) = name '名前
　　.Range("C1").Resize(UBound(code, 1), UBound(code, 2)) = code '生年月日
End With

With ws2