【VBA】Excelのテーブルの最終行に値を追加する
作成日:2022-12-01
更新日:2022-12-04

最終行に追加
最終行を.Rows.Countで取得 → +1で 1行追加する
With Range("テーブル名")
.Cells(.Rows.Count + 1, 1).Value = "aaa"
.Cells(.Rows.Count + 1, 2).Value = "bbb"
.Cells(.Rows.Count + 1, 3).Value = "ccc"
.Cells(.Rows.Count + 1, 4).Value = "ddd"
End With
2022-12-01
編集後記:
この記事の内容がベストではないかもしれません。
記事一覧
-
[VBA]開いているかwith FullName 【VBA】ブックが開いているか判定|StrComp で FullNameを調べる -
[VBA]extract the filenamefrom a full path 【VBA】フルパスからファイル名と拡張子を取得する|fso.GetFileName/GetBaseName/GetExtensionName -
ユーザーフォームをシステムっぽく 【VBA】ユーザーフォームのみ起動して、シートを表示しない方法 -
[VBA]Control the calculation再計算 【VBA】指定のシートを再計算する|Calculate -
テーブルの値を取得する 【VBA】Excelテーブルのデータを配列で取得する -
テーブルの指定位置に行を追加 【VBA】Excelテーブルの指定した位置に行を追加する