Salt la conținutul principal

Cum să ștergeți aceleași rânduri sau intervale pe mai multe foi în Excel?

Acest articol recomandă două metode de ștergere a acelorași rânduri sau intervale pe mai multe foi în același timp în Excel. Vă rugăm să faceți următoarele.

Ștergeți aceleași rânduri sau intervale pe mai multe foi, grupând toate foile
Ștergeți aceleași rânduri sau intervale pe mai multe foi cu coduri VBA


Ștergeți aceleași rânduri sau intervale pe mai multe foi, grupând toate foile

Este ușor să grupați toate foile de lucru și apoi să ștergeți aceleași rânduri sau intervale din aceste foi de lucru în același timp.

1. Faceți clic dreapta pe orice filă a foii din registrul de lucru curent, apoi faceți clic pe Selectați Toate foile din meniul cu clic dreapta.

2. Acum sunt selectate toate foile de lucru, dacă ștergeți anumite rânduri sau intervale dintr-o foaie de lucru, aceleași rânduri sau intervale din alte foi de lucru sunt șterse împreună.

3. După ștergerea rândurilor sau intervalelor de pe toate foile, faceți clic dreapta pe o filă de foaie, apoi faceți clic pe Dezgropați Foi din meniul care face clic dreapta pentru a dezgropa toate foile de lucru.


Ștergeți aceleași rânduri sau intervale pe mai multe foi cu coduri VBA

Pe lângă metoda de mai sus, puteți rula următoarele coduri VBA pentru a șterge aceleași rânduri sau intervale pe mai multe foi de lucru.

Ștergeți aceleași rânduri pe mai multe foi

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți următorul cod VBA în fereastra Cod.

Cod VBA: ștergeți aceleași rânduri pe mai multe foi în Excel

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

notițe: În codul VBA, 4: 5 înseamnă că rândurile 4 și 5 vor fi șterse pe mai multe foi de lucru din registrul de lucru curent. Le puteți schimba la rândul necesar.

3. presa F5 tasta pentru a rula codul, apoi rândurile specificate sunt șterse imediat din toate foile din registrul de lucru curent.

Ștergeți aceleași intervale pe mai multe foi

Pentru a șterge aceleași intervale pe mai multe foi, puteți încerca codul VBA de mai jos.

Cod VBA: ștergeți același interval pe mai multe foi

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

După copierea și lipirea codului VBA în modul, apăsați F5 tasta pentru a rula codul și în fereastra pop-up Kutools pentru Excel caseta de dialog, selectați intervalul pe care îl veți șterge pe mai multe foi, apoi faceți clic pe OK butonul.

Acum valorile celulei din acest interval specific sunt șterse imediat din toate foile din registrul de lucru curent.


Articole pe aceeași temă:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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