【Excel】【正则】判断手机号是否正确

发现导出的手机号，有部分存在问题，故想直接通过excel做正则的判断

先说结论：通过VBA实现了正则函数的嵌入，但实际效率非常低下，80万的数据跑了半小时（T14 十代i7）

第一步，找到VAB的函数（百度找的，找不到来源了）

vbscript 复制代码

Public Function RegExpMatch(input_range As Range, pattern As String, Optional match_case As Boolean = True) As Variant

   '存储结果的数组

    Dim arRes() As Variant

   '源单元格区域中当前行索引值

   '源单元格区域中当前列索引值

   '行数, 列数

    Dim iInputCurRow As Long

    Dim iInputCurCol As Long

    Dim cntInputRows As Long

    Dim cntInputCols As Long

    On Error GoTo ErrHandl

    RegExpMatch = arRes

   

    Set regex = CreateObject("VBScript.RegExp")

   

   regex.pattern = pattern

   regex.Global = True

   regex.MultiLine = True

   

    If True = match_case Then

       regex.ignorecase = False

    Else

       regex.ignorecase = True

    End If

   

   cntInputRows = input_range.Rows.Count

   cntInputCols = input_range.Columns.Count

    ReDim arRes(1 To cntInputRows, 1 To cntInputCols)

 

    For iInputCurRow = 1 To cntInputRows

        For iInputCurCol = 1 To cntInputCols

           arRes(iInputCurRow, iInputCurCol) = regex.Test(input_range.Cells(iInputCurRow, iInputCurCol).Value)

        Next

    Next

 

  RegExpMatch = arRes

  Exit Function

 

ErrHandl:

   RegExpMatch = CVErr(xlErrValue)

End Function