Odstraňte řádky v různých listech prostřednictvím VBA

Pokud chcete způsob, jak odstranit všechna podobná čísla řádků, pak je tento článek pro vás.

V tomto článku se naučíme, jak se můžeme zbavit stejného řádku ve více listech pomocí maker.

Otázka): Chci odstranit stejný řádek ve více listech pomocí kódu VBA. Chci kód pro odstranění všech řádků v sešitu bez ohledu na to, kolik listů je přítomno v aktuálním souboru; Chci odstranit číslo vybraného řádku ze všech 5 listů.

Nejprve zadáme podobná data do všech listů na stejném místě

Musíme postupovat podle následujících kroků:

Klikněte na kartu Vývojář
Ze skupiny kódů vyberte Visual Basic

Do standardního modulu zadejte následující kód:-

Sub DeleteRows ()

Dim shtArr, i As Long, xx As Long

shtArr = Pole ("List1", "List2", "List3", "Sheet4", "Sheet5")

xx = Selection.Row

For i = LBound (shtArr) To UBound (shtArr)

Sheets (shtArr (i)). Rows (xx) .EntireRow.Delete

Příště já

End Sub

Nyní umístěte kurzor na libovolnou buňku A1 a na List1.
lis ALT + F8 spustit makro; najdete vybrané číslo řádku bude odstraněno ve všech listech.
Následující snímek ukazuje data listu 1 a listu 2 jako příklad; když spustíte toto cvičení, najdete podobné řešení ve všech příslušných listech.