Note: The other languages of the website are Google-translated. Back to English

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

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

Удалить unqiue значения с помощью VBA в Excel

Удалить значения unqiue с помощью Kutools for Excel

Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу ...
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
  • Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
  • Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
  • Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
  • Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
  • Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
  • Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
  • Более 300 мощных функций; Работает с Office 2007-2021 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.

стрелка синий правый пузырь Удалить 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
3. Нажмите Run кнопку для запуска кода VBA и KutoolsforExcel Появится диалоговое окно для выбора рабочего диапазона. Смотрите скриншот:

 

документ-удалить-уникальный-1

4. Нажмите OK, и все уникальные значения будут удалены.


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

Если вы не знакомы с VBA, вы можете рассмотреть возможность использования Kutools for Excel для функции выбора повторяющихся и уникальных ячеек, чтобы удалить уникальные значения в Excel.

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас

1. Выберите столбец, из которого вы хотите удалить уникальные значения, и нажмите Кутулс > Выберите Инструменты > Выберите повторяющиеся и уникальные ячейки. Смотрите скриншот:

документ-удалить-уникальный-2

2. Во всплывающем диалоговом окне отметьте Только уникальные значения и нажмите Ok, а затем выйдите из этого диалогового окна. Смотрите скриншот:

документ-удалить-уникальный-3

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

документ-удалить-уникальный-4

4. в Удалить диалоговое окно, установите флажок Вся строка и щелкните OK. Смотрите скриншот:

документ-удалить-уникальный-5

Теперь вы можете видеть, что уникальные значения удалены.

документ-удалить-уникальный-6 док-стрелка документ-удалить-уникальный-7

Функции: Если вы просто хотите удалить содержимое ячейки, вы можете нажать Очистить содержание из контекстного меню на шаге 3.

Вы можете щелкнуть здесь, чтобы узнать больше о выборе повторяющихся и уникальных ячеек.


Относительные статьи:


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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (4)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Как можно настроить код VBA, чтобы удалить всю строку на основе уникального значения только одного поля? Kutools for Excel позволяют удалить всю строку, но код удаляет только уникальные значения из одного поля. Спасибо,
Этот комментарий был сведен к минимуму модератором на сайте
Вы спасатель жизни. Будьте здоровы
Этот комментарий был сведен к минимуму модератором на сайте
Код VBA не работает .... Я использую параметр явно, и пока я Dim xValue как Variant, продолжаю говорить, что переменная не определена. Я бы сказал, что 80% кода, скопированного из сети, не работают с первого раза.
Этот комментарий был сведен к минимуму модератором на сайте
Это прекрасно работает! Спасибо! Единственная проблема в том, что он не расширяет выделение, чтобы удалить всю строку. Но это работает. Спасибо.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL