【VBA】テーブルのデータを配列に格納する関数｜もしも普通のサラリーマンがお金とITを学んだら

こんにちは、hokkyokunです。

エクセルのテーブルデータを配列に格納する関数です。
なぜそんなことをする必要があるのかは後でご説明いたします。
これやると実は結構便利なんです。

Contents

関数
使い方
これ何に使うの？

関数

関数名
table_Input( table )
引数
table : テーブル（データ型はListObject)
戻り値
配列
[カラム名の配列 , レコード（中身)の配列]

戻り値が少しややこしいですが
イメージとしては以下のようになります。

名前	数学	英語	家庭科
小西	90	76	A
山田	91	93	C

このような表の場合
[
　[ “名前” , “数学” , “英語” , “家庭科”], ←列名の配列
　[[“小西” , 90 , 76 , “A” ] , [“山田” , 91 , 93 , “C”]]　←レコードの配列
]

Function table_Input(ByVal table As ListObject)
    Dim r As Range
    Dim columns As Variant
    Dim i, j As Long
    Dim data, datas As Variant
    
    For Each r In table.HeaderRowRange
        Call add_Elm(columns, r.Value)
    Next
    
    For i = 1 To table.ListRows.Count
        data = Array()
        For j = 1 To table.ListRows(i).Range.Count
            Call add_Elm(data, table.ListRows(i).Range(j).Value)
        Next
        Call add_Elm(datas, data)
    Next
    
    table_Input = Array(columns, datas)
End Function

使い方

実際に使ってみます。

↑のテーブルの内容を配列に格納します。

Sub test_input()
Dim table As ListObject
Dim table_datas As Variant
Dim columns, datas As Variant

Set table = ThisWorkbook.Worksheets("Table2").ListObjects(1)

table_datas = table_Input(table)
columns = table_datas(0)
datas = table_datas(1)

End Sub