Jede dritte Zeile in einer Excel-Tabelle löschen

March 13

Microsoft Excel ist ein Tabellenkalkulations-Programm mit erweiterten Funktionen für die Bearbeitung, Sortierung und Diagrammerstellung numerische Daten. Excel verfügt über viele Features und Funktionen zur Verfügung, die verschiedene Aktionen ausführen, die der Benutzer benötigen könnte. Die integrierte Funktionalität nicht die Anforderungen des Benutzers erfüllen, kann der inklusive Programmierung Programmiersprache Visual Basic für Applikationen (VBA), stattdessen verwendet werden. VBA ist eine robuste Programmiersprache für Operationen, die innerhalb des Kalkulationsblattes aus ausgeführt werden. Ein Vorgang wie das Löschen von Zeilen basierend auf Kundenanforderungen ist eine perfekte Passform für VBA.

Anweisungen

1 Öffnen Sie die Microsoft Excel-Kalkulationstabelle, aus der Sie jede dritte Zeile löschen möchten.

2 Hinzufügen von Daten zu ersten zwölf Zeilen der Tabelle in Spalte "A"

3 Öffnen Sie das Menü für Makros durch Drücken der Tasten "Alt" und "F8".

4 Geben Sie "Deletethree" in das Feld Makroname und klicken Sie auf die Schaltfläche "Erstellen".

5 Fügen Sie den folgenden Code unter dem Text "Sub Deletethree":

' Dim Variablen.

Y = 1 I = 1

Set xRng = Auswahl

' Schleife für jede Zeile in der Auswahl

For xCounter = 1 To xRng.Rows.Count

If Y = 3 Then

' ...delete an entire row of cells. xRng.Cells(I).EntireRow.Delete Y = 1 ' Otherwise... Else ' ...increment I by one to cycle through range. I = I + 1 Y = Y + 1 End If

Nächste xCounter

6 Speichern Sie das Makro "Deletethree" durch Drücken der Tasten "Ctrl" und "S". Schließen Sie das Fenster "Microsoft Visual Basic" an der Excel-Anwendung zurückgegeben.

7 Markieren Sie die Zellen A1 bis A12 in der Kalkulationstabelle.

8 Tasten Sie "Alt" und "F8" drücken, um das Makromenü zu öffnen. Wählen Sie das Makro "Deletethree", und klicken Sie auf die Schaltfläche "Ausführen". Nach Abschluss des Makros wird jede dritte Zeile entfernt.

Tipps & Warnungen

  • Ändern Sie die Zahl in der Zeile des Codes "Wenn Y = 3 Then" zum Löschen von Zeilen in verschiedenen Intervallen.
  • Markieren Sie die gesamte Spalte--nicht dadurch wird das Makro auf unbestimmte Zeit auszuführen.