EXCEL VBA 　2次元配列・セル範囲の内容を配列に格納・配列の内容をセルに代入（一括・高速化・セルの指定範囲）

EXCEL VBA 　2次元配列・セル範囲の内容を配列に格納・配列の内容をセルに代入（一括・高速化・セルの指定範囲）

'
Sub Array00A() 'Aパターン（２次元配列）
    
    Dim TempData   
    TempData = Range("A1:c10").Value 'セルA1:C10までを２次元配列に登録（格納）
    Range("D1:F10").Value = TempData '登録した２次元配列からセルD1：F10へ転記します。

End Sub
'

'
Sub Array00B() 'Bパターン（２次元配列）

    Dim TempData(1 To 10, 1 To 3)
    Dim Y, X As Integer
    
    For Y = 1 To 10  'セル1行目～10行目まで繰り返す。
        For X = 1 To 3  'セル１列目（A）～3列目まで繰り返す。
            TempData(Y, X) = Cells(Y, X).Value 'セルA1:C10までを２次元配列に登録（格納）します。
        Next X
    Next Y

    
    For Y = 1 To 10  '配列（縦）１行～10行まで繰り返す。
        For X = 1 To 3  '配列（横）1列～3列まで繰り返す。
            Cells(Y, 3 + X).Value = TempData(Y, X) '登録した２次元配列からセルD1：F10へ転記します。
        Next X
    Next Y

End Sub
'

2次元配列に取り込んだ格納データを計算して、格納された計算結果をセルに転記します。（配列内の計算）

'
''******** AKIRA55.COM *******  https://akira55.com/array02_tec/
'
Sub Array01() '2次元配列に取り込んだ格納データを計算して、格納された計算結果をセルに転記します。
    
    Dim TempData
    Dim I As Long
     
    TempData = Range("A1:C10").Value  'セルA1：C10の内容を2次元配列に格納します。
    
    For I = LBound(TempData, 1) To UBound(TempData, 1)  '2次元配列データの縦　　～　最終配列まで繰り返します。
        
        TempData(I, 3) = TempData(I, 1) + TempData(I, 2)  '２次元配列の１列目と2列名を加算して、結果を3列目に格納します。
        
    Next I
   
    Range("D1:F10").Value = TempData  '計算された2次元配列データを指定したセルに貼り付けます。

End Sub
'

2つの2次元配列を利用してデータの受け渡し及び、判定結果・計算結果を別の2次元配列に格納する。

'
''******** AKIRA55.COM ******* https://akira55.com/array02_tec/
'
Sub Array02()  '2つの2次元配列を利用してデータの受け渡し及び、判定結果・計算結果を別の2次元配列に格納する。

    Dim TempData01, TempData02
    Dim I As Long
    
    
    TempData01 = Range("A2:C11").Value 'セルA2：C11の内容を2次元配列（TempData01）「縦10×横3」に格納します。

    ReDim TempData02(1 To 10, 1 To 5)  '計算結果及び判定結果用の2次元配列を作成（TempData02）「縦10×横5」
    
    For I = LBound(TempData01, 1) To UBound(TempData01, 1) '2次元配列（TempData01）に格納されたデータの1件目から最終まで繰り返す。
        
        TempData02(I, 1) = TempData01(I, 1)  '2次元配列データの転記（TempData01⇒TempData02）
        TempData02(I, 2) = TempData01(I, 2)
        TempData02(I, 3) = TempData01(I, 3)
        TempData02(I, 4) = TempData01(I, 2) + TempData01(I, 3)  '2次元配列データの計算（TempData01+TempData01＝計算結果TempData02）
        If TempData02(I, 4) >= 110 Then        '計算結果を判定（70を超える場合は合格・それ以外は不合格）
                TempData02(I, 5) = "合格"
            Else
                TempData02(I, 5) = "不合格"
        End If
    
    Next I

    Range("E2").Resize(UBound(TempData02, 1), 5) = TempData02  '2次元配列（TempData02）の結果（計算・判定）をセル（D1：より）に転記します。

End Sub
'

２つの2次元配列の利用して、データの受け渡し及びデータ抽出を行い、結果をシートに転記する。

'
''******** AKIRA55.COM ******* https://akira55.com/array02_tec/
'
Sub Array03()  '２つの2次元配列の利用して、データの受け渡し及びデータ抽出を行い、結果をシートに転記する。

    Dim ws01, ws02 As Worksheet
    Dim TempData01, TempData02
    Dim I, L, lRow As Long
    

    Set ws01 = Worksheets("人事データ") 'ワークシート「人事データ」
    Set ws02 = Worksheets("抽出リスト") 'ワークシート「抽出リスト」

     
    
    L = 1 '2次元配列データ（初期位置）
    lRow = ws01.Cells(Rows.Count, "A").End(xlUp).Row    'シート「人事データ」A列の最終行を取得
    
    TempData01 = ws01.Range("A2:H" & lRow).Value  'シート「人事データ」のデータを2次元配列「TempData01」へ全て格納します。

    ReDim TempData02(1 To lRow, 1 To 8)  '2次元配列「TempData02」再構築
    
    For I = LBound(TempData01, 1) To UBound(TempData01, 1) '2次元縦件数をスタート1～最終行までループ
        
        
        If TempData01(I, 3) = "男" And TempData01(I, 8) < 45 Then  '抽出内条件を指定します。
                TempData02(L, 1) = TempData01(I, 1) '社員番号を格納
                TempData02(L, 2) = TempData01(I, 2) '氏名を格納
                TempData02(L, 3) = TempData01(I, 3) '性別を格納
                TempData02(L, 4) = TempData01(I, 4) '郵便番号を格納
                TempData02(L, 5) = TempData01(I, 5) '住所（都道府県）を格納
                TempData02(L, 6) = TempData01(I, 6) '住所（区市町村）を格納
                TempData02(L, 7) = TempData01(I, 7) '生年月日を格納
                TempData02(L, 8) = TempData01(I, 8) '年齢を格納
                
                L = L + 1  '2次元配列「TempData02」次の行へ+1（加算する）
        End If

    
    Next I


    ws02.Range("A2").Resize(UBound(TempData01, 1), 8) = TempData02  '2次元配列データ「TempData02」をシート「抽出リスト」へ結果を転記します。


    End Sub
    '