匿名質問者
匿名質問者匿名質問者とは「匿名質問」を利用して質問した質問者。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら

はじめまして。


エクセルVBAでデータ検索をしたいと考えています。
データは4000行ほどあります。

任意の文字列でたとえば「猫 犬」と入力するとそれが含まれた行が選択されるようにしたいのですが、うまくいきません。

現状、選択はされますが、1つのワードに対して1行しか選択されません。
初心者のため、どこを修正すればいいのか見当がつかないため、教えていただけると大変助かります。
必要のない文などもあるかもしれません。

Private Sub botan1_Click()

Dim Str As String
Dim ArrayStr() As String
Dim word As Variant
Dim rng As Range
Dim FoundAddr() As String

t = Box1
Str = Replace(t, " ", " ")
ReDim Preserve ArrayStr(4)
ArrayStr() = Split(Str, " ")
MaxRow = Range("B2").End(xlDown).Row

For Each word In ArrayStr
Set rng = Cells.Find(word, LookAt:=xlPart)
p = rng.Address
Range(p).Select
o = rng.Row & ":" & rng.Row
Do
ReDim Preserve FoundAddr(i)
FoundAddr(i) = o
Set word = Cells.FindNext(After:=ActiveCell)
i = i + 1
If word Is Nothing Then Exit Do
Loop Until rng.Address = p
Next
Range(Join(FoundAddr, ",")).Select
End Sub

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2015/02/16 10:46:46
  • 終了:2015/02/23 10:50:03

回答(0件)

回答はまだありません

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません