Excel VBAでオートフィルターを使って他の列を空白に
Excel VBAでオートフィルターを使ってAF列(32列)が空白ならBN列(66列)を空白する為、以下を作成したのですが、AF列(32列)に空白がない場合はBN列(66列)全て空白になってしまうのですが、どのようにしたら良いのでしょうか?
毎月300~500行になる為、オートフィルターを使用した方が処理が早いと思いしたのですが...
'-------オートフィルター後、該当データーのみ範囲指定する---------
'オートフイルターの条件を入れる列の番号(32)に条件("空白")
Selection.AutoFilter Field:=32, Criteria1:=""
Selection.CurrentRegion.Select 'アクティブセル領域を選択する
Selection.Offset(1, 0).Select '選択領域を1行下へ移動する
Selection.Resize(Selection.Rows.Count - 1).Select '選択領域を1行減らす(見出し行)
Selection.Offset(0, 65).Select '選択領域の左端のをBM列にする
Selection.Resize(, 1).Select '選択領域を1列右にする
Selection.ClearContents '該当データーのみ空白にする
Selection.AutoFilter Field:=32 'フィルターオプション解除
お礼
ありがとうございます。毎回[Ctrl]+[Shift]+[*]で 指定していましたが、よく使う機能なのでなんとか 簡単に出来ないかなと思っていました。