[發問] 請問該如何自動取代

leefing

如題
我已經有錄製取代的巨集，但是每次更新都要再按一次巨集，該如何把它改成自動變更
意思就是說  我按一次更新  ， 就會變台塑，可是DDE傳送是臺塑，所以我要把名字改成臺塑，用vlookup才找的到

1. Sub 摩根取代名字()
   
2. ' Macro4 Macro
   
3. '
   
4.     Cells.Replace What:="台塑", Replacement:="臺塑", LookAt:=xlWhole, _
   
5.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   
6.         ReplaceFormat:=False
   
7.         
   
8.     Cells.Replace What:="台化", Replacement:="臺化", LookAt:=xlWhole, _
   
9.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   
10.         ReplaceFormat:=False
    
11.     Cells.Replace What:="遠紡", Replacement:="遠東新", LookAt:=xlWhole, _
    
12.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    
13.         ReplaceFormat:=False
    
14. 
    
15. End Sub

複製代碼

leefing

回復 2# register313

可以自動取代了，謝謝R大

leefing

回復 4# GBKEE


    謝謝g大  ，這樣又多了一個方法可以使用了

問一個題外話，就是這個網站  證交所集中市場資訊
  我想要把這一頁的表格  匯到excel   ，現在的問題是我按匯進去  結果沒東西跑出來，  不知道能不能解決？