[已解决]批量替换的问题

爱疯

Public Const OldName As String = "张三,李四,王大,小六,赵七"
Public Const NewName As String = "AA,BB,AC,AD,QQ"    '''' 要替换显示的内容
Private Sub CommandButton1_Click()
    Dim x, y, z, d, i%, j%
    y = Split(OldName, ",")
    z = Split(NewName, ",")
    x = Range("A3:a" & Range("A65536").End(3).Row)
    Set d = CreateObject("scripting.dictionary")
        
    For i = LBound(y) To UBound(y)
        d(y(i)) = z(i)
    Next
   
    For i = 1 To UBound(x)
        x(i, 1) = d(x(i, 1))
    Next
   
    Range("B3").Resize(UBound(x), 1) = x
End Sub

爱疯

其它，没有替换。
你可以自己加

yf_home

感谢爱疯版主，结贴，谢谢。

guogongyi

不灵活，应该能随意对应替换，才好，而且在按照表格内的内容对应，不要写在代码中。

艾菲儿

aimeiling1986

学习！