Распознание регистра в надписи

[Zorg]

Коллеги, помогите пожалуйста!

Есть макрос, который преобразовывает список с дублекатами (Список 1) наименований в список с уникальными наименованиями (Список 2) через массив.
Проблема в том, что при попадании наименований в списке 1 таких наименований, как "ООО ЛЮТИК" и "ООО Лютик", (которые, по сути, разные) он делает из них одно (первое по счету, "ООО ЛЮТИК").

Как бы сделать так, чтобы они их разделял?

Sub Выгрузка()

Dim i As Long, j As Long, x As New Collection, a, b()
Sheets("Буфер обмена").Activate: Range([E2], Cells(Rows.Count, "I")).ClearContents
With Sheets("Базовый массив")
a = .Range(.[B8], .Cells(Rows.Count, "B").End(xlUp)).Value
End With
ReDim b(1 To UBound(a, 1), 1 To 1): j = 1
For i = 1 To UBound(a, 1)
If a(i, 1) <> "" Then
On Error Resume Next: x.Add a(i, 1), CStr(a(i, 1))
If Err = 0 Then
b(j, 1) = a(i, 1): j = j + 1
Else: On Error GoTo 0
End If
End If
Next
Range([E2], Cells(UBound(b, 1) + 1, "E")).Value = b
End Sub

Помогите, плиз!

[ikki_pf]

думаю, для используемого объекта Collection это невозможно.
по крайней мере, Optional Compare Binary ему по барабану.
переписывайте макрос с использованием объекта Dictionary.
у него есть свойство Compare

[nerv]

Zorg, файл с примером

[Казанский]

> таких наименований, как "ООО ЛЮТИК" и "ООО Лютик", (которые, по сути, разные)

Да? Попробуйте-ка одновременно зарегистрировать ООО "ЛЮТИК" и ООО "Лютик".

[Sasha_Smirnov]

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

"ООО ЛЮТИК" и "ООО Лютик"

До кучи:

1. ООО ЛюТиК
2. ООО ЛюТИК
3. ...
4. ООО«Лютик» (без пробелов)
5. ООО“Лютик”
6. ООО»Лютик» (часто встречал)
7. ООО„ЛютиК”
8. ...
9. ООО «ЛютиК» (с одним и более пробелами)
10. ...

Бинарное сравнение тут безусловно буксует! Остаётся ручная работа.

[Zorg]

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

Zorg, файл с примером

Nerv, вот файл примера.

Казанский, понимаю, что ситуация глупая с точки зрения учета клиентов, юр лиц и т.д..
Глупость ситуации идет от того, что код ТТ отсутствует, есть только название, созданное в учетке какими-то гениями (данные внешние, такие получаем, повлиять не можем). Названия распознаются, вносятся в справочники и им присваивается код. Беда в том, что распознаются некорректно.

ikki_pf
Не поделитесь примером, как бы это реализовать?

[ikki_pf]

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

Не поделитесь примером, как бы это реализовать?

в сети - масса примеров.
ключевая фраза для поиска: "vba scripting.dictionary"

[nerv]

еще актуально?