Обработка массива и вывод уникальных наименований клиентов

[SAS888]

А как сделать так чтоб уникальные значения выводились не в столбик, а в строку?

В примере из поста №7 строку кода макроса

Range([A2], Cells(UBound(b, 1) + 1, "A")).Value = b

которая помещает найденные уникальные значения в столбец "A", начиная со 2-й строки, замените на

Range([A2], Cells(2, UBound(b, 1))).Value = Application.Transpose(Application.Index(b, 0, 1))

В результате значения массива будут помещены во 2-ю строку, начиная с 1-го столбца.
Все это можно немного упростить, если исходно создавать одномерный массив b(1 To UBound(a, 1)) и заполнять его. Тогда при вставке значений массива на лист достаточно использовать

Range([A2], Cells(2, UBound(b))).Value = b

т.к. одномерный массив - это и есть строка.

[uta707]

По теме, уточните, пож. как будет выглядеть макрос, вернее, что в нем поменять, чтобы, массив брать не по столбцу "А" и например по столбцам "А.B и С"(допустим нужно отсортировать уникальные данные в диапазоне массива А:С? Заранее спасибо

[nika_tver]

Добрый день! А не подскажите, возможно ли в таком макросе прописать, чтобы он создавал перечень исходя из двух столбцов данных расположенных на разных листах в одной книге?

[Hugo121]

Ого чего откопали
Возможно.
Но если делать именно такую задачу, как в примере - то проще делать на словаре. в финале выгружаем собранные ключи.