Sub точкзапятминуспробел()
    Selection.Replace What:="-", Replacement:=""
    Selection.Replace What:=" ", Replacement:=""
    Selection = Selection.Value
End Sub

Sub u_11()
    Application.ScreenUpdating = False
    c = ThisWorkbook.Name
    a = ThisWorkbook.Path
    b = Dir(a & "\*.xls")
    Do While b <> ""
    If b <> c Then
        Workbooks.Open Filename:=a & "\" & b
        e = Chr(160)
        For Each d In Workbooks(b).Sheets(1).UsedRange.SpecialCells(xlCellTypeConstants, 7)
            f = d.Value
            g = Left(f, 1)
            If g <> "0" Then
                h = Replace(f, e, "")
                i = Replace(h, ".", ",")
                If IsNumeric(i) Then
                    d.Value = h
                Else
                    d.Value = Replace(f, "-", "")
                End If
            End If
        Next
    End If
    b = Dir
    Loop
    Application.ScreenUpdating = False
End Sub