Перейти к основному содержанию

Как динамически извлечь список уникальных значений из диапазона столбцов в Excel?

Автор: Силувия Последнее изменение: 2024 июля 08 г.

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

Динамическое извлечение списка уникальных значений из диапазона столбцов с помощью формулы
Динамически извлекайте список уникальных значений из диапазона столбцов с кодом VBA


Динамическое извлечение списка уникальных значений из диапазона столбцов с помощью формулы

Как показано на скриншоте ниже, вам необходимо динамически извлечь список уникальных значений из диапазона B2: B9. Попробуйте следующую формулу массива.

снимок экрана исходного диапазона данных и уникального списка

1. Выберите пустую ячейку, например D2, введите в нее приведенную ниже формулу и нажмите Ctrl + Shift + Enter клавиши одновременно. (B2: B9 - это данные столбца, из которых вы хотите извлечь уникальные значения, D1 - это ячейка выше, в которой находится ваша формула)

=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

снимок экрана с использованием формулы массива для извлечения первого уникального значения

2. Продолжайте выбирать ячейку D2, затем перетащите маркер заполнения вниз, чтобы получить все уникальные значения из указанного диапазона.

скриншот всех уникальных значений

Теперь извлекаются все уникальные значения в диапазоне столбцов B2: B9. При изменении значений в этом диапазоне список уникальных значений будет немедленно динамически изменен.

С легкостью выбирайте и выделяйте все уникальные значения в диапазоне в Excel:

Команда Выберите повторяющиеся и уникальные ячейки полезности Kutools for Excel может помочь вам легко выбрать и выделить все уникальные значения (включая первые дубликаты) или уникальные значения, которые появляются только один раз, а также повторяющиеся значения по мере необходимости, как показано ниже.
Загрузите Kutools для Excel прямо сейчас! (30-дневная бесплатная подписка)

снимок экрана с использованием Kutools for Excel, позволяющий легко выбирать и выделять все уникальные значения в диапазоне


Динамически извлекайте список уникальных значений из диапазона столбцов с кодом VBA

Вы также можете динамически извлечь список уникальных значений из диапазона столбцов с помощью следующего кода VBA.

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в Модули окно.

Код VBA: извлечь список уникальных значений из диапазона

Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
  If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
     ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
  End If
Next
End Sub

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

3. Вернитесь на рабочий лист, щелкните Вставить > Формы > Прямоугольные. Смотрите скриншот:

снимок экрана с вставкой прямоугольника на лист

4. Нарисуйте прямоугольник на листе, затем введите несколько слов, которые нужно отобразить на нем. Затем щелкните его правой кнопкой мыши и выберите Назначить макрос из контекстного меню. в Назначить макрос в диалоговом окне выберите СоздатьУникальныйСписок в Имя макроса поле, а затем щелкните OK кнопка. Смотрите скриншот:

снимок экрана с присвоением кода VBA этому прямоугольнику

5. Теперь нажмите кнопку с прямоугольником. Kutools for Excel появится диалоговое окно, выберите диапазон, содержащий уникальные значения, которые необходимо извлечь, а затем щелкните значок OK .

снимок экрана с выбором исходного диапазона данных после щелчка по прямоугольнику

С этого момента вы можете повторить описанный выше шаг 5 для автоматического обновления списка уникальных значений.


Статьи по теме:


Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!