Excel VBA質問箱 IV

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

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


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

54783 / 76738

←次へ　｜　前へ→


	【26741】Re:セル内の一部を検索し、その後行を削除したい

りん

- 05/7/15(金) 16:42 -


	引用なし

	パスワード

Ｔさん、こんにちわ。

>【内容】
>　例）A行に1000～1009までの数字があり、その数字の下１桁が0・1・4・7を
>　　　含む行を削除したい。

1000～1009の数字だということなので、普通に分岐しました。
Sub test()
　 Dim r1 As Range, Rmax&, RR&
　 Rmax& = Cells(Rows.Count, 1).End(xlUp).Row
　 Set r1 = Cells(Rmax& + 1, 1)
　 For RR& = 1 To Rmax&
　　　Select Case Cells(RR&, 1).Value
　　　　 Case 1000, 1001, 1004, 1007
　　　　　　Set r1 = Application.Union(r1, Cells(RR&, 1))
　　　End Select
　 Next
　 r1.EntireRow.Delete
　 Set r1 = Nothing
End Sub

考えている間に解決してました。

0 hits

▼

【26732】セル内の一部を検索し、その後行を削除したい Ｔ 05/7/15(金) 13:38