Съдържание
Една от най-важните дейности в Excel е да премахване на дубликати Днес ще покажа как да премахнете дубликатите в Excel, като използвате само VBA.
Изтегляне на работна тетрадка за практика
Премахване на дубликати в Excel с VBA.xlsm3 бързи метода за използване на VBA в Excel за премахване на дубликати
Тук имаме набор от данни с Имена, идентификатори, Марки, и Класове при изпита на някои ученици от училище, наречено детска градина "Слънчоглед".
Ако се вгледате внимателно, ще откриете, че някои имена са повторени погрешно.
Днес нашата цел е да премахнем дублираните стойности с помощта на Excel VBA.
1. Използване на VBA за премахване на дубликати от фиксиран клетъчен диапазон
На първо място, ще се опитаме да премахване на дублиращите се имена използване на фиксиран диапазон от клетки в VBA код.
Тук нашият набор от данни е диапазонът B3:E15 в работната книга (Включително Заглавия на колони ).
Ще използваме този фиксиран диапазон от клетки в кода тук.
Стъпка 1:
➤ Отваряне на нов VBA и вмъкнете нов модул (Щракнете тук, за да видите как да отворите и вмъкнете нов модул VBA в Excel).
➤ Въведете този код в модула:
Код:
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Той създава макрос, наречен Remove_Duplicates . A3:E14 е обхватът на моя набор от данни и искам да премахване на дублиращите се редове въз основа на Колона 1 . Използвайте своя.
Стъпка 2:
➤ Върнете се в работния си лист и стартирайте този макрос (Щракнете тук, за да видите как да стартирате макроса).
➤ Тя ще премахне редовете с дубликати в колона 1 ( Име на ученика).
Прочетете още: Как да изтриете дубликатите в Excel, но да запазите един (7 метода)
2. Вмъкване на кодове VBA за премахване на дубликати от избрания диапазон от клетки
Сега ще се опитаме да създадем макрос, който може да премахва дубликати от всеки избран диапазон от клетки в работния лист.
Стъпка 1:
➤ Отваряне на нов VBA и вмъкнете още един нов модул.
➤ Въведете този код в модула:
Код:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Той създава макрос, наречен Remove_Duplicates . Искам да премахна дублиращите се редове въз основа на Колона 1 . Използвайте своя.
Стъпка 2:
➤ Върнете се към работния си лист.
➤ Изберете своя набор от данни и стартирайте този макрос.
➤ Ще се изпълни същото нещо, както по-горе. Премахнете редовете с дубликати в колона 1 ( Име на ученика).
Прочетете още: Как да премахнете дублиращите се редове в Excel (3 начина)
Подобни четива
- Как да премахнете дубликатите от колона в Excel (3 метода)
- Excel VBA: Премахване на дубликати от масив (2 примера)
- Как да премахнете дубликатите и да запазите първата стойност в Excel (5 метода)
- Премахване на дублиращи се редове с изключение на първия случай в Excel (7 начина)
- Как да премахнете двата дубликата в Excel (5 лесни начина)
3. вграждане на макрос VBA за премахване на дубликати от множество колони
Досега премахнахме редовете, които имат дубликати в колона 1 ( Име на ученика ).
Но всъщност имената на двама ученици могат да бъдат еднакви, като това не винаги означава, че са добавени по погрешка, ако две имена са еднакви.
Но ако идентификаторите на двама ученици също са еднакви, значи те са един и същ ученик. Тогава редът трябва да бъде премахнат.
Този път ще разработим макропрограма, която ще премахне ред, ако името и идентификаторът на два реда са еднакви.
Стъпка 1:
➤ Отваряне на нов VBA и вмъкнете още един нов модул.
➤ Въведете този код в модула:
Код:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub ➤ Той създава макрос, наречен Remove_Duplicates . Искам да премахна дублиращите се редове въз основа на Колона 1 и 2 (Име и ЕГН) . Използвайте своя.
Стъпка 2:
➤ Върнете се към работния си лист.
➤ Изберете своя набор от данни и стартирайте този макрос.
➤ Този път ще премахне редовете само ако името и идентификаторът на ученика са едни и същи.
Забележка: В този случай тя не е отстранила Дженифър Марло, защото идентификационните номера на двамата ученици са различни, т.е. те са двама различни ученици.
Прочетете още: Excel VBA: Премахване на дубликати при сравняване на няколко колони (3 примера)
Заключение
Използвайки тези методи, можете да премахнете дубликати от набор от данни в Excel с помощта на VBA. Имате ли някакви проблеми? Не се колебайте да ни попитате.
