if-statement - セルの一部が変数に一致する場合

Question

変数がセルの一部と一致する場合に条件が満たされ、スクリプトが実行されるように、if ステートメントを作成する方法を見つけようとしています。

例えば

A1には「aa ss dd」が含まれています

A2には「dd ss dd」が含まれています

A3に「aa」が含まれています

変数 v = aa

現在、セル全体に一致するステートメントがあります。

If ActiveCell.Value = v その後...

このコードでは A3 が条件を満たしていますが、A1 もそれに一致させたいと考えています。何か案は？

Answer 1

If InStr(ActiveCell.Value, v) Then ...

Answer 2

これを試して：

Option Explicit

Sub MatchPartOfCell()
    Dim sSearch As String
    Dim rng As Range

    sSearch = "aa"
    Set rng = Range("A1")

    Do Until rng = ""
    If InStr(rng.Value, sSearch) > 0 Then
        rng.Offset(, 1).Value = "I contain aa."
    End If
        Set rng = rng.Offset(1)
    Loop
End Sub