[算表] 取代 利用參考對照表vba
軟體: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://www.ptt.cc/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
→
02/24 20:49, , 1F
02/24 20:49, 1F
→
02/24 20:49, , 2F
02/24 20:49, 2F
→
02/24 20:50, , 3F
02/24 20:50, 3F
→
02/24 20:58, , 4F
02/24 20:58, 4F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
