anebo si na to napiš makro

Sub Nahradminus()

'
    Cells.Select
    Selection.Replace What:=",-", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Select
    Selection.NumberFormat = "#,##0.00"
End Sub

edit: jsem to ale trouba až napočtvrté jsem to optimalizoval