ExcelVBAでテーブル読込みとカラム名を指定したデータ挿入方法

エクセルシートのテーブルはListObjects("テーブル名")で取得できる。

ListObjectのListColumnsによって指定したカラム名の列を取得できる。

取得した列のDataBodyRangeを先頭行からのオフセットを指定して呼び出すことでセルを参照できるので新規追加した行のインデックスを指定すれば、追加目的のセル参照を取得できる。

Dim tbl As ListObject
Set tbl = Sheets("シート名").ListObjects("テーブル名")

' 空の行を追加してインデックス番号を取得
Dim newRowIdx As Integer
Dim newRowIdx = tbl.ListRows.Add(AlwaysInsert:=True).Index

With tbl
    .ListColumns("カラム名").DataBodyRange(newRowIdx) = "データ値"
End With

ListRows("カラム名")でできるといいのに。。。

以上