Microsoft Excel ist ein beliebtes Tabellenkalkulation, die hilfreiche Werkzeuge für die Dateneingabe , Berechnung, Grafik- , Pivot-Tabellen und vieles mehr bietet . Obwohl Excel ist ein komplexes, voll ausgestattetes Programm , ist es nicht geben Benutzern die Möglichkeit, abwechselnd Zeilen einer Tabelle standardmäßig löschen. Das Hinzufügen dieser Funktionalität erfordert, dass Benutzer einen automatisierten Task genannt ein Makro definieren , führen Sie dann das Makro auf die Zeilen in einem Spreadsheet sie ändern möchten. Anleitung
1

Öffnen Sie die Excel Visual Basic -Editor. Mit Ihrer Tabellenkalkulation in Excel geöffnet , klicken Sie auf "Tools" aus dem Menü am oberen Rand des Bildschirms , und wählen Sie dann "Macro " und " Visual Basic -Editor. " Wenn Sie Excel 2003 oder älter verwenden, gehen Sie zum nächsten Schritt .

Excel 2007-Benutzer werden feststellen, dass der vorherige Befehl existiert nicht in der aktuellen Version von Excel , und dass keine Makro -Editing-Tools standardmäßig angezeigt . Schalten Sie den Zugriff auf diese Tools , indem Sie auf die Office-Schaltfläche in der oberen linken Ecke des Bildschirms und dann auf die " Excel-Optionen "-Button am unteren Rand des Menüs . Suchen Sie die Überschrift mit der Aufschrift " Top Optionen für das Arbeiten mit Excel " im angezeigten Dialogfeld aktivieren Sie das Kontrollkästchen neben dem "Show Registerkarte Entwicklertools in der Multifunktionsleiste "-Label. Klicken Sie auf " OK". Wählen Sie die Registerkarte Entwicklertools, klicken Sie auf " Visual Basic " -Taste.
2

Fügen Makro-Code . Klicken Sie auf " Einfügen" aus dem Menü am oberen Rand des Microsoft Visual Basic -Editor-Fenster und wählen Sie " . Module" Kopieren Sie alle der unten aufgeführten Code , fügen Sie ihn in diesem Modul :

Sub Delete_Every_Other_Row ( ) 'Dimension variables.Y = False' ändern Sie dies auf True , wenn Sie wollen " löschen von Zeilen 1, 3, 5, und so on.I = 1Set XRNG = Selection 'Loop einmal für jede Zeile in der selection.For XCounter = 1 Um xRng.Rows.Count "Wenn Y wahr ist, dann ... Wenn Y = True Then ' . ... löschen eine ganze Reihe von cells.xRng.Cells (I) EntireRow.Delete ' Ansonsten ... Else ' . erhöhen .. ich von einem so können wir durchlaufen range.I = I + 1End If ' wenn Y True ist, machen es falsch, wenn Y False ist, machen es True.Y = Nicht YNext xCounterEnd Sub
Seite 3

Führen Sie das Makro . Zurück zu Ihrer Tabellenkalkulation ohne das Visual Basic -Editor. Markieren Sie die Zeilen, für die alternierende Reihe entfernt werden soll. In Excel 2003 und früheren Versionen klicken Sie auf das Menü "Extras" Option , wählen Sie dann " Macro" , durch die "Makros " Option gefolgt . In Excel 2007 wählen Sie die Registerkarte Entwicklertools, und klicken Sie auf "Makros ". Um das Makro in jeder Version zu starten, wählen Sie das Makro mit " Delete_Every_Other_Row " , klicken Sie dann auf "Ausführen". Jede geradzahlige Zeile Ihrer Tabelle löscht .