Excel VBA質問箱 IV

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

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


7008 / 76732 ←次へ | 前へ→

【75316】Re:指定した数値だけを削除したい
発言  kanabun  - 14/2/12(水) 9:11 -

引用なし
パスワード
   データと処理内容とがハッキリしませんが、

> 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 発言

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