VBA 正则表达式之日期金额提取秘籍

2023-11-30 08:00:01

数据海洋中的利刃：用 VBA 正则表达式提取日期和金额

潜入数据海洋

数据的世界浩瀚无边，就像一片汪洋大海，其中的宝藏价值连城。然而，在这些浩如烟海的信息中，找到我们想要的特定数据，犹如大海捞针。正则表达式，这一计算机语言中的利刃，能够轻松完成这项艰巨的任务。在本文中，我们将深入 VBA 正则表达式的奇妙世界，探寻如何提取日期和金额。

舞动日期：识别不同格式

日期是数据世界中的舞者，它们以不同的格式翩翩起舞。有些遵守着"yyyy-mm-dd"的优雅华尔兹，而另一些则偏爱"dd/mm/yyyy"的奔放伦巴。正则表达式轻盈地舞动，巧妙识别这些不同的格式。

金额的探戈：穿越货币符号和千分位

金额的探戈更为复杂，节奏轻快，变幻莫测。千分符如高低起伏的音符，小数点似跳跃的精灵，货币符号更添一抹异域风情。正则表达式在这场探戈中游刃有余，穿越货币符号和千分位的迷宫。

代码示例

提取日期

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If IsDate(Cells(i, 1)) Then
        Cells(i, 2) = Cells(i, 1)
    Else
        Res = Cells(i, 1)
        If Res Like "=.*" Then
            Res = Right(Res, Len(Res) - 1)
        End If
        If Len(Res) > 0 And InStr(1, Res, "/") > 0 Then
            Res = VBA.Split(Res, "/")
            If Len(Res(1)) < 3 Then
                Cells(i, 2) = CDate(Res(3) & "-" & Res(2) & "-" & Res(1))
            Else
                Cells(i, 2) = CDate(Res(1) & "-" & Res(2) & "-" & Res(3))
            End If
        End If
    End If
Next i

提取金额

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If IsNumeric(Cells(i, 1)) Then
        Cells(i, 3) = Cells(i, 1)
    Else
        Res = Cells(i, 1)
        Res = Replace(Res, ",", "")
        If Len(Res) > 0 And InStr(1, Res, ".") > 0 Then
            Res = VBA.Split(Res, ".")
            Cells(i, 3) = CCur(Res(1) & "." & Res(2))
        ElseIf Len(Res) > 0 Then
            Cells(i, 3) = CCur(Res)
        End If
    End If
Next i