После использования этой формулы =IF(ISERROR(MATCH(A2,B:B,0)),A2,"")
в столбце C он красиво отфильтровывает номера из черного списка.
Но мне нужен совет для дальнейшего шага: как удалить дубликаты?
microsoft-excel
user245491
источник
источник
Ответы:
Попробуйте использовать расширенный фильтр, как описано в Microsoft: http://support.microsoft.com/kb/262277
Чтобы создать скомпилированный список уникальных записей, выполните следующие действия:
Выберите заголовки столбцов над строками или записями, которые вы хотите Сортировать.
В меню «Данные» выберите пункт «Фильтр» и нажмите «Расширенный фильтр». Если вам будет предложено следующее, нажмите ОК. Заголовки не обнаружены. Предположим, верхняя строка выбора является строкой заголовка?
В разделе «Действие» нажмите «Копировать в другое место».
Нажмите, чтобы установить флажок Только уникальные записи.
В поле Диапазон списка введите или выберите диапазон записей (например, A3: H10).
В поле Диапазон критериев введите или выберите тот же диапазон записей. (то есть A3: H10)
В поле «Копировать в» введите адрес или выберите первую ячейку где вы хотите разместить информацию. Убедитесь, что есть достаточно места, чтобы не перезаписывать ранее существующие данные.
Имейте в виду, что вы можете сделать это только на активном листе.
Нажмите ОК.
Заметки
Если первая запись исходных данных дублируется, она появляется дважды в новом списке. Просто скрой первую строку.
Если вы выполните команду расширенного фильтра на месте, лист все равно будет содержать все записи. Дублирующиеся записи скрыты. Чтобы обойти это поведение, выберите «Строки» в меню «Формат», а затем нажмите «Показать».
источник
Оригинальный код (чтобы удалить дубликаты из столбца: https://superuser.com/a/49618/50173 )
модификация
В соответствии
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value
макрос проверяет, имеет ли следующая ячейка ниже текущей ячейку то же значение. Если да, он удаляет текущую и переходит к следующей ячейке.Вы можете добавить второе условие в оператор IF, чтобы оно также удаляло ячейки из вашего черного списка. Вот псевдокод.
Финальный код
Заметки
Developer » Visual basic
»Вставить код куда-нибудьRange("B2:B7")
соответственно диапазону вашего собственного черного спискаNot
отNot foundit Is Nothing
источник
Вы можете изменить формулу на:
Он не будет отображать дублированные записи. Затем вы можете использовать Автофильтр, исключая
(Blanks)
и скопируйте и вставьте значения на новый лист.источник
Сделайте следующее:
Напишите эту формулу в
B2
& Амп; заполните его.= СЧЕТЕСЛИ (А $ 2: А2, А2)
Counif
функция сгенерирует список1's
& Амп;2's
Теперь вам нужно удалить строки, для которых число больше1
,Нажми на
Filter
кнопка вData Tab
применитьAutofilter
,От
column B
выберите строки, которые не равны1
,Затем вы можете удалить эти строки, выделив их и выбрав
Delete Rows
,Наконец удалите
Filter
& Амп; у вас останутся уникальные номера сотисточник