|
データと処理内容とがハッキリしませんが、
> 4ケタの数値のうち 指定した数値だけ を削除
なら、フィルタを使うのも手だと思います。
いまB列に、↓のような4桁の数値があり、
支店 商品番号 担当 カナ
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 吉田 よしだ
|
|