Elimina righe in fogli diversi tramite VBA

Se vuoi un modo per eliminare tutti i numeri di righe simili in una volta, questo articolo fa per te.

In questo articolo impareremo come eliminare la stessa riga in più fogli di lavoro tramite le macro.

Domanda): Voglio eliminare la stessa riga in più fogli di lavoro utilizzando il codice VBA. Quello che voglio è il codice per eliminare tutte le righe nella cartella di lavoro indipendentemente da quanti fogli sono presenti nel file corrente; Voglio eliminare il numero di riga selezionato da tutti e 5 i fogli.

Prima di tutto inseriamo i dati simili in tutti i fogli di lavoro nella stessa posizione

Dobbiamo seguire i passaggi seguenti:

Fare clic sulla scheda Sviluppatore
Dal gruppo Codice seleziona Visual Basic

Inserisci il seguente codice nel modulo standard:-

Sotto EliminaRighe()

Dim shtArr, i As Long, xx As Long

shtArr = Array("Foglio1", "Foglio2", "Foglio3", "Foglio4", "Foglio5")

xx = Selezione.Riga

Per i = LBound(shtArr) a UBound(shtArr)

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

Avanti io

Fine sottotitolo

Ora posiziona il cursore su qualsiasi cella A1 e su Foglio1.
premere ALT + F8 per eseguire la macro; troverai che il numero di riga selezionato viene eliminato in tutti i fogli.
La seguente istantanea mostra i dati del foglio 1 e del foglio 2 come esempio; quando esegui questo esercizio troverai una soluzione simile in tutti i rispettivi fogli.