Хотелось бы макросом

Public Sub test()
    Dim c As Range
    
    For Each c In Range("A1:A100").Cells
        c.Value = Replace(c.Value, "+", "")
        c.Value = Replace(c.Value, "{", "")
        c.Value = Replace(c.Value, ";", "")
        ...
        c.Value = Replace(c.Value, "$", "")
    Next
End Sub

Function ReplaceInvalid(Rng As Range) As String
Const InvalidSymbols = "+{;""\=?~()<>&*|$"
Dim CellValue As String
Dim CurrentSymbol As String
Dim I As Long

    CellValue = Rng.Value
    
    For I =  1  To Len(InvalidSymbols)
        CurrentSymbol = Mid(InvalidSymbols, I,  1 )
        CellValue = Replace(CellValue, CurrentSymbol, "")
    Next I

    ReplaceInvalid = CellValue

End Function

Function ClearName(strText As String, strPattern As String) As String
    Dim RegExp As Object
    Set RegExp = CreateObject("vbscript.regexp")
    With RegExp
        .Pattern = strPattern
        .Global = True
        ClearName = .Replace(strText, "")
    End With
End Function

Sub Test()
    Dim strText As String
    strText = "[+{;""\=?~()<>&*|$].xls"
    MsgBox ClearName(strText, "[+{;""\\=?~()<>&*|$]")
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы