Vai al contenuto principale

Come eliminare le stesse righe o intervalli su più fogli in Excel?

Questo articolo consiglia due metodi per eliminare le stesse righe o intervalli su più fogli contemporaneamente in Excel. Si prega di fare quanto segue.

Elimina le stesse righe o intervalli su più fogli raggruppando tutti i fogli
Elimina le stesse righe o intervalli su più fogli con codici VBA


Elimina le stesse righe o intervalli su più fogli raggruppando tutti i fogli

È facile raggruppare tutti i fogli di lavoro e quindi eliminare le stesse righe o intervalli da questi fogli di lavoro contemporaneamente.

1. Fare clic con il pulsante destro del mouse su qualsiasi scheda del foglio nella cartella di lavoro corrente, quindi fare clic su Seleziona tutti i fogli dal menu di scelta rapida.

2. Ora tutti i fogli di lavoro sono selezionati, se si eliminano determinate righe o intervalli in un foglio di lavoro, le stesse righe o intervalli in altri fogli di lavoro vengono eliminati insieme.

3. Dopo aver eliminato righe o intervalli su tutti i fogli, fare clic con il pulsante destro del mouse su una scheda del foglio e quindi fare clic su Separa fogli dal menu di scelta rapida per separare tutti i fogli di lavoro.


Elimina le stesse righe o intervalli su più fogli con codici VBA

Oltre al metodo sopra, puoi eseguire i seguenti codici VBA per eliminare le stesse righe o intervalli su più fogli di lavoro.

Elimina le stesse righe su più fogli

1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il seguente codice VBA nella finestra del codice.

Codice VBA: elimina le stesse righe su più fogli in Excel

Sub bleh()
    Dim xWs As Worksheet
    Set xWs = ActiveSheet
    ThisWorkbook.Worksheets.Select
    Rows("4:5").Select
    Selection.Delete
    xWs.Select
End Sub

Note:: Nel codice VBA, 4: 5 significa che le righe 4 e 5 verranno eliminate su più fogli di lavoro nella cartella di lavoro corrente. Puoi cambiarli nella riga necessaria.

3. Stampa F5 chiave per eseguire il codice, quindi le righe specificate vengono eliminate immediatamente da tutti i fogli nella cartella di lavoro corrente.

Elimina gli stessi intervalli su più fogli

Per eliminare gli stessi intervalli su più fogli, puoi provare il codice VBA di seguito.

Codice VBA: elimina lo stesso intervallo su più fogli

Private Sub CommandButton2_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xWs As Worksheet
    On Error Resume Next
    Set xWs = ActiveSheet
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.ClearContents
    ThisWorkbook.Worksheets.Select
    ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
    xWs.Select
End Sub

Dopo aver copiato e incollato il codice VBA nel modulo, premere F5 chiave per eseguire il codice e nel pop-up Kutools for Excel finestra di dialogo, selezionare l'intervallo da eliminare su più fogli, quindi fare clic su OK pulsante.

Ora i valori delle celle in questo intervallo specifico vengono eliminati immediatamente da tutti i fogli nella cartella di lavoro corrente.


Articoli correlati:

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have a multiple data in multiple sheets and I want to delete some data with specific code in all sheets. kindly suggest.
This comment was minimized by the moderator on the site
Hi Ranit Mehta,
I don't quite understand your question. In the post, we provided a piece of VBA code for deleting data in the same range in multiple worksheets. I am not sure if this meets your needs.
The code is as follows:
Private Sub CommandButton2_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xWs As Worksheet
    On Error Resume Next
    Set xWs = ActiveSheet
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.ClearContents
    ThisWorkbook.Worksheets.Select
    ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
    xWs.Select
End Sub
This comment was minimized by the moderator on the site
Muchas gracias por el aporte, me ahorro mucho tiempo de trabajo.Bendiciones.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations