EXCEL VBA 2次元配列から1次元配列へ変換・マトリックス表からリスト表へ変換（Array・Transpose・配列変換）

 

EXCEL VBA 2次元配列から1次元配列へ変換・マトリックス表からリスト表へ変換（Array・Transpose・配列変換）テクニック

 

 

 

 

EXCEL VBA 2次元配列から指定した行データを1次元配列に格納しセルに出力します。

 

 

 

 

'
'
Sub TempArray01() '2次元配列から指定した行データを1次元配列に格納しセルに出力します。
     
    Dim TempArray1D, TempArray2D As Variant
 
    TempArray2D = Range("A1:E9")
 
    TempArray1D = WorksheetFunction.Index(TempArray2D, 2)
    '２次元配列へ登録した指定行(2行目)のデータを一次元配列に格納する

    Range("G1", Cells(UBound(TempArray1D), "G")).Value = WorksheetFunction.Transpose(TempArray1D)
    '1次元配列へ登録したデータをセルに出力します。
    
 
End Sub
'

 

 

 

 

 

EXCEL VBA 2次元配列から指定した列データを1次元配列に格納しセルに出力します。

 

 

 

 

'
'
Sub TempArray02() '2次元配列から指定した列データを1次元配列に格納しセルに出力します。
     
    Dim TempArray1D, TempArray2D As Variant
 
    TempArray2D = Range("A1:E9")
   
   TempArray1D = WorksheetFunction.Index(WorksheetFunction.Transpose(TempArray2D), 5)
   '２次元配列へ登録したE列（E列：５列目）のデータを１次元配列へ格納します。
        
    Range("G1", Cells(UBound(TempArray1D), "G")).Value = WorksheetFunction.Transpose(TempArray1D)
   '1次元配列へ登録したデータをセルに出力します。
   
End Sub
'

 

 

 

 

 

 

 

EXCEL VBA 2次元配列から指定した列データを1次元配列に格納しセルに出力します。
（格納した1次元配列を変更：縮小）

 

 

'
'
Sub TempArray03() '2次元配列から指定した行データを1次元配列に格納しセルに出力します。


    Dim TempArray1D, TempArray2D As Variant
    Dim I, L As Long
    
    TempArray2D = Range("A1:E9") 'セル（A1:E9）の範囲を2次元配列として登録します。

    
    TempArray1D = WorksheetFunction.Index(WorksheetFunction.Transpose(TempArray2D), 4)
    '２次元配列へ登録したE列（５列目）のデータを１次元配列へ格納します。
    
    For I = 1 To UBound(TempArray1D) - 1  '全配列データ分繰り返します。
        TempArray1D(I) = TempArray1D(I + 1)  '配列のデータの1件目の”各月”データを消すために配列のデータを移動します。
    Next I
    
    ReDim Preserve TempArray1D(UBound(TempArray1D) - 1) '配列データのサイズを変更（縮小します）
        
    
    Range("G1", Cells(UBound(TempArray1D), "G")).Value = WorksheetFunction.Transpose(TempArray1D)
    '1次元配列へ登録したデータをセルに出力します。
    

End Sub
'

 

 

 

 

 

 

EXCEL VBA 2次元配列からデータ部分全てを1次元配列に格納しセルに出力します。
（別シートにリストデータを出力）

 

 

 

 

