Help us understand the problem. What is going on with this article?

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

More than 1 year has passed since last update.

エクセルシートのテーブルは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("カラム名")でできるといいのに。。。

以上

muraak
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away