Обрезание "не совсем" пробелов в ячейке

[spirit-ua]

Всем Привет!

Макросом

Sub DelSpace()
Cells.Select
Dim rRange As Range
Set rRange = Intersect(Selection, ActiveSheet.UsedRange)
rRange.Value = Application.Trim(rRange.Value)
End Sub

обрезаю пробелы в ячейках, все работает, но возникает такая проблема:

я копирую текст, точнее табличку из браузера, и вставляю в ексель для последующего разбора... и в ячейкай есть по 5-6 пробелов в начале текста(но возникает подозрение что это не пробелы, а скакие то символы которые не отображаются), так вот, макрос эти "пробелы" не убирает, как выйти из данной ситуации?

пробовал CLEAN вместо TRIM - результ тот же.

Помогите решить проблему...

[kuklp]

Возможно там неразрывный пробел - CHR(160)

[spirit-ua]

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

Возможно там неразрывный пробел - CHR(160)

передвигаться по ЭТОМУ курсором при редактировании можно, и что поставить в макросе чтоб его удалить?

в макросах я тугой, помогите с кодом

[IgorGO]

для начал определитесь что за символ там

=кодсимв(пстр(данные;1;1))

здесь данные, ссылка на ячейку с данными (где в начале "неправильные"). изменяя красную единичку на 2, 3, ... можете псмотреть код 2-го, 3-го ... символов.

[kuklp]

Sub www(): Cells.Replace Chr(160), " ", 2: End Sub

А потом Ваше Trim.

[spirit-ua]

Проблема решена!

Выражаю свою благодарность IgorGO и kuklp за оперативность, хороший ресурс, не знаю как остальные ветки форума, но в этой быстро и точно!

Спасибо!

P.S. Весы наклонил в соответствующую сторону...

[EducatedFool]

Делал как-то надстройку для просмотра кодом символов текста ячейки:
http://excelvba.ru/tools/CharCodes
(как раз чтобы сразу обнаруживать все эти неразрывные пробелы и прочую нечисть)