標題: [發問] SUBSTITUTE-VBA使用方式請教 [打印本頁]

---

作者: rouber590324    時間: 2019-2-19 14:22     標題: SUBSTITUTE-VBA使用方式請教

DEAR ALL 大大
1.如圖一  條件為  A欄內容=T45  AND 對應之列之內容包含 "成型"時
   將 "成型" 用 "灌孔" 取代
1.1 例  圖一  符合處為  B2需以  灌孔 A001 取代
                                         D2需以  灌孔 A894 取代
                                         B4需以  灌孔 A899 取代
                                         C4需以  灌孔 A356 取代
2.VBA如何達成  煩不吝賜教    THANKS*10000

圖一
A1=製程       B1=內容1         C1=內容2         D1=內容3............
A2=T45       成型   A001       包裝  B999         成型   A894      
A3=Q10      包裝  B9110      包裝  B234         包裝  B856         
A4=T45       成型   A899       成型  A356       包裝  B234         
.............

---

作者: 准提部林    時間: 2019-2-20 10:10

建議上傳檔案~~

---

作者: rouber590324    時間: 2019-2-20 14:56

DEAR 准提部林 大大
SORRY 小弟也知上傳檔案較易明暸問題
唯小弟使用公司電腦.有LOCK無法上傳檔案SORRY*10000

---

作者: 准提部林    時間: 2019-2-20 16:46

Dim xR As Range
Application.ScreenUpdating = False
For Each xR In Range([A2], [A65536].End(3))
    If xR = "T45" Then Range(xR(1, 2), xR(1, 4)).Replace "成型", "灌孔", Lookat:=xlPart
Next

---

作者: rouber590324    時間: 2019-2-21 09:46

DEAR  准提部林  大大
100%符合需求  THANKS*10000

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)