Изтриване на редове в различни листове чрез VBA

Ако искате начин да изтриете всички подобни номера на редове наведнъж, тази статия е за вас.

В тази статия ще научим как можем да се отървем от един и същи ред в множество работни листове чрез макроси.

Въпрос): Искам да изтрия същия ред в множество работни листове, използвайки 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 като пример; когато изпълнявате това упражнение, ще намерите подобно решение във всички съответни листове.