EXCEL VBA

質問

どうもです。
EXCELのVBAのソースで部分一致文字列のIF文の
書き方を教えてもらいたいのですが、どなたか
よろしくお願いいたいます。
列Aと、列Bで
たとえば、列Aの文字列AAAと、
列BのAAABがTrueになればいいのですが、
どうしたらいいでしょうか？

回答No.2

zap35

Instr関数を使用するのが一般的と思います。質問にある例のように B⊃A の場合は
Sub Macro1()
　If InStr(Range("B1"), Range("A1")) > 0 Then
　　MsgBox ("部分一致")
　Else
　　MsgBox ("一致しません")
　End If
End Sub

A⊂B、B⊃Aの両方共検出するなら
　If InStr(Range("B1"), Range("A1")) > 0 Or _
　　　InStr(Range("A1"), Range("B1")) > 0 Then
になります

回答No.1

merlionXX

Sub TEST1()
With ActiveSheet
MsgBox .Range("B1").Value Like "*" & .Range("A1").Value & "*"
End With
End Sub