- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 16
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2024-10-26
|
3#
發表於 2018-6-20 11:03
| 只看該作者
UDF = zdate(a2)- Function zdate(rng As Range)
- With CreateObject("vbscript.regexp")
- .Pattern = "\d{3}/\d{1,2}/\d{1,2}-?\d?"
- zdate = .Execute(rng.Value)(0)
- End With
- End Function
- Sub datez()
- Dim ar
- ar = Range("a2:a" & [a1048576].End(3).Row).Value
- With CreateObject("vbscript.regexp")
- .Pattern = "\d{3}/\d{1,2}/\d{1,2}-?\d?"
- For i = 1 To UBound(ar)
- ar(i, 1) = .Execute(ar(i, 1))(0)
- Next
- End With
- [b2].Resize(i - 1) = ar
- End Sub
|
|
發表於 2018-6-20 11:36
| 