Excel VBA質問箱 IV

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

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


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

7012 / 76736

←次へ　｜　前へ→


	【75316】Re:指定した数値だけを削除したい

kanabun - 14/2/12(水) 9:11 -


	引用なし

	パスワード

データと処理内容とがハッキリしませんが、 > ４ケタの数値のうち指定した数値だけを削除なら、フィルタを使うのも手だと思います。いまB列に、↓のような４桁の数値があり、支店　商品番号　担当　　　　カナ A　　　　5772　　　　橋本　　　　はしもと B　　　　4204　　　　高山　　　　たかやま C　　　　2989　　　　岡田　　　　おかだ D　　　　1331　　　　平山　　　　ひらやま A　　　　1399　　　　須藤　　　　すどう B　　　　6347　　　　加藤　　　　かとう C　　　　4735　　　　君島　　　　きみじま D　　　　9815　　　　村上　　　　むらかみ A　　　　9033　　　　荒川　　　　あらかわ B　　　　3442　　　　丸山　　　　まるやま C　　　　9708　　　　佐々木　　　　ささき D　　　　8371　　　　大貫　　　　おおぬき A　　　　2187　　　　佐藤　　　　さとう B　　　　5764　　　　鈴木　　　　すずき C　　　　5646　　　　山口　　　　やまぐち D　　　　5100　　　　山本　　　　やまもと A　　　　6624　　　　吉田　　　　よしだ B　　　　1834　　　　坂本　　　　さかもと C　　　　9545　　　　手塚　　　　てづかこのうち、5000以上 9000未満の数値の行を削除したいとき、 AutoFilter でその範囲を指定して、あてはまる数値の行をあぶりだし、一括行削除できます。 Sub Try1() 　　Dim r As Range 　　　　ActiveSheet.AutoFilterMode = False 　　Set r = Range("B1", Cells(Rows.Count, 2).End(xlUp)) 　　r.AutoFilter 1, ">=" & 5000, xlAnd, "<" & 9000　'← 範囲を指定　　If MsgBox("Are you sure delete these Lines?", _ 　　　　vbOKCancel) = vbOK Then 　　　　r.Offset(1).EntireRow.Delete 　　End If 　　r.AutoFilter End Sub 支店　商品番号　担当　　　　カナ A　　　　5772　　　　橋本　　　　はしもと B　　　　6347　　　　加藤　　　　かとう D　　　　8371　　　　大貫　　　　おおぬき B　　　　5764　　　　鈴木　　　　すずき C　　　　5646　　　　山口　　　　やまぐち D　　　　5100　　　　山本　　　　やまもと A　　　　6624　　　　吉田　　　　よしだ