Excel VBA質問箱 IV

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

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


7010 / 76735 ←次へ | 前へ→

【75317】Re:指定した数値だけを削除したい
お礼    - 14/2/12(水) 10:11 -

引用なし
パスワード
   ▼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    吉田    よしだ

0 hits

【75311】指定した数値だけを削除したい 14/2/11(火) 11:50 質問
【75312】Re:指定した数値だけを削除したい HARA 14/2/11(火) 14:39 発言
【75313】Re:指定した数値だけを削除したい γ 14/2/11(火) 15:02 発言
【75314】Re:指定した数値だけを削除したい HARA 14/2/11(火) 18:21 発言
【75315】Re:指定した数値だけを削除したい 14/2/11(火) 21:24 発言
【75316】Re:指定した数値だけを削除したい kanabun 14/2/12(水) 9:11 発言
【75317】Re:指定した数値だけを削除したい 14/2/12(水) 10:11 お礼
【75318】Re:指定した数値だけを削除したい kanabun 14/2/12(水) 10:14 発言
【75320】Re:指定した数値だけを削除したい 14/2/12(水) 13:37 お礼
【75330】Re:指定した数値だけを削除したい kanabun 14/2/12(水) 22:34 発言

7010 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free