返回列表 上一主題 發帖

vba find 多條件 求教

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 »
發表於 2017-10-31 12:52 | 顯示全部帖子
回復 2# adrian_9832
可以用Split指令
Sub ex()
Dim x
x = Split(Sheets(1).Range("a1"), "/") 'PN/NN NUMBERING:24312(0-1)XX/4100602(0-1)XX輸入在Range("a1")當示範,利用字串內的"/"將字串拆開
x = Split(x(2), "XX")  '利用"XX"將4100602(0-1)取出
MsgBox x(0)
End Sub

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2017-11-6 12:40 | 顯示全部帖子
回復 5# adrian_9832
陣列形式
PN/NN NUMBERING:24312(0-1)XX/4100602(0-1)XX
當用"/"將字串拆開
x(0)=PN
x(1)= NN NUMBERING:24312(0-1)XX
x(2)=4100602(0-1)XX
在將x(2)用"XX"拆開
x(0)=4100602(0-1)

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題