【VBAスタンダードに挑戦！】
本日の５分勉強の内容
********************************************************
特定の列のコピー
With Range("B1").ListObject
'テーブルの４列目を「関東」でフィルたリングする
.Range.AutoFilter 4, "関東"
'テーブルの２、５列目の絞り込みされた、データを「Sheet2」にコピーする
.ListColumns(2).DataBodyRange.Copy Sheets("Sheet2").Range("A10")
.ListColumns(5).DataBodyRange.Copy Sheets("Sheet2").Range("B10")
End With
特定の列の書式設定
With Range("B1").ListObject
'テーブルの４列目を「関東」でフィルたリングする
.Range.AutoFilter 4, "関東"
'テーブルの２列目の絞り込みされた、データのフォントを太字にする
.ListColumns(2).DataBodyRange.Font.Bold = True
End With
*******************************************
本日でテーブルに関しての説明は終わりです。
コピーや書式設定の方法はシート上のデータを扱うときと同じですね。
テーブル上とシート上の「Range」の意味は違ったり、
ListObjectやDataBodyRange などの新しい言葉が出てきました。
テーブルと、テーブル内の特定の場所の指定の仕方を
覚えるのも大変です (^_^;)
＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／
