vba字符串用replace模糊替换

一把小刀闯天下

'应该是用split来做的，给你来个暴力点的
Sub 提取日期()
  x = "很长很长其它的内容  登记日期：2017  年  12 月 28 日"
  For i = 1 To Len(x)
    If Not IsNumeric(Mid(x, i, 1)) Then Mid(x, i, 1) = Space(1)
  Next
  x = Replace(x, Space(1), vbNullString)
  MsgBox Left(x, 4) & "年" & Mid(x, 5, 2) & "月" & Right(x, 2) & "日"
End Sub

duquancai

Option Explicit
Sub test()
    Dim reg As Object, sr$
    sr = "很长很长其它的内容  登记日期：2017  年  12 月 28 日"
    Set reg = CreateObject("VBScript.Regexp")
    reg.Pattern = "^[\s\S]*?登记日期："
    MsgBox reg.Replace(sr, "")
End Sub

wdpfox

学习中，谢谢老师们！