Jimy,

Вариант №1: программно взять уникальные значения из фильтра.
Вариант №2: подключиться к таблице Экселя с помощью ADO и получить набор уникальных данных с помощью инструкции SQL SELECT с предикатом DISTINCT.
Справка Microsoft® Jet DISTINCT Исключает записи, которые содержат повторяющиеся значения в выбранных полях. Чтобы запись была включена в результат выполнения запроса, значения в каждом поле, включенном в инструкцию SELECT, должны быть уникальными. Например, в таблице «Сотрудники» есть однофамильцы. Если две записи содержат значение «Иванов» в поле «Фамилия», то следующая инструкция SQL возвратит только одну из них:
SELECT DISTINCT
Фамилия
FROM Сотрудники;

Если опустить предикат DISTINCT, этот запрос возвратит обе записи для фамилии Иванов.

Если предложение SELECT содержит более одного поля, то для включения записи в результат выполнения запроса необходимо, чтобы совокупность значений во всех этих полях была уникальной.

Результат выполнения инструкции SQL, содержащей предикат DISTINCT, является необновляемым и не отражает последующие изменения, внесенные другими пользователями.

JimyВот, только что проверил последний пост. Спасибо. Но получается следующее
Было:
А1 = 1
А2=1
А3=1
А4=2
А5=3

Стало:
в1=1
в2=1
в3=2
в4=3
Есть повторяющиеся. Может, что то подправить?
Действительно есть повторы, кроме в1=1 и в2=1?

The_PristJimy,

Почитайте эту статью до конца.
Посмотрел сейчас Ваш пример с кодом, может, конечно, я сегодня уже много пива выпил или слишком много строк г**нокода на VBA настрочил, но мне кажется, что решение с помощью SELECT DISTINCT концептуально более правильное.