Question

求助您一个VB批量替换EXCEL中关键字算法

生死魔大神您好！
我迫切需要（本科生论文）一个VB的算法：批量替换EXCEL中关键字。。。
我看到您之前的一个回答已经实现了我的需求，但是你发的是一个可执行文件，可以劳驾您把这个程序的源码，或者算法给我吗，我的毕业设计程序就差这一个功能了，，，
您之前回答的链接：
https://zhidao.baidu.com/question/1924664561254986227.html?fr=iks&word=vb%D6%D0Excel%CC%E6%BB%BB%B5%C4%D3%EF%B7%A8&ie=gbk
我的是vs2012，网上很多的代码都有版本问题未实现需求
拜托了，大神！

Answer 1

Sub s()
    arr = Array("a", "b", "c")
    brr = Array("1", "2", "3")
    For i = 0 To UBound(arr)
    ActiveSheet.UsedRange.Replace arr(i), brr(i)
    Next
End Sub