作者ljuber (美少妇与女儿同学的故事)
看板Office
标题[算表] 取代 利用参考对照表vba
时间Fri Feb 24 19:01:43 2017
软体:excel
版本:2007
有个档案
https://drive.google.com/open?id=0BwCgrQhGgaw7bEFtZkRCNTNDR1k
就是有个比对工作表跟资料工作表
写了个巨集如下：
Sub Macro1()
Dim s '要被取代的字串
Dim d '取代过的字串
i = 1
While Sheets("资料").Range("A" & i) <> ""
s = Sheets("比对").Range("A" & i)
d = Sheets("比对").Range("B" & i)
Sheets("资料").Range("A:A").Replace What:=s, Replacement:=d
i = i + 1
Wend
MsgBox "取代完成,请切视窗查看结果"
End Sub
在比对工作表会有一个比对表
要把资料工作表取代掉
但是若比对工作表的条件有一样的
会一直取代掉
例如A 取代成apple
里面的E又会取代成为eason
变成appleason
不知道我要避免这种状况该怎麽写？
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.137.42.210
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1487934111.A.9F3.html
※ 编辑: ljuber (114.137.42.210), 02/24/2017 20:16:26
※ 编辑: ljuber (114.137.42.210), 02/24/2017 20:16:46
1F：→ soyoso: range.replace加上lookat:=xlwhole，如区分大小写则加上 02/24 20:49
2F：→ soyoso: matchcase为真 02/24 20:49
3F：→ soyoso: 另外回圈应以sheets("比对").range("a" & i)<>""为条件 02/24 20:50
4F：→ ljuber: 哇 可以了 感谢S大!!! 02/24 20:58