【Excelマクロ】任意の文字列を含むかどうかを判定するコード

　仕事をしていて任意の文字列が含んでいるかどうか（部分一致）を判定したくなり、いろいろ探した結果たどり着いたので自分用のメモとして記録を残しておきます。

任意の文字列を含むかどうかを判定するコード

Sub 任意の文字列を含むかどうかを判定するコード()

 Dim i As Integer

For i = 4 To 9

 If Cells(i, 3) Like "*2019年*" Then
  Cells(i, 4) = "○"
  Else: Cells(i, 4) = "×"
End If

Next i

End Sub

▽結果です。

応用：判定条件①どこかにある、判定条件②先頭にある、判定条件③末尾にある

• 判定条件①どこかにある　→　"*2019年*"
• 判定条件②先頭にある　→　"2019年*"
• 判定条件③末尾にある　→　"2019年*"

以上。