海量数据去除非数字字符（四种方法）

如果在一列中存入不规则的海量数据，数字和字符串混合，现在需要提取数字，总共总结出下面四中方法，依据运行速度快慢依次排列，推荐使用前三种方法：

第一种：数组方法，速度最快

Sub y3231057_1()
  t = Timer
  Dim Arr, i&, j%, k&, S$, SS$, Str$
  Dim Arr1() As Single
    Arr = Range("A1:A" & [a65536].End(xlUp).Row)
    k = UBound(Arr)
    ReDim Arr1(1 To k, 1 To 1)
    For i = 1 To k
      S = Arr(i, 1)
      For j = 1 To Len(S)
        SS = Mid(S, j, 1)
        If SS Like "[0-9.]" Then
            Str = Str & SS
      Next j
      Arr1(i, 1) = Str
      Str = ""
    Next i
    [B1].Resize(k, 1) = Arr1
    [d65536].End(xlUp).Offset(1, 0) = Timer - t
 End Sub

第二种：正则表达式的方法，速度较数组方法稍慢

Sub y3231057_2()
  t = Timer
  Dim Arr, i&
  Dim Arr1() As Single
  Arr = Range("A1:A" & [a65536].End(xlUp).Row)
  k = UBound(Arr)
  ReDim Arr1(1 To k, 1 To 1)
  With CreateObject("VBSCRIPT.REGEXP")
    For i = 1 To k
      .Pattern = "你|是|限制|大小|自动|应用|以下"
      .Global = True
      Arr1(i, 1) = .Replace(Arr(i, 1), "")
    Next i
  End With
  [B1].Resize(k, 1) = Arr1
  [f65536].End(xlUp).Offset(1, 0) = Timer - t
 End Sub

第三种：遍历需转换字符，依据需转换字符批量转换方法，速度叫正则表达式方法稍慢

Sub y3231057_3()
    t = Timer
    Dim Arr
    Dim k As Integer
    Dim rng As Range
    Application.ScreenUpdating = False
    Arr = Array("你", "是", "限制", "大小", "自动", "应用", "以下")
    Set rng = Range("C1:C" & Sheet1.[C65536].End(xlUp).Row)
        For k = 0 To UBound(Arr)
            rng.Replace what:=Arr(k), replacement:=""
        Next
    Set rng = Nothing
    Application.ScreenUpdating = True
    [g65536].End(xlUp).Offset(1, 0) = Timer - t
 End Sub

第四种：依据单元格循环，一个一个转换方法，速度很慢，约为上面几种方法用时的几百倍

Sub y3231057_4()
    t = Timer
    Dim Arr
    Dim i As Long
    Dim k As Integer
    Arr = Array("你", "是", "限制", "大小", "自动", "应用", "以下")
    For i = 1 To [a65536].End(xlUp).Row
        For k = 0 To UBound(Arr)
            Cells(i, "C").Replace Arr(k), ""
        Next
    Next
    [e65536].End(xlUp).Offset(1, 0) = Timer - t
 End Sub