Как да намерите дубликати в Excel Visual Basic

Намерете дубликати в Microsoft Excel 2010.

Стъпка 1

Отворете файла на Microsoft Excel 2010, който съдържа данните, които искате да проверите за дубликати. Когато се отвори електронната таблица, натиснете клавишите "Alt" и "F11", за да заредите конзолата на VBA.

Стъпка 2

Кликнете върху електронната таблица отляво на екрана на VBA. Преместете мишката над "Вмъкване" и изберете опцията "Модул". Щракнете двукратно върху новия модул, който се показва на няколко реда под електронната таблица.

Стъпка 3

Поставете курсора в празното пространство в дясната част на екрана. Напишете "Sub Dupecheck ()" и натиснете Enter. VBA автоматично ще въведе командата "End Sub" за вас.

Стъпка 4

Поставете курсора на линията между команди "Sub" и "End Sub". Въведете следните редове от код:

Диаметърът е толкова дълъг, колкото е продължителният диапазон ("A50000"). Край (xlUp) .Row

Този код създава две променливи, "EndRow" и "x", след което задава стойността на "EndRow". Този код ще търси 50 хиляди линии в една колона, но ако трябва да търсите между повече линии, то се увеличава от 50 хиляди до каквото и да е число, от което се нуждаете. Този код е предназначен също така да изглежда в колоната "А", но само трябва да промените "А" на всяка буква в колоната, от която се нуждаете.

Стъпка 5

Поставете курсора на следния ред и напишете следния код:

За x = endrow За 1 стъпка -1 Ако Application.WorksheetFunction.CountIf (обхват ("A1: A" & x), Range ("A" & x) .Text)> 1 Тогава Range ("A" & x). Интериор.Цвят = RGB (200, 160, 35) Край Ако следващ x

Това е сърцето на кода, който ще претърси всяка клетка и ще определи дали една идентична клетка съществува над нея. Ако намери дубликат, то ще превърне долната част на клетката в жълт цвят. Можете да промените всички копия на "А", ако работите в друга графа. Можете да промените и трите номера след "Interior.color", за да промените цвета, в който клетката ще бъде конвертирана.

Стъпка 6

Кликнете върху "x" в горния десен ъгъл на екрана, за да затворите конзолата на VBA. Кликнете върху раздела "Разработчик" в горната част на екрана. Намерете бутона "Макро" вляво на лентата и кликнете върху нея. Изберете "Dupecheck" от списъка с налични макроси и кликнете върху "Run". Сега Excel ще открои всеки дубликат в колоната с данни.