Sub テーブルの範囲を変更する() 'シート名 'テーブル名 Worksheets("Sheet1").ListObjects("テーブル1").Resize Range("$A$1:$B$6") End Sub