'
'
Sub TempArray04() '2次元配列から指定した行データを1次元配列に格納しセルに出力します。

    Dim ws01, ws02 As Worksheet
    Dim TempArray1D, TempArray2D As Variant
    Dim I, L, CountCell As Long
    
    Set ws01 = Worksheets("DATA")
    Set ws02 = Worksheets("LIST")
    
     
     TempArray2D = ws01.Range("A1").CurrentRegion  'A1から始まる表の範囲を2次元配列へ登録します。
     
     CountCell = 2
     
     For L = 2 To ws01.Cells(1, ws01.Columns.Count).End(xlToLeft).Column 'ワークシートの１行目の最終列を取得します。
     
         TempArray1D = WorksheetFunction.Index(WorksheetFunction.Transpose(TempArray2D), L)
         '２次元配列へ登録したデータを順番に１次元配列へ格納します。
     
         For I = 1 To UBound(TempArray1D) - 1  '全配列データ分繰り返します。
             TempArray1D(I) = TempArray1D(I + 1) '配列のデータの1件目の”各月”データを消すために配列のデータを移動します。
         Next I
         
         ReDim Preserve TempArray1D(UBound(TempArray1D) - 2)   '配列データのサイズを変更（縮小します）
             
         ws02.Range(ws02.Cells(CountCell, "A"), ws02.Cells(CountCell + UBound(TempArray1D), "A")).Value = WorksheetFunction.Transpose(TempArray1D)
         '1次元配列へ登録したデ-タをH列セルに金額を出力します。
         CountCell = CountCell + UBound(TempArray1D) + 1
         '転記先のセル番号を加算します。（次の開始番号）
         
     '1次元配列へ登録したデータをセルに出力します。
     
    Next L
    

End Sub
'

 

 

 

 

 

 

マトリックス表の2次元配列データから年月・支店名・データを年月・支店名・金額を行単位のデータとして、別シートに転記します。
（別シートにリストデータを出力）

 

 

 

 

'
'
Sub TempArray05()  '2次元配列から指定した行データを1次元配列に格納しセルに出力します。

    Dim ws01, ws02 As Worksheet
    Dim TempArray1D, TempArray2D As Variant
    Dim I, L, CountCell, lRow, lCol As Long
    
    Set ws02 = Worksheets("2次元")
    Set ws01 = Worksheets("1次元")
    
    With ws02
    
        lRow = .Cells(.Rows.Count, "A").End(xlUp).Row  'ワークシート「2次元」のA列の最終行を取得します。
        lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column 'ワークシート「2次元」の１行目の最終列を取得します。
        
        TempArray2D = .Range("A1").CurrentRegion 'A1から始まる表の範囲を2次元配列へ登録します。
    End With
    
    With ws01
        .Cells.ClearContents  'ワークシート「１次元」の文字列を削除
        .Range("A1") = "年月" 'ワークシート「１次元」セルA1に”年月”を代入
        .Range("B1") = "支店名" 'ワークシート「１次元」セルB1に”支店名”を代入
        .Range("C1") = "金額" 'ワークシート「１次元」セルC1に”金額”を代入
   
    
    CountCell = 2  '1次元配列データの転記先のワークシート「1次元」の開始番号を指定します。（2行目から）
    
         For L = 2 To lCol 'ワークシート「2次元」の１行目の最終列まで繰り返します。（４月～
                 
             TempArray1D = WorksheetFunction.Index(WorksheetFunction.Transpose(TempArray2D), L)
             '２次元配列へ登録したデータを順番に１次元配列へ格納します。
         
             For I = 1 To UBound(TempArray1D) - 1  '全配列データ分繰り返します。
                 TempArray1D(I) = TempArray1D(I + 1)  '配列のデータの1件目の”各月”データを消すために配列のデータを移動します。
             Next I
             
             ReDim Preserve TempArray1D(UBound(TempArray1D) - 2)  '配列データのサイズを変更（縮小します）

             .Range(.Cells(CountCell, "A"), .Cells(CountCell + UBound(TempArray1D), "A")).Value = ws02.Cells(1, L).Value
             '年月をA列セルに出力します。
             .Range(.Cells(CountCell, "B"), .Cells(CountCell + UBound(TempArray1D), "B")).Value = ws02.Range(ws02.Cells(2, "A"), ws02.Cells(lRow, "A")).Value
             '支店名をB列セルに出力します。
             .Range(.Cells(CountCell, "C"), .Cells(CountCell + UBound(TempArray1D), "C")).Value = WorksheetFunction.Transpose(TempArray1D)
             '1次元配列へ登録したデ-タをC列セルに金額を出力します。
             
             CountCell = CountCell + UBound(TempArray1D) + 1 '転記先のセル番号を加算します。（次の開始番号）
         
        Next L
   
   End With

End Sub
'