人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

はじめまして。

エクセル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


●質問者: 匿名質問者
●カテゴリ:コンピュータ
○ 状態 :キャンセル
└ 回答数 : 0/0件

回答がありません
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