Ако искате начин да изтриете всички подобни номера на редове наведнъж, тази статия е за вас.
В тази статия ще научим как можем да се отървем от един и същи ред в множество работни листове чрез макроси.
Въпрос): Искам да изтрия същия ред в множество работни листове, използвайки VBA код. Това, което искам, е код за изтриване на всички редове в работната книга, независимо от това колко листа има в текущия файл; Искам да изтрия избрания номер на ред от всичките 5 листа.
Първо, нека въведем подобни данни във всички работни листове на едно и също място
Трябва да следваме следните стъпки:
- Кликнете върху раздела Разработчик
- От групата кодове изберете Visual Basic
Въведете следния код в стандартния модул:-
Sub DeleteRows ()
Dim shtArr, i As Long, xx As Long
shtArr = Array ("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
xx = Избор. Ред
За i = LBound (shtArr) Към UBound (shtArr)
Листове (shtArr (i)). Редове (xx) .EntireRow.Delete
Следва i
End Sub
- Сега поставете курсора върху всяка клетка A1 & на Sheet1.
- Натиснете ALT + F8 за стартиране на макроса; ще откриете, че избраният номер на ред се изтрива във всички листове.
- Следващата снимка показва данни от лист 1 и лист 2 като пример; когато изпълнявате това упражнение, ще намерите подобно решение във всички съответни листове.
- Ако поставим курсора върху която и да е клетка A2 & на Sheet2, резултатът също ще бъде подобен.
В този случай можем да изтрием подобен номер на ред, използвайки VBA код.
Изтегляне- Примерен файл- xlsm
