Как динамически получить список уникальных значений из диапазона столбца в Excel?
Если у вас есть диапазон столбца, значения в котором постоянно меняются, и вам регулярно нужно получать все уникальные значения из этого диапазона — независимо от того, как он обновляется, — как создать динамический список уникальных значений? В этой статье мы покажем, как это сделать.
Динамическое извлечение списка уникальных значений из диапазона столбца с помощью формулы
Динамическое извлечение списка уникальных значений из диапазона столбца с помощью кода 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 для Excel позволяет легко выделять и подсвечивать все уникальные значения (включая первые вхождения дубликатов), только уникальные значения, встречающиеся один раз, а также дублирующиеся значения — всё это по вашему выбору, как показано на скриншоте ниже.
Скачайте Kutools для Excel прямо сейчас! (30-дневная бесплатная пробная версия)
Динамическое извлечение списка уникальных значений из диапазона столбца с помощью кода VBA
Вы также можете динамически извлекать список уникальных значений из диапазона столбца с помощью приведённого ниже кода VBA.
1. Нажмите клавиши Alt+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. Нарисуйте прямоугольник на листе, введите в него нужный текст, щёлкните по нему правой кнопкой мыши и выберите в контекстном меню пункт Назначить макрос. В диалоговом окне Назначить макрос выберите CreateUniqueList в поле Имя макроса и нажмите кнопку ОК. См. скриншот:
5. Теперь нажмите на прямоугольную кнопку — появится диалоговое окно Kutools для Excel. Пожалуйста, выберите диапазон, содержащий уникальные значения, которые необходимо извлечь, и нажмите кнопку ОК.
Теперь вы можете повторять шаг 5, описанный выше, чтобы автоматически обновлять список уникальных значений.
Связанные статьи:
- Как создать динамический ежемесячный календарь в Excel?
- Как динамически вставлять изображение в ячейку Excel в зависимости от её значения?
- Как создать динамическую гиперссылку на другой лист в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек