Как удалить уникальные значения из столбца в Excel?
Обычно большинство из нас стремится удалить дублирующиеся значения из столбца, но иногда возникает необходимость избавиться от уникальных значений — тех, что встречаются в столбце всего один раз. В этом руководстве рассматриваются способы удаления уникальных значений из столбца в Excel.
Удаление уникальных значений с помощью VBA в Excel
Удаление уникальных значений с помощью Kutools для Excel
Удаление уникальных значений с помощью VBA в Excel
С помощью VBA можно быстро удалить все уникальные значения из одного столбца.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В открывшемся окне выберите Вставка > Модуль, чтобы открыть новое окно модуля, затем скопируйте приведённый ниже код VBA в это окно.
VBA: Удаление уникальных значений из столбца
Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
xValue = Arr(i, 1)
Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
xValue = Dic(xKey)
If xValue > 1 Then
For i = 1 To xValue
Arr(xIndex, 1) = xKey
xIndex = xIndex + 1
Next
End If
Next
WorkRng.Value = Arr
End Sub
4. Нажмите ОК, и все уникальные значения будут удалены.
Удаление уникальных значений с помощью Kutools для Excel
Если вы не знакомы с VBA, воспользуйтесь функцией «Выбрать дубликаты/уникальные ячейки» из Kutools для Excel, чтобы удалить уникальные значения.
Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Скачать сейчас
1. Выделите столбец, из которого нужно удалить уникальные значения, и нажмите Kutools > Выделить > Выбрать дубликаты/уникальные ячейки. См. снимок экрана:
2. В появившемся диалоговом окне установите флажок напротив Уникальные значения и нажмите ОК. Затем закройте это окно. См. снимок экрана:
3. Теперь все значения, встречающиеся только один раз, будут выделены. Щёлкните правой кнопкой мыши и выберите Удалить в контекстном меню. См. снимок экрана:
4. В диалоговом окне Удаление установите флажок напротив «Вся строка» и нажмите ОК. См. снимок экрана:
Теперь вы видите, что уникальные значения удалены.
 |  |  |
Совет: если вы хотите удалить только содержимое ячеек, выберите в контекстном меню на шаге 3 пункт Очистить содержимое.
Щёлкните здесь, чтобы узнать больше о функции «Выбрать дубликаты/уникальные ячейки».
Связанные статьи:
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек