заменить несколько символов в разных местах строки Excel 2007

Question

=SUBSTITUTE(AD!H35,"&","")

Формула выше заменяет амперсанд в ячейке, где у меня есть текст

Handy Person / Водитель и Автомобиль

дающий

Удобный человек / водитель автомобиля

Как мне также убрать косую черту '/'?

Я видел, как это делается с помощью вложенных формул замещения, но, как мне, вероятно, потребуется удалить еще больше символов в будущем. Я бы предпочел использовать более элегантное решение. Возможно, даже замена целого класса не алфавитно-цифровых символов - другое решение?

Answer 1

=SUBSTITUTE(SUBSTITUTE(AD!H35,"&","")," /","")

Попробуй с этим.

Answer 2

К сожалению, я не знаю ни одной функции рабочего листа, которая более изящна, чем вложенные ЗАМЕНИТЕЛИ. Если вы хотите использовать пользовательскую функцию VBA, эта может помочь вам начать.

Public Function CleanAlpha(Target As Range) As String

    Dim rCell As Range
    Dim sReturn As String
    Dim i As Long

    'Only act on first cell
    Set rCell = Target.Cells(1)

    'loop through each character
    For i = 1 To Len(rCell.Value)
        Select Case Asc(Mid$(rCell.Value, i, 1))
            Case 65 To 90, 97 To 122 'letters
                sReturn = sReturn & Mid$(rCell.Value, i, 1)
            Case 32 'spaces
                sReturn = sReturn & Mid$(rCell.Value, i, 1)
        End Select
    Next i

    CleanAlpha = Trim(sReturn)

End Function

Используйте на листе как

=TRIM(cleanalpha(A1))