求一个vba，能批量把“孙悟空”“唐僧”“沙和尚”白龙马、白骨精替换成“西游记”...

ttiemike

参与一下。。。。。。

sunfei00426

ttiemike 发表于 2024-11-12 10:34
参与一下。。。。。。

感谢大神，膜拜

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&
   
    br = [{",孙悟空,唐僧,沙和尚,白龙马,白骨精,","西游";",刘备,赵云,张飞,孙权,","三国";",鲁智深,李逵,我有用,","水浒"}]
    ar = [A1].CurrentRegion.Value
   
    For i = 2 To UBound(ar)
        ar(i, 2) = Empty
        For j = 1 To UBound(br)
            If InStr(br(j, 1), "," & ar(i, 1) & ",") Then
                ar(i, 2) = br(j, 2): Exit For
            End If
        Next j
    Next i
   
    [d1].CurrentRegion.Clear
    [d1].Resize(UBound(ar), 2) = ar
    Beep
End Sub

gwjkkkkk

参与一下。。。