Direkt zum Inhalt

Wie wähle ich jede zweite oder n-te Zeile in Excel aus?

Wenn wir ein Arbeitsblatt verwenden, müssen wir manchmal jede zweite oder n-te Zeile des Blattes zum Formatieren, Löschen oder Kopieren auswählen. Sie können sie manuell auswählen. Wenn jedoch Hunderte von Zeilen vorhanden sind, ist diese Methode keine gute Wahl. Hier sind einige Tricks, die Ihnen helfen sollen.

Wählen Sie jede andere oder n-te Zeile mit VBA aus

Wählen Sie mit Kutools for Excel jede zweite oder n-te Zeile ausgute Idee3


Wählen Sie jede andere oder n-te Zeile mit VBA aus

In diesem Beispiel werde ich eine Zeile mit zwei Intervallen auswählen. Mit VBA-Code kann ich es wie folgt beenden:

1. Markieren Sie den Bereich, in dem Sie jede zweite oder n-te Zeile auswählen möchten.

2.Klicken Entwickler:in / Unternehmen > Visual BasicEin neuer Microsoft Visual Basic für Anwendungen Fenster wird angezeigt, klicken Sie auf Insert > Modulund geben Sie den folgenden Code in das Modul ein:

Sub EveryOtherRow()
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1)
For i = 1 To InputRng.Rows.Count Step xInterval + 1
    Set rng = InputRng.Cells(i, 1)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireRow.Select
End Sub

3. Klicken Sie dann auf doc-multiplizieren-berechnen-3 Schaltfläche, um den Code auszuführen. Außerdem wird ein Dialogfeld angezeigt, in dem Sie einen Bereich auswählen können. Siehe Screenshot:



4 Klicken OKIn diesem Fall gebe ich 3 in das andere Popout-Dialogfeld als Intervallzeile ein. Siehe Screenshot

5 Klicken OKund jede dritte Zeile wurde ausgewählt. Siehe Screenshot:

Sie können das Intervall nach Bedarf in der Sekunde ändern KutoolsforExcel Dialog.


Wählen Sie mit Kutools for Excel jede zweite oder n-te Zeile aus

Mit VBA-Code können Sie nur eine Zeile mit festgelegten Intervallen auswählen, wenn Sie zwei, drei oder andere Zeilen mit festgelegten Intervallen auswählen müssen Kutools for Excel kann Ihnen helfen, dieses Problem einfach und bequem zu lösen.

Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. 

Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1 Klicken Kutoolen > Select > Select Interval Rows & Columns…, Siehe Screenshot:

doc wählen Sie jede zweite Zeile aus8

2. In dem  Select Interval Rows & Columns Klicken Sie im Dialogfeld aufdoc-replace-range-names-7 Klicken Sie auf die Schaltfläche, um den gewünschten Bereich auszuwählen Rows or Columns für Select Abschnittund geben Sie die gewünschte Nummer in der an Interval of Eingabefeld und Rows Eingabefeld. Siehe Screenshot:

doc wählen Sie jede zweite Zeile aus9

doc wählen Sie jede zweite Zeile aus10

Anmerkungen:
1. Wenn Sie jede zweite Zeile in der Auswahl auswählen müssen, geben Sie 2 in das Feld Eingabeintervalle und 1 in das Feld ein Rows Eingabefeld.

2. Wenn Sie die gesamte benötigte Zeile auswählen möchten, können Sie dies überprüfen Select entire rows .
doc wählen Sie jede zweite Zeile aus11


Schattieren Sie jede zweite oder n-te Zeile mit Kutools for Excel

Wenn Sie Bereiche in jeder zweiten Zeile schattieren möchten, damit die Daten wie im folgenden Screenshot besser dargestellt aussehen, können Sie sie anwenden Kutools for Excel Alternate Row/Column Shading Funktion, um den Job schnell zu erledigen.

doc wählen Sie jede zweite Zeile aus12
doc Pfeil nach unten
doc wählen Sie jede zweite Zeile aus13

Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1. Wählen Sie den Zellenbereich aus, für den Sie einen Schattenintervall erstellen möchten, und klicken Sie auf Kutoolen > Format > Alternate Row/Column Shading.
doc wählen Sie jede zweite Zeile aus14

2. In dem Alternate Row/Column Shading Dialog, machen Sie wie folgt:

1) Wählen Sie die Zeilen oder Spalten aus, die Sie schattieren möchten.

2) Wählen Sie Conditional formatting or Standardformatierung wie du es brauchst;

3) Geben Sie das Schattierungsintervall an.

4) Wählen Sie eine Schattierungsfarbe.
doc wählen Sie jede zweite Zeile aus15

3 Klicken Ok. Jetzt wurde der Bereich in jeder n-ten Zeile schattiert.

Wenn Sie die Schattierung entfernen möchten, überprüfen Sie Entfernen Sie vorhandene alternative Zeilenschattierungen Option in Alternative Zeilen- / Spaltenschattierung Dialog.


In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Help, please. This looks great, BUT when I hit the > Run button it fails with a "Compile error: Sub or Function not defined" and the code stopped at "Set rng = InputRng.Rows.Count Step xInterval +1".
This comment was minimized by the moderator on the site
Also I don't get how "Set" and "Step" could ever work together
This comment was minimized by the moderator on the site
Not sure that I will be able to help, but.. First of, there is a spacing between "C" and "ount" in "Count" when i copied your code string over to a module. Secondly, I can´t find your code anywhere else on this page, please submit the whole thing, if the problem remains.
This comment was minimized by the moderator on the site
Replace OutRng.EntireRow.Select with Intersect(OutRng.EntireRow, InputRng).Select if you want every other row within your selection
This comment was minimized by the moderator on the site
really good, thanks!
This comment was minimized by the moderator on the site
The code has one request. Does it have to select the ENTIRE ROW for each nth row? Can't it just select certain cells (range of cells) within each nth row? I don't need all the information in each row. Just certain cells of each nth row.
This comment was minimized by the moderator on the site
I made the modifications below to select 30 rows Sub EveryOtherRow() Dim rng As Range Dim InputRng As Range Dim OutRng As Range Dim xInterval As Integer xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1) For i = 1 To InputRng.Rows.Count Step xInterval + 1 Set rng = InputRng.Cells(i, 1).Resize(, 30) 'Resize to the number of columns to select, 30 in this case If OutRng Is Nothing Then Set OutRng = rng Else Set OutRng = Application.Union(OutRng, rng) End If Next OutRng.Select 'Use OutRng.EntireRow.Select to select the entire row End Sub
This comment was minimized by the moderator on the site
Nice, thanks, this was very helpful ^_^
This comment was minimized by the moderator on the site
fanatastic. thanks a lot.it works perfect.I have more than 7000 data that need to select them with different interval.this trick was like a miracle for me.thaaaaaaaanks.
This comment was minimized by the moderator on the site
I'm trying to use the VBA macro in Excel 2010. It will only select the first nth row, not all of them in the selection. If I run it again, it will go to the next. Any idea what I'm doing wrong? Thanks!
This comment was minimized by the moderator on the site
Just saved my ass with this code thanks! My matlab decided to randomly stop working and so I had to resort to excel which I am not as familiar with as with Matlab. This def. helped. Thanks.
This comment was minimized by the moderator on the site
I need to select multiple rows and a fixed interval and move to the other sheet please answer me as soon as possible 
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations