Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9553 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【26732】セル内の一部を検索し、その後行を削除したい Ｔ 05/7/15(金) 13:38 質問[未読]
【26733】Re:セル内の一部を検索し、その後行を削除... Jaka 05/7/15(金) 14:09 回答[未読]
【26739】Re:セル内の一部を検索し、その後行を削除... Ｔ 05/7/15(金) 16:34 お礼[未読]
【26737】Re:セル内の一部を検索し、その後行を削除... Kein 05/7/15(金) 16:31 回答[未読]
【26741】Re:セル内の一部を検索し、その後行を削除... りん 05/7/15(金) 16:42 回答[未読]
【26732】セル内の一部を検索し、その後行を削除し...
質問  Ｔ  - 05/7/15(金) 13:38 -
引用なし
パスワード
   こんにちは。
標題の件ですが、誰か分かる方がいましたら教えて下さい。

【内容】
　例）A行に1000〜1009までの数字があり、その数字の下１桁が0・1・4・7を
　　　含む行を削除したい。
　A列
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
【26733】Re:セル内の一部を検索し、その後行を削...
回答  Jaka  - 05/7/15(金) 14:09 -
引用なし
パスワード
   こんにちは。
オーソドックスにやるとこんな感じになります。

ERW = Range("A65536").End(xlUp).Row
For i = ERW To 1 Step -1
　 If Right(Cells(i, 1).Value, 1) = "0" Or _
　　　Right(Cells(i, 1).Value, 1) = "1" Or _
　　　Right(Cells(i, 1).Value, 1) = "4" Or _
　　　Right(Cells(i, 1).Value, 1) = "7" Then
　　　Rows(i).Delete
　 End If
Next
【26737】Re:セル内の一部を検索し、その後行を削...
回答  Kein  - 05/7/15(金) 16:31 -
引用なし
パスワード
   AA列を作業列として・・

Sub Del_R()
　 Application.ScreenUpdating = False
　 On Error Resume Next
　 With Range("A1", Range("A65536").End(xlUp)).Offset(, 26)
　　　.Formula = _
　　　"=IF(OR(RIGHT(A1,1)=0,RIGHT(A1,1)=1,RIGHT(A1,1)=4,RIGHT(A1,1)=7),1,"""")"
　　　.SpecialCells(3, 1).EntireRow.Delete
　　　.ClearContents
　 End With
　 Application.ScreenUpdating = True
End Sub
【26739】Re:セル内の一部を検索し、その後行を削...
お礼  Ｔ  - 05/7/15(金) 16:34 -
引用なし
パスワード
   Jakaさんこんにちは。

やりたい事が出来ました（＾ｏ＾）/
本当にありがとうございましたｍ（＿＿）ｍ
【26741】Re:セル内の一部を検索し、その後行を削...
回答  りん E-MAIL  - 05/7/15(金) 16:42 -
引用なし
パスワード
   Ｔ さん、こんにちわ。

>【内容】
>　例）A行に1000〜1009までの数字があり、その数字の下１桁が0・1・4・7を
>　　　含む行を削除したい。

1000〜1009の数字だということなので、普通に分岐しました。
Sub test()
　 Dim r1 As Range, Rmax&, RR&
　 Rmax& = Cells(Rows.Count, 1).End(xlUp).Row
　 Set r1 = Cells(Rmax& + 1, 1)
　 For RR& = 1 To Rmax&
　　　Select Case Cells(RR&, 1).Value
　　　　 Case 1000, 1001, 1004, 1007
　　　　　　Set r1 = Application.Union(r1, Cells(RR&, 1))
　　　End Select
　 Next
　 r1.EntireRow.Delete
　 Set r1 = Nothing
End Sub

考えている間に解決してました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9553 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free