[算表] 取代 利用參考對照表vba

[ljuber (美少婦與女兒同學的故事)]

軟體: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
→ soyoso: range.replace加上lookat:=xlwhole，如區分大小寫則加上
→ soyoso: matchcase為真
→ soyoso: 另外迴圈應以sheets("比對").range("a" & i)<>""為條件
→ ljuber: 哇 可以了 感謝S大!!!