標題: 請問如何在A欄字串中,取出日期(顯示於B欄) [打印本頁]

---

作者: leiru    時間: 2018-6-20 10:33     標題: 請問如何在A欄字串中,取出日期(顯示於B欄)

請問如何在A欄字串中,取出日期(顯示於B欄)

---

作者: leiru    時間: 2018-6-20 10:33

回復 1# leiru

---

作者: ikboy    時間: 2018-6-20 11:03

UDF = zdate(a2)

1. Function zdate(rng As Range)
   
2. With CreateObject("vbscript.regexp")
   
3.     .Pattern = "\d{3}/\d{1,2}/\d{1,2}-?\d?"
   
4.     zdate = .Execute(rng.Value)(0)
   
5. End With
   
6. End Function

複製代碼

1. Sub datez()
   
2. Dim ar
   
3. ar = Range("a2:a" & [a1048576].End(3).Row).Value
   
4. With CreateObject("vbscript.regexp")
   
5.     .Pattern = "\d{3}/\d{1,2}/\d{1,2}-?\d?"
   
6.     For i = 1 To UBound(ar)
   
7.         ar(i, 1) = .Execute(ar(i, 1))(0)
   
8.     Next
   
9. End With
   
10. [b2].Resize(i - 1) = ar
    
11. End Sub

複製代碼

---

作者: 准提部林    時間: 2018-6-20 11:36

陣列(三鍵輸入)公式:
=MID(LEFT(A2,MATCH(1,-MID(A2,ROW($1:$19),1))),FIND("/",A2)-3,12)

---

作者: leiru    時間: 2018-6-20 17:16

回復 4# 准提部林


    謝謝

---

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