VBAで2次元配列をマスターする：データの効率的な管理と操作方法

VBAで複雑なデータを扱う際、2次元配列はどうやって使うんだろう…
そんな疑問を持っていませんか？

お悩みポイント

• データをExcelシートのように整理して管理したい
• 2次元配列の基本的な概念を理解したい
• VBA初心者でも簡単に2次元配列を使いこなしたい

この記事では、VBAにおける「2次元配列」を使ってデータを効率的に管理する方法を詳しく解説します。

2次元配列を使うことで、複雑なデータ構造をシンプルに扱い、プログラムの効率性を大幅に向上させることができます。

この記事では、2次元配列の基本的な概念からその使い方、さらに配列のデータをセルに貼り付ける方法まで詳しく解説します。

使用例もすべてコピペして実行できるので、ぜひ最後までご覧いただき、実践してみてください。

そもそも配列とは？という方は、そちらを解説した記事もありますので是非ご覧ください。

VBA 配列の基本：宣言方法と使用方法の概念を解説

ループ処理を使ってセルにデータを転記していたけれど、データが増えると動作が遅くなって困ったことはありませんか？ お悩みポイント 複数のデータをまとめて管理する方法を知りたい 配列の基本的な概念を理解したい VBA初心者でも簡単に配列を使いこ...

zangyo-free.com

2024.09.14

【　この記事の概要　】

この記事でできるようになること

この記事を読むことで、以下のことができるようになります。

2次元配列の基本について

2次元配列とは、行と列の両方にインデックスを持つ配列のことです。

Excelのシートのように、行と列でデータを整理するのに適しています。

2次元配列を使うことで、複数のデータセットを効率的に管理でき、VBAのプログラムの柔軟性が向上します。

グリッドによる2次元配列の視覚的な説明

2次元配列は、Excelシートのように行と列でデータを整理します。
以下のように考えると理解しやすいでしょう。

上記の例では、3行4列のデータがあり、それぞれの数字が配列の要素に対応します。
VBAでこのデータを扱う場合、myArray(1, 1)は1に、myArray(3, 4)は12に対応します。
行と列のインデックスを使うことで、特定のデータにアクセスできます。
※この説明では、エクセルの表と合わせるため、要素の下限を「1」としていますが、通常「0」から始まります。

2次元配列の宣言方法

2次元配列を宣言する際には、Dimステートメントを使用します。

配列のサイズをあらかじめ決める静的配列で宣言する方法と、後でサイズを変更できる動的配列として宣言する方法があります。

静的配列の場合

動的配列の場合

2次元配列にデータを格納する

2次元配列にデータを格納する際は、行と列のインデックスを使ってデータを代入します。

以下のコードは、2次元配列にデータを格納する例です。

手動でデータを格納する方法

Sub StoreDataIn2DArray()
    Dim myArray(2, 3) As Long
    
    '// データの格納
    myArray(0, 0) = 1
    myArray(0, 1) = 2
    myArray(0, 2) = 3
    myArray(0, 3) = 4
    myArray(1, 0) = 5
    myArray(1, 1) = 6
    myArray(1, 2) = 7
    myArray(1, 3) = 8
    myArray(2, 0) = 9
    myArray(2, 1) = 10
    myArray(2, 2) = 11
    myArray(2, 3) = 12
End Sub

処理結果

上記のコードでは、myArrayという2次元配列を作成し、各行と列にデータを格納しています。
例えば、myArray(0, 0) = 1は、1行1列目に1を格納することを示します。

CurrentRegionを使用して範囲を配列に格納

Excelシートの範囲をそのまま2次元配列に取り込む場合、Range.CurrentRegionを使用すると便利です。
これを使うと、指定した範囲のデータを一括で配列に格納できます。

Sub GetArrayFromRange()
    Dim arr As Variant
    
    '// 範囲全体を配列に格納
    arr = Range("A1").CurrentRegion.Value
End Sub

処理結果

このコードでは、セル「A1」を起点とした範囲全体をCurrentRegionを使って取得し、配列「arr」に格納しています。

2次元配列がよく使用される場面

2次元配列がよく使用される場面を紹介します。
実際の使用例については、事項の使用例で紹介しますので、そちらをご覧ください。

2次元配列を使用する際の注意ポイント

2次元配列を使用する際には、以下のポイントに注意する必要があります。

2次元配列の使用例をご紹介

ここでは、2次元配列を活用した具体的な使用例を紹介します。

VBAを使用して実際に動作させることで、2次元配列の基本的な操作方法や実用的な活用法を学ぶことができます。

使用例1: 2次元配列にデータを格納してシートに貼り付ける

2次元配列にデータを格納し、そのデータをExcelシートに貼り付ける方法を紹介します。

主な使用用途
この方法は、大量のデータを管理し、迅速にシート上に反映させる必要がある場合に特に有効です。
個別にデータを入力する手間を省き、ミスを防ぐためにも、2次元配列を活用することで、業務の効率化を図ることが可能です。

Sub PasteArrayToRange()
    Dim myArray(2, 3) As Long
    
    '// 配列にデータを格納
    myArray(0, 0) = 1
    myArray(0, 1) = 2
    myArray(0, 2) = 3
    myArray(0, 3) = 4
    myArray(1, 0) = 5
    myArray(1, 1) = 6
    myArray(1, 2) = 7
    myArray(1, 3) = 8
    myArray(2, 0) = 9
    myArray(2, 1) = 10
    myArray(2, 2) = 11
    myArray(2, 3) = 12
    
    '// 配列のデータをシートに貼り付け
    Sheets("Sheet1").Range("A1:D3").Value = myArray
