' Returns: -1 if NotNum, 0 if AreadyNum, 1 if ChangeToNum
' Change v only if Return 1
Function ConvertToNum(v) As Long
Dim x, s$, VT&
Static st&, RE As RegExp    ' https://vremya-ne-zhdet.ru/vba-excel/regulyarnyye-vyrazheniya/

    If (st = 0) Then
        st = 1: Set RE = New RegExp
        RE.Global = True: RE.Pattern = "[ . ]" ' ChrW(160) — in the end
    End If

    VT = VarType(v)
    If (VT = vbDouble) Then Exit Function   ' Any Num in Array from Sheet is Double
    If (VT <> vbString) Then GoTo er

    On Error Resume Next
    x = --v: If (Err.Number = 0) Then v = x: GoTo fn

    Err.Clear
    If Not RE.Test(v) Then GoTo er

    x = --RE.Replace(v, "")
    If (Err.Number = 0) Then v = x: GoTo fn
    Err.Clear

er: ConvertToNum = -1: Exit Function
fn: ConvertToNum = 1
End Function
'==================================================================================================
' Return count of changing cells
Function ConvertToNum_Rng(rng As Range) As Long
Dim arr, aOne(1 To 1, 1 To 1), a&, r&, c&, n&, fAr As Boolean
Dim AC&, ASU As Boolean, AEE As Boolean

    AC = Application.Calculation: Application.Calculation = xlCalculationManual
    AEE = Application.EnableEvents: Application.EnableEvents = False
    ASU = Application.ScreenUpdating: Application.ScreenUpdating = False

    For a = 1 To rng.Areas.Count
        arr = rng.Areas(a).Value
        If Not IsArray(arr) Then aOne(1, 1) = arr: arr = aOne
        
        For c = 1 To UBound(arr, 2)
            For r = 1 To UBound(arr, 1)
                If (ConvertToNum(arr(r, c)) = 1) Then n = n + 1: fAr = True
            Next r
        Next c
        
        If fAr Then fAr = False: rng.Areas(a).Value = arr
    Next a
    
    Application.Calculation = AC
    Application.EnableEvents = AEE
    Application.ScreenUpdating = ASU
    
    ConvertToNum_Rng = n
End Function
'==================================================================================================
Function ConvertToNum_SheetUR(Optional sh As Worksheet) As Long
    If (sh Is Nothing) Then Set sh = ActiveSheet
    ConvertToNum_SheetUR = ConvertToNum_Rng(sh.UsedRange)
End Function
'==================================================================================================
Function ConvertToNum_SheetsAll(Optional WB As Workbook) As Long
Dim sh As Worksheet, n&

    If (WB Is Nothing) Then Set WB = ActiveWorkbook
    
    For Each sh In WB.Worksheets
        n = n + ConvertToNum_SheetUR(sh)
    Next sh
    
    ConvertToNum_SheetsAll = n
End Function

' замените
Set rng = Selection

' на
Set rng = [a1].Resize(Cells(Rows.Count, 1).End(xlUp).Row, 1)

Function ConvertToNum(ByVal s$)
Dim i&
    s = Replace$(s, " ", "")
    s = Replace$(s, ".", "")
    If (s Like "*-") Then s = "-" & Left$(s, Len(s) - 1)
    If IsNumeric(s) Then ConvertToNum = --s
End Function
'==================================================================================================
Private Sub Test_ConvertToNum()
Dim x, n&
    For Each x In Array("   125.744,50 ", "    50.330,14-", "2.755.024")
        n = n + 1: Debug.Print n, x, ConvertToNum(x)
    Next x
End Sub

Sub t()
Dim dic As New Dictionary
    dic.add "test", Array(10, 20, 30)
    Debug.Print dic.Item("test")(1) ' 10 (for Option Base 1)
End Sub

Private Sub GenArr2D(aInOut() As Long, Optional ByVal nRep&)
Dim i&, d&, r&, n&
Const DT1& = 45000, DT2& = 50000
Const ID1& = 1, ID2& = 10000

    d = DT2 - DT1 + 1
    i = ID2 - ID1 + 1
    nRep = nRep + 1

    ReDim aInOut(d * i * nRep, 3)   ' ID, DateNum, Val

    For d = DT1 To DT2
        For i = ID1 To ID2
            For r = 1 To nRep
                n = n + 1
                aInOut(n, 1) = i
                aInOut(n, 2) = d
                aInOut(n, 3) = i + d
            Next r
        Next i
    Next d

    If (n <> UBound(aInOut, 1)) Then Stop: End
End Sub
'--------------------------------------------------------------------------------------------------
Private Sub Test_GenArr2D()
Dim a&(), t!

    t = Timer
        GenArr2D a, 5
    Debug.Print Round(Timer - t, 2), Format$(UBound(a, 1), "#,#")   ' 10.11 | 300 060 000
End Sub