二次元配列内の1列を一次元配列として抽出する

2023年8月5日

カウンタ変数をredimの数値にそのまま使える

Sub testin()
    
    Dim arr: arr = Range("A1").CurrentRegion
    
    Dim ほしい列番号 As Long: ほしい列番号 = 3
    
    Dim out() As Variant, i As Long
    For i = 1 To UBound(arr)
        ReDim Preserve out(1 To i)
        out(i) = arr(i, ほしい列番号)
    Next i
    
End Sub