要求VBA查找到"小王"在前面增加"特别"内容。

HHAA

谢谢各位大力支持。

Yalishanda30

HHAA 发表于 2023-7-24 10:36
对的。

好吧。。。。。。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&
    With [A1].CurrentRegion
        ar = .Value
        For i = 2 To UBound(ar)
             If ar(i, 3) = "小王" And InStr(ar(i, 2), "特别") = False Then
                  ar(i, 2) = "特别" & ar(i, 2)
             End If
        Next i
        .Value = ar
    End With
    Beep
End Sub