返回列表 上一主題 發帖

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

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

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

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

小如

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
複製代碼

TOP

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

TOP

陣列公式〔Shift + Ctrl → Enter〕三鍵
=MID(A2,MATCH(1,-MID(0&A2,ROW($1:$59),1)),99)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 4# 准提部林


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

TOP

回復 5# leiru


    B2=MID(A2,IFERROR(LOOKUP(2,1/ISNUMBER(--MID(A2,ROW($1:$255),1)),ROW($2:$256)),1),255)
學海無涯_不恥下問

TOP

回復 5# leiru


文字串的第1~第59個字元, 若字元數可能超過59個字, 自行擴增~~
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

        靜思自在 : 信心、毅力、勇氣三者具備,則天下沒有做不成的事。
返回列表 上一主題