VAB オートフィルタで 抽出したデータをコピーしようとしてもできない。

オートフィルタの結果をコピーして別シートに張り付けているのですができません。

？？？

.Range("A3:F" & maxRow).CurrentRegion.SpecialCells(xlVisible).Copy Workbooks("抽出用.xlsm").Worksheets("Sheet2").Range("A3")

みたいな感じです。

ブレイクポイントを設定して、フィルタずみのエクセル画面を見るときちんとフィルタされているのですが・・・。

手動でフィルタを行おうとすると、該当するコードがフィルタのチェックボックスに表示されていない・・・。

よく調べると、空白行がいくつかあり、そこまでの範囲しかフィルタリングされていなかった様子。しかし、VBA実行中に見ると、確かにフィルタされているのですがね。

空白行を削除したところ、きちんとコピーされるようになりました。