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

Rikardo Гость	#1 29.12.2009 19:24:44 Добрый день! Как в VBA удалит все ö, ü и прочие подобные символы в диапазоне? Кодсимв присваивает им код 63, т.е. "?". Спасибо.

Guest Гость	#2 29.12.2009 19:49:22 ö, ü - это o и u только с 2 точками наверху, как ё.

ytk5kyky Пользователь Сообщений: 2410 Регистрация: 01.01.1970	#3 29.12.2009 20:10:02 Наверное не только 63, но и какой-то еще, раз символы разные. Вот для 63: Range("A1:D10").Replace What:=Chr(63), Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Bite my shiny metal ass!

Guest

Гость

29.12.2009 20:26:49

{quote}{login=Лузер™}{date=29.12.2009 08:10}{thema=}{post}Наверное не только 63, но и какой-то еще, раз символы разные.
Вот для 63:
Range("A1:D10").Replace What:=Chr(63), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False{/post}{/quote}

Таким образом он удалит вообще все символы в диапазоне.
Если есть какой-то ещё, где можно узнать номер?)

ytk5kyky Пользователь Сообщений: 2410 Регистрация: 01.01.1970	#5 29.12.2009 23:03:21 Разве не все требуется удалить? задумчиво перечитывает первый пост Узнать номер той же функцией кодсимв. Она для разных символов разный код возвращает Bite my shiny metal ass!

тухачевский

Гость

29.12.2009 23:34:05

{quote}{login=}{date=29.12.2009 08:26}{thema=Re: }{post}{quote}{login=Лузер™}{date=29.12.2009 08:10}{thema=}{post}Наверное не только 63, но и какой-то еще, раз символы разные.
Вот для 63:
Range("A1:D10").Replace What:=Chr(63), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False{/post}{/quote}

Таким образом он удалит вообще все символы в диапазоне.
Если есть какой-то ещё, где можно узнать номер?){/post}{/quote}

Прикрепленные файлы

post_87844.xls (28.5 КБ)

Guest

Гость

30.12.2009 00:04:27

{quote}{login=Лузер™}{date=29.12.2009 11:03}{thema=}{post}Разве не все требуется удалить?
*задумчиво перечитывает первый пост*
Узнать номер той же функцией кодсимв. Она для разных символов разный код возвращает{/post}{/quote}

в том то и дело что возвращает одинаковый код для целой категории символов из иностранных алфавитов - 63

Guest

Гость

30.12.2009 00:07:03

{quote}{login=тухачевский}{date=29.12.2009 11:34}{thema=Re: Re: }{post}{quote}{login=}{date=29.12.2009 08:26}{thema=Re: }{post}{quote}{login=Лузер™}{date=29.12.2009 08:10}{thema=}{post}Наверное не только 63, но и какой-то еще, раз символы разные.
Вот для 63:
Range("A1:D10").Replace What:=Chr(63), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False{/post}{/quote}

Таким образом он удалит вообще все символы в диапазоне.
Если есть какой-то ещё, где можно узнать номер?){/post}{/quote}{/post}{/quote}

Пробовал и эти цифры подставлять, их возвращает функция asc, но на деле замещения не происходит, может что не так делаю, покажите на примере плиз, буду преблагодарен))

ytk5kyky

Пользователь

Сообщений: 2410 Регистрация: 01.01.1970

30.12.2009 11:52:47

{quote}{login=}{date=30.12.2009 12:07}{thema=Re: Re: Re: }{post}покажите на примере плиз, буду преблагодарен)){/post}{/quote}Где пример?

На самом деле есть еще AscW, AscB, ChrW, ChrB
можно и ячейку с символом мподставлять для замены, только удаляет больше символов. в примере запустить bb()

Прикрепленные файлы

post_87897.xls (36.5 КБ)

Bite my shiny metal ass!

Guest

Гость

#10

30.12.2009 16:20:35

{quote}{login=Лузер™}{date=30.12.2009 11:52}{thema=Re: Re: Re: Re: }{post}{quote}{login=}{date=30.12.2009 12:07}{thema=Re: Re: Re: }{post}покажите на примере плиз, буду преблагодарен)){/post}{/quote}Где пример?

На самом деле есть еще AscW, AscB, ChrW, ChrB
можно и ячейку с символом мподставлять для замены, только удаляет больше символов. в примере запустить bb(){/post}{/quote}

Решил с помощью ChrW, спасибо за помощь

Ежик

Гость

#11

22.12.2011 13:56:32

Эта тема с 2009 года оставалась без чёткого ответа.
Т.к. мне сегодня помог разобраться с подобным вопросом KukLP в теме http://www.planetaexcel.ru/forum.php?thread_id=35785
привожу его ответ

Для правильного определения кода данного символа нужно воспользоваться кодом

MsgBox "Код данного символа: " & AscW([A1]), , ""

где в А1 должен быть этот некорректный символ (только он один)

Ну, а теперь, зная его код, заменяем его на нужный нам символ или вообще удаляем

Sub www()
Selection.Replace ChrW(-162), ""
End Sub

где код "-162" - код, определённый в MsgBox AscW([A1]), у вас он может быть другим.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#12 22.12.2011 14:11:04 {quote}{login=Ежик}{date=22.12.2011 01:56}{thema=}{post} где в А1 должен быть этот некорректный символ (только он один){/post}{/quote}Необязательно. Надо, чтоб этот символ был первым. Я сам - дурнее всякого примера! ...

Читают тему