|
Sheet1〜8までの8枚のシートがあります。(シート数はブックにより異なる)
この8枚のシートの1行目は項目行で項目の並びは同じです。
今回行いたいのはオートフィルターを使って
Q列に入っている数値データが0以下であればその行ごと削除するというマクロを作りたいと思っています。
記録してみましたが、各シート毎にレコード件数が違うので使えません。
またシート毎にマクロを動かすのではなく、ブック全体(今回であれば8枚のシートを一度に操作すること)
で行うことは不可能なのでしょうか?
抽出→削除を8枚のシートで繰り返すというマクロを作りたいのですが、どなたかご教授ください。
よろしくお願いいたします。
Sub TEST()
Selection.AutoFilter
Selection.AutoFilter Field:=15, Criteria1:="0 "
Range("O2").Select
Selection.End(xlDown).Select
Rows("1338:1338").Select
Range("I1338").Activate
ActiveWindow.SmallScroll Down:=6
Range(Selection, Selection.End(xlUp)).Select
Rows("2:1338").Select
Range("I1338").Activate
Selection.Delete Shift:=xlUp
End Sub
|
|