ワイルドカードにしたくない

質問

例えばシートに

aaa
iii
***********
eee
ooo

と入って場合、「***********」ならヒットさせたいのですが

Sub test()
Dim myRow1 As Integer

With Sheets("Sheet1")
For myRow1 = 1 To .Cells(Rows.Count, "A").End(xlUp).Row

If .Cells(myRow1, 1) Like "***********" Then
MsgBox "ありました"
End If

Next myRow1
End With

End Sub

これだと、aaaの時点でヒットしてしまいます。

If .Cells(myRow1, 1) Like "~***********" Then
にすると、***********の行の時もヒットしません。

***********を文字列としてvbaで検索する方法はありますか？

回答No.2

mu2011 · ベストアンサー

Likeを使用しなければいいんじゃないの。

If Cells(i, 1) = String(Len(Cells(i, 1)), "*") Then

お礼

まずLEN関数で文字の数を数えて
Stringで繰り返してセルの値と一致させるのですね。有難うございます。

回答No.1

keithin

Sub macro1()
　Dim s As String
　Dim res As Range
　s = Application.Rept("~*", 11)
　Set res = Range("A:A").Find(what:=s, LookIn:=xlValues, lookat:=xlWhole)
　If res Is Nothing Then
　　MsgBox "NOT FOUND"
　　Exit Sub
　End If
　res.Select
End Sub

Sub macro2()
　Dim r As Long
　For r = 1 To Range("A65536").End(xlUp).Row
　If Cells(r, "A") Like Application.Rept("[*]", 11) Then
　　Cells(r, "A").Select
　　Exit Sub
　End If
　Next r
　MsgBox "NOT FOUND"
End Sub

＃こないだ同じご質問を投稿してませんでしたっけ。

お礼

2の方を採用しました。
同じ質問？
してないと思います。