VBA テーブル（ListObjects）データを追加する

テーブル（ListObjects）データを追加する

Sub test()
   ’　データを追加する

    With Range("A1").ListObject
        .ShowTotals = False
        
        Dim n  As Long
        n = .ListColumns(1).Range.Count + 1
        
        .ListColumns(1).Range(n) = "田中"
        .ListColumns(2).Range(n) = "S009"
        .ListColumns(3).Range(n) = "67"
        .ShowTotals = True
    
    End With

End Sub

実行結果

参考記事

『VBA テーブル（ListObjects）の基本操作』

『VBA　テーブル（ListObjects）の設定・解除する』

『VBA　テーブル（ListObjects）行の削除』

『VBA　テーブル（ListObjects）のフィルター設定・解除』

『VBA　テーブル（ListObjects）指定値以上赤文字にする』

『VBA　テーブル（ListObjects）データを追加する』

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る