ExcelVBA メモ

セル値・配列の一括入力・出力

出力
https://daitaideit.com/vba-array-resize/

入力

Dim aryTmp As Variant
Dim ary1 As Variant
Dim lastRow As Long

lastRow = ws01Input.Cells(Rows.Count, 1).End(xlUp).Row
aryTmp = ws01Input.Range(ws01Input.Cells(2, 1), ws01Input.Cells(lastRow, 1)).Value  
    
'2次元配列→1次元配列へ変換  
'...aryTmp(1,1) , aryTmp(2,1) のように2次元配列として入ってしまうので
'   transposeで1次元配列 aryInType(1), aryInType(2)に置き換えする
'
 ary1 = WorksheetFunction.Transpose(aryTmp)