Q&A
n文字列数と条件に加えればどうでしょか
前提・実現したいこと
● 前提
Excelで、似ている文字列群の中から
任意の単語を検索し
その位置（座標）が知りたい
- 文字列群（Excelのシート1 / マス目B1:B3）
AAAB
AAA
AAAC
- 検索したい文字（Excelのシート2 / マス目E27）
AAA
ExcelのMATCH関数やVBAのFIND関数で
"完全一致"を使って検索しました。
ですが、文字列群の上の行から順に検索されるため
「AAA」ではなく「AAAB」の位置が返ってきてしまいます。
● 実現したいこと
Excelで、文頭から途中まで同じ文字列群の中から
任意の単語1つ（文頭から文末まで完全一致する）を検索し
その位置（座標）が知りたい
試したこと
ExcelのMATCH関数やVBAのFIND関数を試した。
※ 正規表現でできるならその方法を教えて欲しいです。
"完全一致"を使って検索できるが
文字列群の上の行から順に検索されるため
「AAA」ではなく「AAAB」の位置が返ってきてしまう
回答3件
0
関数使わずに、単純比較。 速度は遅い？？
VBA
1Dim sh1 As Worksheet 2Dim sh2 As Worksheet 3Set sh1 = Worksheets("Sheet1") 4Set sh2 = Worksheets("Sheet2") 5 6Dim S As String 7S = sh2.Range("E27").Text 8 9Dim target As Range 10For Each target In sh1.Range("B1:B3") 11 If S = target.Text Then 12 Debug.Print target.Row 13 Exit Sub 14 End If 15Next
投稿2020/03/30 09:47
総合スコア392
0
VBAでも普通に2が返りますね。
vba
1 'MATCH関数 2 MsgBox WorksheetFunction.Match("AAA", Range("B1:B3"), 0) 3 4 'Findメソッド 5 MsgBox Range("B1:B3").Find("AAA", LookAt:=xlWhole).Row
投稿2020/03/30 08:45
編集2020/03/30 08:49
総合スコア33790
0
ベストアンサー
「AAA」ではなく「AAAB」の位置が返ってきてしまう
普通に「=MATCH(E1,B1:B3,0)」で2が返ってきませんか？
ワイルドカード文字が検索文字に含まれる場合=MATCH(SUBSTITUTE(SUBSTITUTE(E1,"?","~?"),"*","~*"),B1:B3,0)
※sheet1のE1に検索対象を入れています。
VBAならRange.Findで2,2が返りませんか？
※ワイルドカード文字が検索文字列に含まれる場合は邪魔くさいので ワークシート関数のFindを使った方がいいです。
VBA
1Sub Macro1() 2 Dim target As Range 3 Set target = Range("B1:B3").Find(What:=Range("E1").Text, _ 4 LookAt:=xlWhole, MatchCase:=True) 5 Debug.Print target.Row & "," & target.Column 6End Sub
投稿2020/03/30 08:33
編集2020/04/02 09:01
総合スコア7914
Y.H.様
ご確認いただきありがとうございます。
A, B, Cの文字列の場合ですと
その通りで'2'が返ってきました。
（自分も今知りました。）
ですが、実際は下記のような文字列を検索したいのです。
- 検索したい文字
/*Hoge*//*HUGA_HUGA_HUGA*/
- 検索する文字列群
/*Hoge*//*HUGA_HUGA_HUGA_ABC*/
/*Hoge*//*HUGA_HUGA_HUGA*/
/*Hoge*//*HUGA_HUGA_HUGA_DEF*/
そうするとY.H.様がやってくれたケースでも
'1'が返ってくるのでそれが分からず。。。
*,?はワイルドカードなので
=MATCH(SUBSTITUTE(SUBSTITUTE(E1,"?","~?"),"*","~*"),B1:B3,0)
とかすればできそうですね。
Y.H.様
Range.Findを使用した場合、
下記のような文字列でも
(2, 2)が返ってくるのでしょうか。
- 検索したい文字
/*Hoge*//*HUGA_HUGA_HUGA*/
- 検索する文字列群
/*Hoge*//*HUGA_HUGA_HUGA_ABC*/
/*Hoge*//*HUGA_HUGA_HUGA*/
/*Hoge*//*HUGA_HUGA_HUGA_DEF*/
Y.H.様
ありがとうございます！
まずは簡易的に確認させていただきましたところ
「=MATCH(SUBSTITUTE(SUBSTITUTE(E1,"?","~?"),"*","~*"),B1:B3,0)」
を使用すると、
本当に検索したい、完全一致の文字の位置が返ってきました。
VBAのRange.FIndは、After引数が邪魔くさいので
VBAからワークシート関数のFind（WorksheetFunction.Match）を使う方がいいでしょうね。
やってることは「=MATCH(SUBSTITUTE(SUBSTITUTE(E1,"?","~?"),"*","~*"),B1:B3,0)」
と同じです。
Dim str As String
str = Replace(Range("E1"), "?", "~?")
str = Replace(str, "*", "~*")
Dim ret As Integer
ret = WorksheetFunction.Match(str, Range("B1:B3"), 0)
Debug.Print ret
Y.H.様
str = Replace(Range("E1"), "?", "~?")
str = Replace(str, "*", "~*")
上記について解説していただけますと幸いです。
”Replace(Range("E1"), "?", "~?")” で、E1範囲の文字を置き換えようとしていることは分かりますが
なぜ "?" なのかが理解できていません。
下記などは参照してみたのですが、もう少し詳しく教えていただけませんか。
https://qiita.com/Yinaura/items/eed08b8cf9b82160a202
"?"は任意の１文字にマッチします。 "?"自体を検索したい場合は"~?"と~でエスケープします。
"*"は任意の０文字以上にマッチします。 "*"自体を検索したい場合は"~*"と~でエスケープします。
普通にExcelで[CTRL]+[F]で検索した場合も同じです。
セルA1に"ABCD" 、セル A2に"AB?CD" を入れて、"B?"で検索したときと、"B~?"で検索したときの動作を比較してみてください。前者はA1,A2両方マッチしますが、後者はA2のみマッチします。
> 下記などは参照してみたのですが、もう少し詳しく教えていただけませんか。
> https://qiita.com/Yinaura/items/eed08b8cf9b82160a202
この記事は正規表現の?と*の説明です。
ExcelのFindで指定できるのはワイルドカードの?と*です。
https://support.office.com/ja-jp/article/match-%E9%96%A2%E6%95%B0-e8dffd45-c762-47d6-bf89-533f4a37673a
「ワイルドカード」でページ検索してみてください。
Y.H.様
ありがとうございます！
"~"を前に付けるとワイルドカードとしてではなく
"*"や"?"を検索したい文字として認識してくれてたのですね。
下記のReplace関数は、SUBSTITUTE関数で良いかと思っていますが
合っていますか？
Dim str As String
str = Replace(Range("E1"), "?", "~?")
str = Replace(str, "*", "~*")
Dim ret As Integer
ret = WorksheetFunction.Match(str, Range("B1:B3"), 0)
Debug.Print ret
> 下記のReplace関数は、SUBSTITUTE関数で良いかと思っていますが
ここで使用しているのはVBAのReplace()関数です。
ワークシート関数のSUBSTITUTE()を使用する場合は
WorksheetFunction.SUBSTITUTE() を使用してください
分かりました。
VBAかワークシートで使う関数は異なりました。
教えていただきありがとうございます！
あなたの回答
tips
プレビュー
