返回列表 上一主題 發帖

[發問] SUBSTITUTE-VBA使用方式請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2026-2-12 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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         
.............
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2026-2-12 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
5#
發表於 2019-2-21 09:46 | 只看該作者
DEAR  准提部林  大大
100%符合需求  THANKS*10000
羅

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
4#
發表於 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

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2026-2-12 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2019-2-20 14:56 | 只看該作者
DEAR 准提部林 大大
SORRY 小弟也知上傳檔案較易明暸問題
唯小弟使用公司電腦.有LOCK無法上傳檔案SORRY*10000
羅

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2019-2-20 10:10 | 只看該作者
建議上傳檔案~~

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題