Question

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

E.g。

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

如果部分单元格匹配变量那么

2 个答案: