随手VBA之批量修改替换

<大师姐 coffee="">

数据区A列有很多数据

需要替换为标准区

以B列为准

替换原则

中文相同则换为B列的数字

结果如C列

eg:A1与B20中文相同

所以03改为21如C1

如下图

跟貓ゞ哥走起

一键秒杀

嘿嘿！

下面带来土豆哥玩法

循环杀马特

字典杀马特

数组杀马特

分离神器杀马特

Sub myTest()

Dim D As Object

Dim X As Integer

Dim Arr(), Brr() As String

    X = Range('B1000').End(xlUp).Row

    Arr = Range('B1:B' & X).Value

    Set D = CreateObject('Scripting.dictionary')

    For X = 1 To UBound(Arr)

        Brr = Split(Arr(X, 1), '-')

        If Not D.EXISTS(Brr(1)) Then D.Add Brr(1), Brr(0)

    Next

    X = Range('A10000').End(xlUp).Row

    Arr = Range('A1:A' & X).Value

    For X = 1 To UBound(Arr)

        Brr = Split(Arr(X, 1), '-')

        Arr(X, 1) = D.Item(Brr(1)) & '-' & Brr(1)

    Next

    Range('C1').Resize(UBound(Arr)).Value = Arr

End Sub

各种思路！

各种解法！

有没有触动啊！

加入我们

不虚此行

！

传播正能量：操作方便才是硬道理！

<='' p=''>

貓ゞ哥>

您的评论，

您的分享，

您的转发

就是我们最大的支持！