|
▼kanabun さん:
返事が遅れて申し訳ありません。
B
1111
1112
1113
1114
と入力しました。このとき1111,1114は不要なので、
以後の入力時に1111,1114を入力した時はマクロを
動作させたとき1111,1114の行は削除したい。
ということを希望しています。
>データと処理内容とがハッキリしませんが、
>
>> 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 吉田 よしだ
|
|