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

Question

我希望 VBA 浏览一个单元格并XXX使用%. 如果是，我希望 VBA 将整个单元格更改为 word 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")为您自己的范围参考。