－ちょっと使えるネタを紹介－
Excel VBAで、テーブルをコピーするには「.Copy」を使います。テーブルや、行・列単位、特定の行をコピーする方法について、解説していきます。VBAでのテーブル操作をマスターしていきましょう。
この記事では、テーブルをコピーする方法について、ご紹介します。
テーブルをコピーしたい場合は、「.Copy」を使います。
「特定の行のみ」コピーしたい場合は、オートフィルタでフィルタして、「SpecialCells」を使って、表示セルのみをコピーするとできます。
「書式なし」でコピーしたい場合は、一旦、テーブルのスタイルを削除してから、コピーするとできます。
VBAでのテーブル操作をマスターしていきましょう。
では、テーブルをコピーする方法について、解説していきます。
この記事を読むメリット
目次から見たい項目へ移動すると便利ですよ。
目次
テーブルをコピーしてみます。
やりたい内容は、「テーブルをコピーしたい」、ということになります。
テーブルをコピーするVBAコードは、次のようになります。
「ListObjects」を使う場合は、次のようになります。
Sub TEST1()
'見出しを含めてテーブルをコピー
ActiveSheet.ListObjects("テーブル1").Range.Copy Range("F2")
End Sub
「構造化参照」で、テーブルをコピーする場合は、次のようになります。
Sub TEST2()
'見出しを含めてテーブルをコピー
Range("テーブル1[#ALL]").Copy Range("F2")
End Sub
実行すると、テーブルをコピーできます。
テーブルをコピーできました。
次は、「データの範囲」をコピーしてみます。
テーブルのデータ範囲をコピーするVBAコードは、次のようになります。
「ListObjects」を使った場合は、次のようになります。
Sub TEST3()
'データの範囲をコピー
ActiveSheet.ListObjects("テーブル1").DataBodyRange.Copy Range("F3")
End Sub
「構造化参照」を使う場合は、次のようになります。
Sub TEST4()
'データの範囲をコピー
Range("テーブル1").Copy Range("F3")
End Sub
実行すると、テーブルのデータ範囲をコピーできます。
テーブルのデータ範囲をコピーできました。
次は、テーブルを行もしくは列単位でコピーしてみます。
テーブルの2行目をコピーしてみます。
テーブルの2行目をコピーするVBAコードは、次のようになります。
「ListObjects」を使う場合は、次のようなります。
Sub TEST5()
'「2」行目をコピー
ActiveSheet.ListObjects("テーブル1").ListRows(2).Range.Copy Range("F3")
End Sub
「構造化参照」を使う場合は、つぎのようになります。
Sub TEST6()
'「2」行目をコピー
Range("テーブル1").Rows(2).Copy Range("F3")
End Sub
実行すると、テーブルの2行目をコピーできます。
テーブルの2行目をコピーできました。
次は、テーブルの1列目をコピーしてみます。
テーブルの1列目をコピーするVBAコードは、次のようになります。
「ListObjects」を使う場合は、次のようになります。
Sub TEST7()
'「1」列目をコピー
ActiveSheet.ListObjects("テーブル1").ListColumns(1).Range.Copy Range("F2")
'もしくは
ActiveSheet.ListObjects("テーブル1").ListColumns("名前").Range.Copy Range("F2")
End Sub
「構造化参照」を使う場合は、次のようなります。
Sub TEST8()
'「1」列目をコピー
Range("テーブル1[[#ALL],[名前]]").Copy Range("F2")
End Sub
実行すると、テーブルの1列目をコピーできます。
テーブルの1列目をコピーできました。
つぎは、1列目のデータ範囲をコピーしてみます。
1列目のデータ範囲をコピーするVBAコードは、次のようになります。
「ListObjects」を使う場合は、次のようになります。
Sub TEST9()
'「1」列目のデータ範囲をコピー
ActiveSheet.ListObjects("テーブル1").ListColumns(1).DataBodyRange.Copy Range("F3")
'もしくは
ActiveSheet.ListObjects("テーブル1").ListColumns("名前").DataBodyRange.Copy Range("F3")
End Sub
「構造化参照」を使う場合は、次のようになります。
Sub TEST10()
'「1」列目のデータ範囲をコピー
Range("テーブル1[名前]").Copy Range("F3")
End Sub
実行すると、1列目のデータ範囲をコピーできます。
1列目のデータ範囲をコピーできました。
次は、「テーブルの特定行のみ」をコピーする、というのをやってみます。
やり方としては、「AutoFilter」でフィルタして「SpecialCells」を使ってコピーするという感じです。
テーブルの「"A"」のみをコピーしてみます。
手順は、次のようになります。
VBAコードは、次のようになります。
Sub TEST11()
With ActiveSheet.ListObjects("テーブル1").Range
.AutoFilter 1, "A" '「1」列目を、「"A"」でフィルタ
.SpecialCells(xlCellTypeVisible).Copy Range("F2") '表示セルのみコピー
.AutoFilter 1 'フィルタを解除
End With
End Sub
では、実行してみます。
テーブルの1列目を、「"A"」でフィルタします。
表示セルのみをコピーします。
テーブルのフィルタを解除します。
これで、テーブルで、1列目が「"A"」の行のみをコピーできます。
テーブルで、1列目が「"A"」の行のみをコピーできました。
次は、テーブルを「書式なし」でコピーする、といのをやってみます。
やりたい内容は、「書式なし」で、データ範囲をコピーする、ということになります。
手順は、次のようになります。
VBAコードは、次のようになります。
Sub TEST12()
Dim A
'書式なしで、データ範囲をコピー
With ActiveSheet.ListObjects("テーブル1")
A = .TableStyle 'テーブルのスタイルを保存
.TableStyle = "" 'テーブルスタイルを削除
.DataBodyRange.Copy Range("F3") 'テーブルのデータ範囲をコピー
.TableStyle = A 'テーブルスタイルを戻す
End With
End Sub
では、実行してみます。
テーブルのスタイルを保存しておきます。
テーブルのスタイルを削除します。
テーブルのデータ範囲をコピーします。
最後に、テーブルのスタイルを戻します。
これで、「書式なし」で、テーブルのデータ範囲をコピーできます。
「書式なし」で、テーブルのデータ範囲をコピーできました。
次は、「書式なし」で、テーブルをコピーしてみます。
手順は、次のようになります。
VBAコードは、次のようになります。
Sub TEST13()
Dim A
'書式なしで、テーブルをコピー
With ActiveSheet.ListObjects("テーブル1")
A = .TableStyle 'テーブルのスタイルを保存
.TableStyle = "" 'テーブルスタイルを削除
.Range.Copy Range("F2") 'テーブルをコピー
Range("F2").ListObject.Unlist '範囲に変換
.TableStyle = A 'テーブルスタイルを戻す
End With
End Sub
では、実行してみます。
テーブルのスタイルを保存しておきます。
テーブルのスタイルを削除します。
テーブルをコピーします。
コピー先のテーブルを、範囲に変換します。
最後に、テーブルのスタイルを戻します。
これで、「書式なし」で、テーブルをコピーできます。
「書式なし」で、テーブルをコピーできました。
この記事では、テーブルをコピーする方法について、ご紹介しました。
テーブルをコピーしたい場合は、「.Copy」を使います。
「特定の行のみ」コピーしたい場合は、オートフィルタでフィルタして、「SpecialCells」を使って、表示セルのみをコピーするとできます。
「書式なし」でコピーしたい場合は、一旦、テーブルのスタイルを削除してから、コピーするとできます。
VBAでのテーブル操作をマスターしていきましょう。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する