標題: [發問] Split截取字元問題請教 [打印本頁]

---

作者: rouber590324    時間: 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

---

作者: 准提部林    時間: 2020-4-15 11:39

Sheet1.Cells(1, 2) = "-" & Split(Sheet1.Cells(1, 1), "-")(1)

---

作者: rouber590324    時間: 2020-4-15 11:53

DEAR 准大
1使用  Sheet1.Cells(1, 2) = "-" & Split(Sheet1.Cells(1, 1), "-")(1)
抓取出  -01062550Y   後方多一Y
3.煩不吝賜教  THANKS*10000

---

作者: 准提部林    時間: 2020-4-15 12:56

回復 3# rouber590324

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

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

---

作者: rouber590324    時間: 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)

---

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