Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28172 / 76736

←次へ　｜　前へ→


	【53868】抽出データ削除の繰り返し

ku_u - 08/2/12(火) 15:59 -


	引用なし

	パスワード

Sheet1～8までの8枚のｼｰﾄがあります。（ｼｰﾄ数はブックにより異なる）
この８枚のｼｰﾄの１行目は項目行で項目の並びは同じです。
今回行いたいのはオートフィルターを使って
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

0 hits

▼

【53868】抽出データ削除の繰り返し ku_u 08/2/12(火) 15:59

≪