Удаление редких символов в VBA

[Ohmu]

Добрый день!
Как в VBA удалит все ö, ü и прочие подобные символы в диапазоне?
Кодсимв присваивает им код 63, т.е. "?".
Спасибо.

[SAS888]

Если требуется из всех ячеек активного листа удалить символ "?" (Chr(63)), то использовать функцию VBA "Replace" невозможно, т.к. при значении аргумента функции, предназначенного для замены, символ "?" воспринимается как любой одиночный символ (спец. символ маски). Поэтому, для решения Вашей задачи необходимо использовать любую подходящую функцию рабочего листа Excel (Application.WorksheetFunction). Например, так:

Sub Repl()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants)
        cell = Application.Substitute(cell, Chr(63), "")
    Next
End Sub

[Ohmu]

Сообщение от SAS888

Если требуется из всех ячеек активного листа удалить символ "?" (Chr(63)), то использовать функцию VBA "Replace" невозможно, т.к. при значении аргумента функции, предназначенного для замены, символ "?" воспринимается как любой одиночный символ (спец. символ маски). Поэтому, для решения Вашей задачи необходимо использовать любую подходящую функцию рабочего листа Excel (Application.WorksheetFunction). Например, так:

Sub Repl()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants)
        cell = Application.Substitute(cell, Chr(63), "")
    Next
End Sub

Из ячеек требуется удалить только символ ö
А для замены символа "?" можно использовать replace в виде "~?"

[SAS888]

Прикрепите файл с примером и укажите, из каких ячеек какие символы требуется удалить. Тогда разберемся.

[Aent]

SAS888,
Сейчас проверил в VBA Excel 2010:
Replace("111?222","?","!") = "111!222"
да и с ö проблем у Replace нет
Replace("111" & ChrW(&H0F6) & "222",ChrW(&H0F6),"!") = "111!222"
Ohmu, для удаления используйте в качестве аргумента замены
vbNullString

[Ohmu]

Сообщение от Aent

SAS888,
Сейчас проверил в VBA Excel 2010:
Replace("111?222","?","!") = "111!222"
да и с ö проблем у Replace нет
Replace("111" & ChrW(&H0F6) & "222",ChrW(&H0F6),"!") = "111!222"
Ohmu, для удаления используйте в качестве аргумента замены
vbNullString

Selection.Replace What:=ChrW(&HF6), Replacement:="" - так работает! Удаляется только ö.
Aent, подскажи, где можно посмотреть коды всех символов в таком же виде (ChrW(&HF6))

[Ohmu]

Всем спасибо, проблему решил положительным образом.