vba 判断单元格是否有特定内容

Sub aaa()
Dim c As Range, st%, sp%, wordLen%
With WorksheetFunction
For Each c In Range("B1:B2000").Cells
    If .CountIf(c, "*AAA*") > 0 Then
        sp = .Search("AAA", c)
        st = .Max(1, sp - 10)
        wordLen = sp - st
        c.Offset(0, -1) = Mid(c, st, wordLen)
    ElseIf .CountIf(c, "*AAS*") > 0 Then
        sp = .Search("AAS", c)
        st = .Max(1, sp - 9)
        wordLen = sp - st
        c.Offset(0, -1) = Mid(c, st, wordLen)
    Else
        c.Offset(0, -1) = c
    End If
Next c
End With
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/e7yejjy2vevv37y3x7j.html