Ако сериозно търсите VBA код, който да ви помогне, за да изтриете всички редове въз основа на конкретен текст, намерен в определена колона, тогава тази статия е за вас. В тази статия ще научим как да изтрием ред, ако конкретният текст се намира в колона.
Въпрос): Имам файл, където просто се нуждая от тези редове, които имат „Продукт Б“ в колона Б. Искам да изтрия всичко останало. Може ли някой да ми помогне да напиша макрос? Следва моментната снимка на данните, с които разполагаме:
Трябва да следваме следните стъпки:
- Кликнете върху раздела Разработчик
- От групата Кодове изберете Visual Basic
Въведете следния код в стандартния модул:
Sub DeleteRow ()
С Sheet1.Cells (1) .CurrentRegion.Columns (2)
.AutoFilter 1, "Продукт B"
.EntireRow.Delete
Край с
End Sub
Обяснение на кода:
Стъпка 1) Горният код ще избере текущия регион от колона 2, т.е. колона с продукт
Стъпка 2) Приложете филтър
Стъпка 3) Видимите клетки ще бъдат изтрити с целия ред. Изтриване на код. Останалата част от данните, т.е. когато продукт B съществува в колона B, ще бъде нашият изход.
По този начин, използвайки VBA код, можем да изтрием редове, отговарящи на специфични условия.
Изтегляне - Изтриване на редове въз основа на условия - xlsm