Kustutage ridad erinevatelt lehtedelt VBA kaudu

Kui soovite kustutada kõik sarnased ridade numbrid korraga, on see artikkel teie jaoks.

Selles artiklis õpime, kuidas saame makrode kaudu vabaneda samast reast mitmel töölehel.

Küsimus): Soovin kustutada sama rea mitmetelt töölehtedelt, kasutades VBA -koodi. Soovin, et kood kustutaks kõik töövihiku read, olenemata sellest, kui palju lehti praeguses failis on; Soovin kustutada valitud reanumbri kõigilt 5 lehelt.

Esiteks sisestage sarnased andmed kõikidele töölehtedele samas kohas

Peame järgima järgmisi samme:

Klõpsake vahekaarti Arendaja
Valige koodigrupist Visual Basic

Sisestage standardmoodulisse järgmine kood:-

Alam Kustuta read ()

Dim shtArr, i As Long, xx Long

shtArr = Massiiv ("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")

xx = Valik. Rida

I = LBound (shtArr) kuni UBound (shtArr)

Arvutustabelid (shtArr (i)). Ridad (xx). Kogu rida. Kustuta

Edasi i

End Sub

Nüüd asetage kursor mis tahes lahtrile A1 ja lehel1.
Vajutage ALT + F8 makro käivitada; leiad, et valitud reanumber kustutatakse kõikidelt lehtedelt.
Järgnev hetktõmmis näitab näiteks lehe 1 ja lehe 2 andmeid; seda harjutust tehes leiate sarnase lahenduse kõikidelt lehtedelt.