Se vuoi un modo per eliminare tutti i numeri di righe simili in un colpo solo, questo articolo è per te.

In questo articolo impareremo come eliminare la stessa riga in più fogli di lavoro tramite 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 dal numero di fogli presenti nel file corrente; Voglio eliminare il numero di riga selezionato da tutti e 5 i fogli.

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

image 1

Dobbiamo seguire i seguenti passaggi:

Fare clic sulla scheda Sviluppatore. Dal gruppo Codice selezionare Visual Basic

image 2

Immettere il seguente codice nel modulo standard: –

Sub DeleteRows ()

Dim shtArr, i As Long, xx As Long

shtArr = Array (“Sheet1”, “Sheet2”, “Sheet3”, “Sheet4”, “Sheet5”)

xx = Selection.Row

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

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

Avanti i

End Sub

===

image 3

  • Ora posiziona il cursore su qualsiasi cella A1 e su Sheet1.

Premere ALT + F8 * per eseguire la macro; scoprirai 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.