標題: 截取A欄內最後一個數字以後的字串(結果在B欄) [打印本頁]

---

作者: leiru    時間: 2018-4-10 10:25     標題: 截取A欄內最後一個數字以後的字串(結果在B欄)

截取A欄內最後一個數字以後的字串(結果在B欄)

---

作者: ikboy    時間: 2018-4-10 12:11

try this:

1. Sub zz()
   
2. Dim ar, d As Object, rp As Object
   
3. ar = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row).Value
   
4. With CreateObject("vbscript.regexp")
   
5.     .Pattern = "\b[^\d\w]+"
   
6.     For i = 1 To UBound(ar)
   
7.         If .test(ar(i, 1)) Then Debug.Print .Execute(ar(i, 1))(0)
   
8.     Next
   
9. End With
   
10. End Sub

複製代碼

---

作者: leiru    時間: 2018-4-10 12:50

請問是否可以用函數解答,感恩

---

作者: 准提部林    時間: 2018-4-10 13:11

陣列公式〔Shift + Ctrl → Enter〕三鍵
=MID(A2,MATCH(1,-MID(0&A2,ROW($1:$59),1)),99)

---

作者: leiru    時間: 2018-4-10 15:56

回復 4# 准提部林


    請問ROW($1:$59)是指第一列至第59列嗎?若是,那為何要1至59列

---

作者: Hsieh    時間: 2018-4-10 16:14

回復 5# leiru


    B2=MID(A2,IFERROR(LOOKUP(2,1/ISNUMBER(--MID(A2,ROW($1:$255),1)),ROW($2:$256)),1),255)

---

作者: 准提部林    時間: 2018-4-10 21:31

回復 5# leiru


文字串的第1~第59個字元, 若字元數可能超過59個字, 自行擴增~~

---

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