2-15.計算・データ処理：フィルターの結果をコピーするには？

セル.CurrentRegion.Copy

フィルターで絞り込んだ結果だけを別セルにコピーするには、絞り込まれた表に対してCurrentRegionプロパティを使います。すると、フィルターで非表示になっているセルは含まずに、抽出結果全体を指定できます。

　この結果をコピーするには、Copyメソッドを使います。「セル.Copy コピー先」のような書き方でコピー先を指定すればOKです

フィルターの結果を別シートにコピーする

Sub Sample()

Range(“B1″).AutoFilter Field:=2, Criteria1:=”群馬県”

Range(“B1”).CurrentRegion.Copy Sheets(“copy”).Range(“B1”)

End Sub

実行結果。絞り込んだ結果のみがコピーされている

Excel学習室