从一堆数据当中导出特定字符后的数据

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, r&
   
    ar = Split([A1].Value, "+")
    ReDim br(1 To UBound(ar) + 1, 1) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(.+)(\d{4}-\d{2}-\d{2})"
        For i = 0 To UBound(ar)
            If .test(ar(i)) Then
                r = r + 1
                br(r, 0) = .Execute(ar(i))(0).submatches(0)
                br(r, 1) = .Execute(ar(i))(0).submatches(1)
            End If
        Next i
    End With
   
    [A5].Resize(r, 2) = br
    Beep
End Sub

gwjkkkkk

参与一下。。。

Askinofblue

给大家一个最新颖的解题方式，这个方式可以和前面的函数，VBA方法做个比较，看看是不是很方便呢



使用表堆堆来解这一题，表堆堆，百度搜一下，易学易用，快来感受一下吧