Excel VBA質問箱 IV

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

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


48241 / 76732 ←次へ | 前へ→

【33427】文字列を含む行全てを選択するマクロ
質問  GED  - 06/1/11(水) 22:03 -

引用なし
パスワード
   質問させてください
知り合いに頼んで、ある文字列を含む行を全て選択するマクロを作ってもらいました
下に記したものがそのマクロです
実際に実行してみると、単純なサンプルではうまく動きました
A  B
xxx
a  xxx
b ←この行以外が選択される
xxx

しかし、同じ行に同じ文字列が2つ以上ある場合、うまく動かずマクロがとまってしまいました
A  B
xxx xxx ←この行のみ選択され、マクロがとまる
a  xxx
b 
xxx

私はVBAに関して素人なので、どこを直せば良いのかさっぱりわかりません
知り合いに聞けばよいのですが、しばらく仕事が忙しいようで連絡がとれていません
解決法を教えていただけないでしょうか?

Option Explicit

Sub E_trade()
   Dim sFirstAddress As String
   Dim rFindCell   As Range
   Dim rMultiRange  As Range

   With ActiveSheet
     Set rFindCell = .Cells.Find(What:="xxx")
     Set rMultiRange = Nothing

     If Not rFindCell Is Nothing Then
       sFirstAddress = rFindCell.Address
       Do
         If rMultiRange Is Nothing Then
           Set rMultiRange = rFindCell.EntireRow
         Else
           Set rMultiRange = Application.Union(rMultiRange, rFindCell.EntireRow)
         End If

         Set rFindCell = .Cells.FindNext(rFindCell)
       Loop While Not rFindCell Is Nothing And rFindCell.Address < sFirstAddress
     End If
     If Not rMultiRange Is Nothing Then rMultiRange.Select
   End With
End Sub

0 hits

【33427】文字列を含む行全てを選択するマクロ GED 06/1/11(水) 22:03 質問
【33428】Re:文字列を含む行全てを選択するマクロ かみちゃん 06/1/11(水) 22:20 回答
【33429】Re:文字列を含む行全てを選択するマクロ GED 06/1/11(水) 22:28 お礼

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