我已經盡力了，但我無法得到想要的結果，下面提到的是我必須執行 2 個功能的表
- 過濾掉“2022”之后的所有文本，因為我需要過濾掉實際檔案名和日期
- 過濾文本后，我需要用實際檔案名分割日期，圖片中提到了細節
我已經使用左右功能來洗掉文本，但不知何故我無法成功，
任何人都可以在這方面提供幫助嗎
uj5u.com熱心網友回復：
要在 VBA 中使用正則運算式，您必須將“Microsoft VBScript 正則運算式”添加到您的專案參考中。
然后你可以使用這個用戶定義的函式：
Public Function extractDate(rg As Range) As Date
Dim strDate As String:
strDate = extractText(" (\d{1,2} .{3} \d{4}) ", rg.text)
extractDate = strDate
End Function
Private Function extractText(pattern As String, text As String) As String
Dim regEx As RegExp: Set regEx = New RegExp
Dim regEx_MatchCollection As MatchCollection
Dim regEx_Match As Match
regEx.pattern = pattern
Set regEx_MatchCollection = regEx.Execute(text)
If regEx_MatchCollection.Count = 0 Then
extractText = vbNullString
Else
Set regEx_Match = regEx_MatchCollection(0)
extractText = regEx_Match.SubMatches(0)
End If
End Function
然后，您可以使用如下公式：
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/508013.html
下一篇：返回列表