二次元配列から、列を指定して、その列の一次元配列を返す関数

'*******
'* 二次元配列から、列を指定して、その列の一次元配列を返す関数。20240109
'* column：配列の指定する列
'* arr：二次元配列は、参照渡し。
Private Function ReadColumnsToArray(ByVal column As Long, ByRef arr As Variant) As Variant()
    Dim columnData() As Variant
    Dim i As Long
    
    For i = 1 To UBound(arr)
        
        If IsEmpty(arr(i, column)) Then Exit For
        
        ReDim Preserve columnData(1 To i)
        columnData(i) = arr(i, column)
        
    Next i
        
    ' 列のデータを配列に格納
    ReadColumnsToArray = columnData

End Function