如果部分單元格匹配變量然後

Question

我想弄清楚如何編寫一個if語句，以便如果一個變量匹配部分單元然後滿足條件和腳本運行。

E.g.

A1包含 「AA SS DD」

A2包含 「DD SS DD」

A3包含 「AA」

變量v = AA

目前，我有一份聲明中說匹配整個單元格：

If ActiveCell.Value = v Then ...

使用此代碼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