返回列表 上一主題 發帖

[發問] Split截取字元問題請教

rouber590324

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-4-15 11:29 | 只看該作者

[發問] Split截取字元問題請教

DEAR ALL 大大
1. 圖一字串使用  
Sub aaaaaaaaaaa()
Sheet1.Cells(1, 2) = Split(Sheet1.Cells(1, 1), "Y")(1)
End Sub
會抓取 Y後字串 -00788021
2.問題點
   小弟想抓取 X 與 Y中間之字串 -01062550
   該如何修改
3.煩不吝賜教  THANKS*10000

圖一
X-01062550Y-00788021
收藏 分享
羅

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
2#
發表於 2020-4-15 11:39 | 只看該作者
Sheet1.Cells(1, 2) = "-" & Split(Sheet1.Cells(1, 1), "-")(1)

TOP

rouber590324

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2020-4-15 11:53 | 只看該作者
DEAR 准大
1使用  Sheet1.Cells(1, 2) = "-" & Split(Sheet1.Cells(1, 1), "-")(1)
抓取出  -01062550Y   後方多一Y
3.煩不吝賜教  THANKS*10000
羅

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
4#
發表於 2020-4-15 12:56 | 只看該作者
回復 3# rouber590324

若每個字串都是"Y"
Sheet1.Cells(1, 2) = "-" & REPLACE(Split(Sheet1.Cells(1, 1), "-")(1),"Y","")

如果字串長度固定, 直接MID, 何必多此一舉!!

TOP

rouber590324

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
5#
發表於 2020-4-15 13:06 | 只看該作者
DEAR 准大
1.感謝回復.
Sheet1.Cells(1, 2) = "-" & REPLACE(Split(Sheet1.Cells(1, 1), "-")(1),"Y","")
OK  100%符合需求
2.您建議之MID因長度不同
   如下我需  MID+SEARCH 方可達成需求    THANKS*10000

  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 7) = Mid(Sheets("" & Sheet1.Range("A1") & ".nd").Cells(M, 1), 2, Application.Search("Y", Sheets("" & Sheet1.Range("A1") & ".nd").Cells(M, 1)) - 2)
羅

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題