オートフィルタ抽出データをコピーするマクロについて
マクロについて勉強中の者です。
"Sheet1"にあるデータをオートフィルタで抽出し、
"Sheet2"に抽出データのみをコピーをしたいと思っています。
Range("A10:G59").Select
Selection.ClearContents
With Worksheets("Sheet1").Range("A1")
.AutoFilter
.AutoFilter Field:=1, Criteria1:="○"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet2").Range("A9")
End With
End Sub
としてみたのですが、
これを実行すると、オートフィルタが1行目(A1)ではなく、
2行目で設定されてしまい、抽出データがずれてしまいます。
Ａ Ｂ Ｃ
１ 品 名 仕入先 発注数 ←タイトル行に設定したい
２ りんご ヤマト 10 ← この行に▼が設定される
色々調べた結果のマクロなので、どこが悪いのか見当がつきません。
解りやすく教えていただける方がおられましたら、よろしくお願い致します m(＿_)m
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
ありがとうございます。 やってみたのですが、できませんでした…。 同様にAlt＋;でコピペしても「選択範囲には非表示になっているセルが存在しない」というエラーメッセージが出てしまいます…。