Проблема с удалением дубликатов

[Czeslaw]

Пожалуйста посмотрите, что вышло после удаления пробелов.

[shanemac51]

в столбцах А-В есть защищенные ячейки
-------------------
снять защиту
сохранить
удалить 17 дублиуатов

[strannick]

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

в столбцах А-В есть защищенные ячейки

Да вроде нету и по процедуре не должно быть.

...после удаления пробелов.

Опять пробел с кодом 160 вместо пробела 32 грузится с сайта получается? Заменил 160 на 32 и дубликаты ушли. Сейчас пропишу в процедуру и прогоню. НО... Разъясните популярно почему такая хрень лезет? Что конкретно может за это отвечать? Почему один раз одни данные выгружаются, имеется ввиду с пробелом 160, а другой раз с пробелом 32? Хочется понять и разобраться.

[Watcher_1]

Почему один раз одни данные выгружаются, имеется ввиду с пробелом 160, а другой раз с пробелом 32?

По моему этот вопрос вам нужно разработчикам сайта задать...

[shanemac51]

в столбцах А-В есть защищенные ячейки
------------
я ведь проверила, прежде чем написать

[IgorGO]

Что конкретно может за это отвечать?

обратимся к истокам: "в начале было слово..." потом программисты расчленили его на два байта, они должны ответить...

[strannick]

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

По моему этот вопрос вам нужно разработчикам сайта задать...

потом программисты расчленили его на два байта, они должны ответить...

Понятное дело, КТО виноват в таких случаях - коллеги-программисты, которые сайт делали. И вопрос будет поставлен ребром!!! Но я, понимая это заранее после того, как ткнули носом в этот чертов пробел, задал вопрос не КТО, а ЧТО. Так, на популярном языке, чтоб не просто поставить вопрос ребром, а поставить вопрос ребром ПРАВИЛЬНО и аргументировано.
В любом случае спасибо всем за советы и комментарии.

P.S. Посыпаю голову пеплом, потому как второй раз за последнее время наступаю на одни и те же грабли этого пробела. И ведь сразу в голову не пришло проверить.

[strannick]

По совету Hugo написал вот такую конструкцию:

a = sh.Range("G5:U" & iLastRow).Value     'массив, c ячейками которого сравниваются загружаемые данные
Set oDict1 = CreateObject("scripting.dictionary")
    For x = 1 To UBound(a)    'наполняем словарь парами номер|номер
        oDict1.Item(a(x, 1) & "|" & a(x, 15)) = x
    Next
For i = iLastRow3 To iLastRow2    'цикл по сравниваемым ячейкам загруженных данных
u = sh.Cells(i, 7) & "|" & sh.Cells(i, 21) 'пара ячеек с номерами, которые сравниваем со словарем
If oDict1.Exists(u) Then
sh.Range("A" & i & ":Z" & i).ClearContents
'MsgBox "Совпадение " & u
End If
Next

Выловил все совпадения и увидел, что есть несколько пар, которые должны быть уже ранее, но сейчас они другие. То есть и тут еще ошибка при выгрузке с сайта. Но это уже из другой оперы.
Еще раз спасибо всем! Особая благодарность очередной раз Hugo! Хоть немного я начал соображать в словарях.

[Hugo121]

Да пожалуйста!
Я тоже люблю всё контролировать.
Но там бы ещё trim() навесить - Вам ведь не нужно оставлять такие же, но с пробелами?
Ну и во втором случае тоже будет быстрее проверять массив. Ну а удалять можно и на листе. Хотя если используете ClearContents - то можно удалять в массиве, а затем выгрузить его изменённый назад на лист.

[strannick]

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

Но там бы ещё trim() навесить

Это я предварительно сделал. Тут просто не стал писать.

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

...можно удалять в массиве, а затем выгрузить его изменённый назад на лист.

ClearContents - это я сейчас сделал для себя, чтобы проконтролировать, чего там не так. Так и выловил аж четыре пары, которые не такие как должны быть. Там по процедуре наверное надо не грузить на лист, а потом сравнивать и удалять, а сравнивать, а потом несовпадения грузить. Во как. Данных то не много за раз обрабатывается, до 500 записей. Так что...