VBA テーブル（ListObjects）へデータを貼り付ける

テーブル（ListObjects）へデータを貼り付ける

Sub test()
   ’　テーブルへデータを貼り付ける

    With Range("A1").ListObject
        .ShowTotals = False
        
        Dim n  As Long
        n = .ListColumns(1).Range.Count + 1
        
        Range("E6").CurrentRegion.Copy .Range(n, 1)
        
        .ShowTotals = True
    
    End With

End Sub

実行結果

参考記事

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

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

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

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

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

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