mysql - VBA 中是否有等效的 MySQL %(近似值)？

Question

我想要一个 VBA 查看单元格并使用 % 确定单词 XXX 是否出现在其中的任何位置。如果是，我希望 VBA 将整个单元格更改为单词 YYY。

谁能帮我解决这个问题？

Answer 1

如果您只需要更改 1 个单元格的值，则使用 InStr() 函数:

If InStr(1, Cells(1, 1).Value, "xxx")>0 Then Cells(1, 1).Value="xxx"

显然，将 Cells(1, 1).Value 替换为您的单元格引用。

如果您需要检查多个单元格，请使用 Range.Find方法:

Dim firstAddress As String
With Worksheets(1).Range("a1:a500") 
    Set c = .Find("xxx", lookin:=xlValues) 
    If Not c Is Nothing Then 
        firstAddress = c.Address 
        Do 
            c.Value = "xxx" 
            Set c = .FindNext(c) 
        Loop While Not c Is Nothing And c.Address <> firstAddress 
    End If 
End With

同样，将 Worksheets(1).Range("a1:a500") 替换为您自己的范围引用。