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

yf_home

   批量替换(不是一条一条的替换),求VBA语句。

   测试附件： 批量替换.zip (2.18 KB, 下载次数: 5)

2013-8-16 16:18 上传

点击文件名下载附件


///

最佳答案

月排行榜 / 总排行榜

爱疯

2013-8-16 17:44

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

跳转到最佳答案楼层

lyf7276

哥们，没有规律呀？为什么第二个张三替换，第二个小六就不替换了？

sliang28

按照数据源的顺序替换成1~n组，如果你想在原始数据上显示，将代码最后一句B3改成A3

yf_home

sliang28 发表于 2013-8-16 15:54
按照数据源的顺序替换成1~n组，如果你想在原始数据上显示，将代码最后一句B3改成A3

附件内没有代码呀。

yf_home

lyf7276 发表于 2013-8-16 15:38
哥们，没有规律呀？为什么第二个张三替换，第二个小六就不替换了？

数据有规则，是我一楼的附件有点问题（疏忽了，弄了两个张三）
已经在一楼更正！
谢谢！

sliang28

yf_home 发表于 2013-8-16 16:18
数据有规则，是我一楼的附件有点问题（疏忽了，弄了两个张三）
已经在一楼更正！
谢谢！

难道刚才没有保存？
又写了一次，{:112:}

sliang28

添加了一句代码，满足你更新的附件。

yf_home

我想这样实现，比如定义：

Public Const OldName AS String = "张三,李四,王大,小六,赵七"
Public Const NewName AS String = "AA,BB,AC,AD,QQ"    '''' 要替换显示的内容

在过程中，将OldName  替换成NewName  。

yf_home

sliang28 发表于 2013-8-16 16:55
添加了一句代码，满足你更新的附件。

这样不适用，因为如果人员排列的顺序不一样的话，则组别就产生了变化。
而实际上，人员与组别是绝对的对应关系。

yf_home

感谢版主指正，已经更正。