Как удалить уникальные значения из столбца в Excel?
Обычно большинство из нас хотят удалить повторяющиеся значения из столбца, но иногда вы можете удалить уникальные значения, которые появляются в столбце только один раз. В этом руководстве рассказывается о приемах удаления уникальных значений только из столбца в Excel.
Удалить unqiue значения с помощью VBA в Excel
Удалить значения unqiue с помощью Kutools for Excel
Удалить unqiue значения с помощью 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. Нажмите OK, и все уникальные значения будут удалены.
Удалить значения unqiue с помощью Kutools for Excel
Если вы не знакомы с VBA, вы можете рассмотреть возможность использования Kutools for Excel для функции выбора повторяющихся и уникальных ячеек, чтобы удалить уникальные значения в Excel.
Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас
1. Выберите столбец, из которого вы хотите удалить уникальные значения, и нажмите Кутулс > Выберите Инструменты > Выберите повторяющиеся и уникальные ячейки. Смотрите скриншот:
2. Во всплывающем диалоговом окне отметьте Только уникальные значения и нажмите Ok, а затем выйдите из этого диалогового окна. Смотрите скриншот:
3. Затем все значения отображаются только один раз. И щелкните правой кнопкой мыши, чтобы щелкнуть Удалить в контекстном меню. Смотрите скриншот:
4. в Удалить диалоговое окно, установите флажок Вся строка и щелкните OK. Смотрите скриншот:
Теперь вы можете видеть, что уникальные значения удалены.
|
|
|
Функции: Если вы просто хотите удалить содержимое ячейки, вы можете нажать Очистить содержание из контекстного меню на шаге 3.
Вы можете щелкнуть здесь, чтобы узнать больше о выборе повторяющихся и уникальных ячеек.
Относительные статьи:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
