So löschen Sie jede andere Reihe oder jede n -te Reihe in Excel

In diesem Tutorial werden Sie in Microsoft Excel effizient jede andere Zeile oder eine beliebige N -te Reihe effizient löschen. Wir werden zwei Methoden abdecken: Filterung und VBA -Code.

Es gibt viele Szenarien, in denen das Entfernen bestimmter Zeilen erforderlich ist. Beispielsweise müssen Sie möglicherweise Daten aus gerade zahlenlosen Wochen aufbewahren, während Sie Daten mit ungeraden Wochen in ein separates Blatt übertragen werden. Der Kern des Prozesses umfasst die Auswahl der Zielreihen und das Löschen dieser Anschlüsse.

Methoden:

• Jede andere Zeile durch Filterung löschen
• Alternative Zeilen mit VBA löschen
• Jede n -te Reihe löschen

Methode 1: Löschen jeder zweiten Zeile mit Filterung

Diese Methode verwendet eine Helfersäule und die Filterfunktionen von Excel.

1. Helferspalte: Fügen Sie eine neue Spalte neben Ihren Daten hinzu. Enter =MOD(ROW(),2) in der ersten Zelle dieser Spalte und ziehen Sie sie nach unten. Diese Formel gibt 0 für gleichmäßige Zeilen und 1 für ungerade Zeilen zurück.

   

2. Filterung: Wenden Sie einen Filter auf die Helferspalte an (Daten> Sortier und Filter> Filter). Wählen Sie entweder 0 (um gleichmäßige Zeilen zu löschen) oder 1 (um ungerade Zeilen zu löschen).

   

3. Löschen: Wählen Sie die sichtbaren Zeilen (diejenigen, die Ihren Filterkriterien entsprechen), klicken Sie mit der rechten Maustaste und wählen Sie "Zeile löschen".

   

4. Filter entfernen: Schalten Sie den Filter aus (klicken Sie erneut auf die Schaltfläche Filter). Löschen Sie die Helfersäule.

   

   Ihr Arbeitsblatt enthält jetzt nur die Zeilen, die Sie behalten wollten.

   

Tipp: Um Zeilen zu verschieben , anstatt sie zu löschen, kopieren Sie die gefilterten Zeilen, bevor Sie sie löschen, und fügen Sie sie an einen neuen Ort ein.

Methode 2: Alternative Zeilen mit VBA löschen

Dieses VBA -Makro automatisiert den Prozess:

 Sub delete_alternate_rows_excel ()
  Dimer Sourcerange als Reichweite
  Setzen Sie Sourcerange = Anwendung.Selection
  Setzen Sie Sourcerange = application.inputbox ("Bereich:", "den Bereich auswählen", Sourcerange.address, Typ: = 8)
  Wenn Sourcerange.rows.count> = 2 dann
    Dim Firstcell als Reichweite
    Dim RowIndex als Ganzzahl
    Application.screenupdating = false
    Für RowIndex = Sourcerange.rows.count - (Sourcerange.rows.count Mod 2) bis 1 Schritt -2
      Setzen Sie FirstCell = Sourcerange.cells (RowIndex, 1)
      Firstcell.entirerow.delete
    Nächste
    Application.screenupdating = true
  Ende wenn
Ende sub

1. Öffnen Sie den VBA -Editor (ALT F11).

2. Einfügen ein Modul (einfügen> Modul).

3. Fügen Sie den Code in das Modul ein.

4. Führen Sie das Makro aus (F5).

5. Wählen Sie den Datenbereich aus, wenn Sie aufgefordert werden.

   

   Das Makro löscht jede andere Zeile im ausgewählten Bereich.

   

Methode 3: Löschen jeder n -ten Reihe

Dies erweitert die Filtermethode. Verwenden Sie diese Formel in der Helfer -Spalte:

=MOD(ROW() - *m*, *n*)

Wo:

• m ist die Zeilennummer der ersten Datenzeile minus 1.
• n ist die n -te Zeile zum Löschen.

Verwenden Sie beispielsweise jede 3. Zeile ab Zeile 2, verwenden Sie =MOD(ROW()-1,3) . Dann für 0 filtern und die sichtbaren Zeilen löschen.

Auf diese Weise können Sie jede n -te Zeile effizient löschen. Denken Sie daran, m basierend auf Ihrer Startzelle anzupassen.

Das obige ist der detaillierte Inhalt vonSo löschen Sie jede andere Reihe oder jede n -te Reihe in Excel. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!