Как создать список уникальных значений из нескольких листов в Excel?
При работе с данными, распределёнными по нескольким листам Excel, часто возникает задача объединить информацию и получить список уникальных значений. Хотя Excel не предлагает встроенной функции для прямого выполнения этой операции, существует несколько эффективных способов её решения. В этой статье мы рассмотрим три практических метода создания списка уникальных значений из нескольких листов.
Создание списка уникальных значений из нескольких листов
Создание списка уникальных значений из нескольких листов с помощью кода VBA
Чтобы вывести все уникальные значения со всех листов, воспользуйтесь приведённым ниже кодом VBA. Выполните следующие действия:
1. Удерживая клавиши «ALT + F11», откройте окно Microsoft Visual Basic for Applications.
2. Нажмите «Вставка» > «Модуль» и вставьте приведённый ниже макрос в окно модуля.
Код VBA: создание списка уникальных значений из нескольких листов:
Sub SheelsUniqueValues()
Dim xObjNewWS As Worksheet
Dim xObjWS As Worksheet
Dim xStrAddress As String
Dim xIntRox As Long
Dim xIntN As Long
Dim xFNum As Integer
Dim xMaxC, xColumn As Integer
Dim xR As Range
xStrName = "Unique value"
Application.ScreenUpdating = False
xMaxC = 0
Application.DisplayAlerts = False
For Each xObjWS In Sheets
If xObjWS.Name = xStrName Then
xObjWS.Delete
Exit For
End If
Next
Application.DisplayAlerts = True
For xFNum = 1 To Sheets.Count
xColumn = Sheets(xFNum).Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xMaxC < xColumn Then
xMaxC = xColumn
End If
Next xFNum
Application.DisplayAlerts = True
Set xObjNewWS = Sheets.Add(after:=Sheets(Sheets.Count))
xObjNewWS.Name = xStrName
For xColumn = 1 To xMaxC
xIntN = 1
For xFNum = 1 To Sheets.Count - 1
Set xR = Sheets(xFNum).Columns(xColumn)
If TypeName(Sheets(xFNum).Columns(xColumn).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)) <> "Nothing" Then
xIntRox = xR.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Sheets(xFNum).Range(Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address).Copy
Cells(xIntN, xColumn).PasteSpecial xlValues
xIntN = xIntRox + xIntN + 1
End If
Next xFNum
If xIntRox - 1 > 0 Then
xIntRox = xIntN - 1
xStrAddress = Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address
Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range(xStrAddress).Copy
Cells(1, xColumn + 1).PasteSpecial xlValues
Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
Columns(xColumn).Delete
Range(xStrAddress).Sort key1:=Cells(1, xColumn), Header:=xlNo
End If
Next xColumn
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. После вставки приведённого выше кода нажмите F5 для запуска. Создастся новый лист с уникальными значениями, и все уникальные имена из столбца A со всех листов отобразятся, как показано на следующем снимке экрана:
Создание списка уникальных значений из нескольких листов с помощью KUTOOLS AI Aide
В этом разделе мы покажем, как легко создать список уникальных значений из нескольких листов с помощью KUTOOLS AI Aide.
Нажмите «Kutools» > «AI Ассистент», чтобы открыть панель «KUTOOLS AI Aide». На этой панели выполните следующие действия:
- Введите запрос в чат-окно, например:
Извлечь все уникальные значения из столбца A всех листов этой книги и вывести их в новый лист - Затем нажмите клавишу Enter или кнопку «Отправить». KUTOOLS AI проанализирует ваш запрос, а после завершения анализа — кликните «Выполнить», и все уникальные значения с нескольких листов появятся на новом листе. См. демонстрацию:
Создание списка уникальных значений из нескольких листов с помощью формулы (Excel 365)
Если вы хотите создать список уникальных значений из нескольких листов в Excel, воспользуйтесь формулой, сочетающей функции динамических массивов — например, UNIQUE и VSTACK, — доступные в Excel 365.
Введите приведённую ниже формулу в пустую ячейку и нажмите Enter, чтобы извлечь уникальные значения из нескольких листов в один столбец. См. снимок экрана:
=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))
- VSTACKобъединяет несколько диапазонов (например, Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet3!A1:A11) в единый вертикальный массив.
- UNIQUEУдаляет дубликаты и возвращает только уникальные значения из объединённого списка.
- A1:A11Скорректируйте диапазон так, чтобы он включал ваш фактический диапазон данных.
В этой статье мы рассмотрели три эффективных способа создания списка уникальных значений из нескольких листов в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек