VBA のオートフィルタについて

質問

ExcelVBA初心者でございます。
2点質問がございます。

(1)エクセルVBAのオートフィルタの機能を使い、"マスタ0701"シートの13行目が”ABC”の行を、"検索結果"というシートにコピーしたいです。

以下のマクロを実行しますと、まず"マスタ0701"のB1のセル（13行目はブランク）がコピーされ、その下に13行目が”ABC”に該当する行がコピーされます。
なぜ、B1セルまでコピーされるのかご教示頂けますと幸いです。

(2)また検索結果だけでなく、オートフィルタのタイトル行もコピーするようにするにはどうしたら良いでしょうか？

よろしくお願いいたします。

Sub 絞り込み()

With Worksheets("マスタ0701").Range("A1")
.AutoFilter Field:=13, Criteria1:="ABC"
.CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("検索結果").Range("A1")
.AutoFilter
End With

End Sub

回答No.3

kkkkkm · ベストアンサー

> ご指示のコードは以下のような感じになりますでしょうか？
> .CurrentRegion.SpecialCells(xlVisible).Select Worksheets("検索結果").Range("A1")

.CurrentRegion.SpecialCells(xlVisible).Select

だけでいいです。
CurrentRegionについても検索してCurrentRegionがどの範囲を指定してるのかも把握してください。

お礼

有難うございます！！
考え方の勉強になりました！
関連して、新しい疑問がでてきたため、また新しい質問として投稿させて頂きます。

回答No.2

imogasi

>1"シートの13行目が”ABC”の行を、"検索結果"というシートにコピーしたいです。
これは書きそこないか？
エクセルでは第１３行目のデータを狙って、フィルタをかける例は、あまり話題にならない。
１３列＝Ｍ列にＡＢＣがある行を抜き出すなら、ＷＥＢなどのＡやＢ列の説明例の、Ｍ列版で不思議はないが。
この点をあいまいにしては、回答ができないと思う。再質問だな。

補足

ご回答下さり有難うございます。
また、ご返信遅くなり申し訳ございません。
大変失礼いたしました。13行ではなく、13列でございます。
よろしくお願いいたします。

回答No.1

kkkkkm

Field:=13,は13行目ではなくてフィルター範囲の左から13列目になると思います。

オートフィルタ(AutoFilterメソッド)でのデータ抽出
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_autofilter.html

どのデータ範囲がコピーされるのか

.CurrentRegion.SpecialCells(xlVisible).Select

にして
最後の
.AutoFilter
をコメントにしてみると確認できると思います。

補足

ご回答下さり有難うございます。
また返答が遅くなり申し訳ございません。

ご指示のコードは以下のような感じになりますでしょうか？
.CurrentRegion.SpecialCells(xlVisible).Select Worksheets("検索結果").Range("A1")
'.AutoFilter

私のやり方が悪いと思うのですが、「引数が一致していません。または不正はプロパティを指定しています」とエラーが出てしまいました。

お手間をお掛けいたしますが、どうぞ宜しくお願いいたします。