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

テーブル（ListObjects）配列で最終行へデータを貼り付ける

Sub test()
   ’　配列でデータを貼り付ける

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

End Sub

実行結果

参考記事

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

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

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

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

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

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