エクセル内で複数の文字(50個ぐらい)を一括で検索したい

解決済

質問者：orangeyo
質問日時：2009/04/07 01:42
回答数：5件

タイトル通りなのですが、エクセル内の文字列で
特定の複数(50個ぐらい)の文字を一括検索したいのですが、
どうすれば検索できますか？
決して検索後に、別の文字に置き換えや、
複数のエクセルを一括検索したいとまでは言いません。
一つのエクセル内で複数(50個ぐらい)の文字を検索し、
ヒットしてくれれば後はヒットした文字列を手動で
削除していくので、検索できるだけで構わないです。

もちろん贅沢を言えば、ヒットした文字列の
文字色ｏｒ文字列の枠内か枠が色付きになってくれると
ひと目でヒットしている場所が分かり、助かるのは
事実ですが、簡単にできる方法ってありますか？
複雑なマクロを使うことになるのでしょうか？

どなたかご存知のかたがいらっしゃれば
教えていただけないでしょうか？

なにぶん無知なほうなので、面倒かと思いますが、
具体的に教えていただけると幸いに思います。
どうぞよろしくお願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.5ベストアンサー

回答者： merlionXX
回答日時：2009/04/07 11:37

No2 merlionXXです。

> 検索したい複数の文字はどこに設定すればよろしいでしょうか？

「A1セルからA50セルまでの各セルにそれぞれ検索したい文字があるとします。」と書いておいたのですが、意味が伝わらなかったのでしょうか？
A１からA50まのの各セルに設定してください。
なお、検索範囲はマクロ実行前に選択（セレクト）しておいてくださいね。

> 後、例：16F～70Fなど、範囲を決めての英数字の検索等も可能ですか？

では、16F～70Fを検索するマクロです。

Sub 連続検索02()
For n = 16 To 70 '16～70まで
Set c = Selection.Find(What:=n & "F", LookAt:=xlPart) '選択範囲を検索（16F～70F）
If Not c Is Nothing Then 'あったら
fAd = c.Address 'セル番地を控える
Do '繰り返す
i = i + 1 'カウント
c.Interior.ColorIndex = 8 'セル着色
Set c = Selection.FindNext(c) '連続検索
Loop Until c.Address = fAd '一巡するまで'繰り返し
End If
Next n '次の検索文字で繰り返す
Set c = Nothing
MsgBox i & "件を発見しました。", vbInformation, " （￣ー￣）v"
End Sub

- 4
- 件

通報する

この回答へのお礼

再度ご回答していただき、ありがとうございます！

>「A1セルからA50セルまでの各セルにそれぞれ検索したい
>文字があるとします。」と書いておいたのですが、
>意味が伝わらなかったのでしょうか？
　違う意味に履き違えていたみたいで、
　理解できていませんでした；ごめんなさい；

書いていただいていた通りに実行したところ、
完璧に検索できました！感動です♪
16F～70Fの検索までご親切に教えていただき、
本当に感謝の気持ちでいっぱいですm(。_。；))m

どうもありがとうございました(o*。_。)o

通報する

お礼日時：2009/04/07 13:28

No.4

回答者： mu2011
回答日時：2009/04/07 10:25

次の方法は如何でしょうか。

（１）特定の文字列を別シートのA1:A10に設定、その範囲を選択した状態で名前ボックス（数式バーの左隣欄）をクリックして任意名称（仮に特定文字）を入力
（２）検索範囲（仮にA1:C50)を選択→書式→条件付き書式→「数式が」、=VLOOKOP(A1,特定文字,1,FALSE)=A1→書式→パターンタブで任意色を選択→ＯＫ

- 4
- 件

通報する

この回答へのお礼

ご回答、ありがとうございます＾＾

ご丁寧に書いていただき、とても感謝致します。
ただ、私のやり方が悪いせいかうまく出来ませんでした；；

せっかくご回答いただいたのに、思うようにならず、
申し訳ございません；；

ご回答ありがとうございました(o*。_。)o

通報する

お礼日時：2009/04/07 11:41

No.3

回答者： mike_g
回答日時：2009/04/07 10:22

[回答番号：No.1この回答への補足]に対するコメント、

式「＝COUNTIF（Z1:Z50,A1)=1」は =COUNTIF($Z$1:$Z$50,A1)>0 とするのが正しいです。

- 2
- 件

通報する

この回答へのお礼

回答、ありがとうございます＾＾

tortue2009様の補足とゆうことで、tortue2009様の
情報を元に式を実行させてもらってみたところ、
無事に検索が出来ました♪ 色まで付いて感動です！

ありがとうございました＾＾

通報する

お礼日時：2009/04/07 11:25

No.2

回答者： merlionXX
回答日時：2009/04/07 10:13

複雑ではないマクロはどうでしょう？

A1セルからA50セルまでの各セルにそれぞれ検索したい文字があるとします。
検索したい範囲を選択した上で下記のマクロを実行してみてください。

Sub 連続検索()
For Each r In Range("A1:A50") '指定の各検索文字につき
Set c = Selection.Find(What:=r.Value, LookAt:=xlPart) '選択範囲を検索
If Not c Is Nothing Then 'あったら
fAd = c.Address 'セル番地を控える
Do '繰り返す
i = i + 1 'カウント
c.Interior.ColorIndex = 8 'セル着色
Set c = Selection.FindNext(c) '連続検索
Loop Until c.Address = fAd '一巡するまで'繰り返し
End If
Next r '次の検索文字で繰り返す
Set c = Nothing
MsgBox i & "件を発見しました。", vbInformation, " （￣ー￣）v"
End Sub

この回答への補足

回答ありがとうございます＾＾
ご丁寧に書いていただき、感謝いたします。

私はマクロにほとんど携わったことがないのですが、
一発で出来そうに思い、私にもできそうなら
是非やってみたいと思いました。
ただ、検索したい複数の文字はどこに
設定すればよろしいでしょうか？
後、例：16F～70Fなど、範囲を決めての
英数字の検索等も可能ですか？
(無理なら例：16Fから70Fまで一つ一つでも構いません。)
質問だらけで申し訳ございません；；

補足日時：2009/04/07 11:08

通報する

- 2
- 件

通報する

No.1

回答者： tortue2009
回答日時：2009/04/07 05:50

条件として

特定の複数(50個ぐらい)の文字を一括検索する
５０個を　どこかのセル範囲に入力する
例：Ｚ１：Ｚ５０セル範囲
調べたい文字列のセル範囲が　Ａ１：Ｘ５０の場合

A1:X50を　ドラッグ（範囲選択）してから
ツールバー　［書式］→［条件付き書式］で
［数式が▼］にして
＝COUNTIF（Z1:Z50,A1)=1
［書式］クリック　
［セルの書式設定］で
文字色ｏｒ文字列の枠内か枠が色付き
（お好きなように）

この回答への補足

とても分かりやすく回答していただき、
ありがとうございます＾＾
分かりやすく丁寧に書いていただいたので、
無知な私でもとても操作がやりやすかったです。

‥しかし、書いていただいた通りに実行したのですが
なぜか何も起こりませんでした‥；；
おそらく私のやり方が悪いと思いますが、
何度繰り返してもダメでした‥；；

せっかく回答していただいたのにすみません；；
でも、分かりやすい説明にとても感謝しています(*^-^*)
ありがとうございました。

補足日時：2009/04/07 09:53

通報する