if-statement - 如果部分单元格匹配变量，则

Question

我试图弄清楚如何编写 if 语句，以便如果变量与单元格的一部分匹配，则满足条件并运行脚本。

例如

A1 包含“aa ss dd”

A2 包含“dd ss dd”

A3 包含“aa”

变量 v = aa

目前我有一个与整个单元格匹配的语句：

如果 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