End Sub

処理結果

このコードで使用している機能

• なし

1行ずつ解説

この使用例では、2次元配列を使って複数のデータを効率的に管理し、そのデータを一括でExcelシートに反映する方法を学ぶことができます。
これにより、手動でデータを入力する手間を省き、より迅速なデータ処理が可能になります。

使用例2: CurrentRegion使ってシートにデータを貼り付ける

CurrentRegionを使ってシート上のデータを2次元配列に格納し、そのデータを別のシートに貼り付ける方法を紹介します。

主な使用用途
このコードは、シート上のデータを2次元配列に格納し、そのデータを別のシートに一括で貼り付ける場合に使用します。
これにより、データの効率的な転送が可能となり、手動でのデータコピーよりも迅速かつ正確に処理が行えます。

Sub ArrayAndPaste()
    Dim arr As Variant
    
    '// 範囲全体を配列に格納
    arr = Range("A1").CurrentRegion.Value
    
    '// データをシートに貼り付け
    With Sheets("Sheet2")
        .Range(.Cells(1, 1), .Cells(UBound(arr, 1), UBound(arr, 2))) = arr
    End With
End Sub

処理結果

このコードで使用している機能

• With (オブジェクトを繰り返し使用)
• CurrentRegion (セル範囲を自動選択)
• LBound、UBound (配列のサイズを知る)

1行ずつ解説

このサブルーチンは、ExcelのSheet1にあるデータをすべてコピーし、Sheet2に一括で貼り付けることができます。
手動でのコピー＆ペースト操作よりも正確で効率的です。
特に、データ量が多い場合や定期的に行う操作を自動化したい場合に非常に便利です。

使用例3: CurrentRegionで取得したデータに条件分岐を適用し、別のシートに貼り付ける

この例では、CurrentRegionを使ってシート上のデータを2次元配列に格納し、その配列のデータに条件分岐を適用してから、条件に合致するデータのみを別のシートに貼り付ける方法を紹介します。

主な使用用途
CurrentRegionで取得したデータを条件分岐に基づいてフィルタリングし、条件に合致するデータだけを別のシートに転記する操作を行います。
これにより、大量のデータから特定の条件に一致する情報を効率的に抽出し、別の場所に出力することが可能になります。

Sub FilterAndPasteData()
    Dim arr As Variant
    Dim filteredArray() As Variant
    Dim i As Long, j As Long
    Dim rowCount As Long
    
    '// 範囲全体を配列に格納
    arr = Sheets("Sheet1").Range("A1").CurrentRegion.Value
    
    '// フィルタリングしたデータを格納する配列のサイズを初期化
    ReDim filteredArray(UBound(arr, 1) - 1, UBound(arr, 2) - 1)
    rowCount = 0
    
    '// 条件に合うデータのみを別の配列に格納
    For i = 1 To UBound(arr, 1)
        If arr(i, 5) >= 1200 Then '// 例えば、5列目の値が1200以上の場合にデータを抽出
            For j = 1 To UBound(arr, 2)
                filteredArray(rowCount, j - 1) = arr(i, j)
            Next j
            rowCount = rowCount + 1
        End If
    Next i
    
    '// フィルタリングしたデータをSheet2に貼り付け
    Sheets("Sheet2").Range("A1").Resize(rowCount, UBound(filteredArray, 2) + 1).Value = filteredArray
End Sub

処理結果

このコードで使用している機能

• Dim (変数)
• For (繰り返し)
• CurrentRegion (セル範囲を自動選択)
• Resize (セル範囲を変更)
• LBound、UBound (配列のサイズを知る)

1行ずつ解説

このコードでは、CurrentRegionを使用してシート上のデータを2次元配列に格納し、その中から特定の条件（ここでは5列目の値が1200以上）に合致するデータをフィルタリングして、別のシートに貼り付けます。
特定の条件に基づいてデータを効率的に抽出し、別シートに移動することができるため、データの整理や分析に役立ちます。

まとめ

2次元配列は、VBAプログラミングにおいて複雑なデータ構造を整理し、効率的に管理するための強力なツールです。
データをExcelシートのように扱う場面では特に有用で、柔軟で効率的なプログラム作成に貢献します。

この記事では、2次元配列の基本的な概念からデータの格納方法、さらにExcelシートへのデータの貼り付け方法まで詳しく解説しました。
これらの知識を活用することで、データ管理がよりシンプルになり、プログラムの可読性も向上します。

ポイントのおさらい

さらに学ぶために

動的配列の基本を理解したら、次は配列を使った高度なデータ操作や、他の配列関連の技術に挑戦してみましょう。
データ管理のスキルが向上し、より複雑なシナリオにも対応できるようになります。

サイトマップ

VBAワークシート関数 VBA 基本設定 VBAとは？ VBAの始め方 VBAのおすすめ設定 セル操作 RangeとCells CurrentRegion Offset Resize 最終行・最終列の取得 変数 変数 オブジェクト変数 グロ...

zangyo-free.com

2024.08.28