Direkt zum Inhalt

Wie füge ich leere Zeilen ein, wenn sich der Wert in Excel ändert?

Autor: Xiaoyang Letzte Änderung: 2020-04-23

Angenommen, Sie haben einen Datenbereich und möchten jetzt leere Zeilen zwischen die Daten einfügen, wenn sich der Wert ändert, damit Sie die aufeinander folgenden gleichen Werte in einer Spalte wie in den folgenden Screenshots trennen können. In diesem Artikel werde ich über einige Tricks sprechen, mit denen Sie dieses Problem lösen können.

Fügen Sie leere Zeilen ein, wenn sich der Wert mit der Zwischensummenfunktion ändert

Fügen Sie leere Zeilen ein, wenn sich der Wert mit den Hilfsspalten ändert

Fügen Sie leere Zeilen ein, wenn sich der Wert mit dem VBA-Code ändert

Fügen Sie eine bestimmte Anzahl leerer Zeilen ein, wenn sich der Wert mit einer leistungsstarken Funktion ändert


Fügen Sie leere Zeilen ein, wenn sich der Wert mit der Zwischensummenfunktion ändert

Mit der Zwischensumme Mit dieser Funktion können Sie leere Zeilen zwischen die Daten einfügen, wenn sich der Wert wie folgt ändert:

1. Wählen Sie den Datenbereich aus, den Sie verwenden möchten.

2. Klicken Sie Daten-Management > Zwischensumme öffnen Zwischensumme Dialogfeld und in der Zwischensumme Dialog, bitte machen Sie die folgenden Optionen:

1: Wählen Sie den Spaltennamen aus, in den Sie leere Zeilen einfügen möchten, basierend darauf, wann sich der Wert unter ändert Bei jeder Änderung im Abschnitt;
2: Wählen Zu Zählen von dem Verwenden Sie die Funktion Dropdown-Liste;
3: Überprüfen Sie den Spaltennamen, in den Sie die Zwischensumme einfügen möchten Zwischensumme hinzufügen zu Listenfeld

3. Dann klick OKwurden die Zwischensummenlinien zwischen den verschiedenen Produkten eingefügt und die Umrisssymbole werden links in der Tabelle angezeigt, siehe Screenshot:

4. Klicken Sie dann auf die Nummer 2 oben im Umrisssymbol, um nur die Zwischensummenlinien anzuzeigen.

5. Wählen Sie dann die Zwischensummenbereichsdaten aus und drücken Sie Alt +; Tastenkombinationen zum Auswählen nur der sichtbaren Zeilen, siehe Screenshot:

6. Nachdem Sie nur die sichtbaren Zeilen ausgewählt haben, drücken Sie die Taste Löschen Taste auf der Tastatur, und alle Zwischensummenzeilen wurden entfernt.

7. Klicken Sie dann auf eine andere Zelle und gehen Sie zurück Daten-Management > Ungroup > Gliederung löschen Informationen zum Entfernen der Konturen finden Sie im Screenshot:

8. Die Umrisssymbole wurden sofort gelöscht, und Sie können sehen, dass leere Zeilen zwischen den Daten eingefügt wurden, wenn sich der Wert ändert. Siehe Screenshot:

9. Zuletzt können Sie die Spalte A nach Bedarf löschen.


Fügen Sie Seitenumbrüche, leere Zeilen, untere Ränder oder Füllfarben ein, wenn sich der Wert schnell ändert

Wenn Sie Kutools for Excel's Unterschiede unterscheiden Mit dieser Funktion können Sie schnell Seitenumbrüche, leere Zeilen, untere Ränder oder Füllfarben einfügen, wenn sich der Wert nach Bedarf ändert. Siehe die folgende Demo.         Klicken Sie hier, um Kutools für Excel herunterzuladen!


Fügen Sie leere Zeilen ein, wenn sich der Wert mit den Hilfsspalten ändert

Mit den Hilfsspalten können Sie zuerst eine Formel einfügen und dann die anwenden Suchen und Ersetzen Funktion schließlich fügen Sie die leeren Zeilen zwischen den sich ändernden Werten ein. Bitte gehen Sie wie folgt vor:

1. Geben Sie in eine leere Zelle C3 diese Formel ein = A3 = A2und geben Sie in Zelle D4 diese Formel ein = A4 = A3, siehe Screenshot:

2. Wählen Sie dann C3: D4 und ziehen Sie den Füllgriff auf den Bereich, in dem Sie diese Formeln anwenden möchten Wahre or falsch In den Zellen siehe Screenshot:

3. Und dann drücken Strg + F Schlüssel zum Öffnen der Suchen und Ersetzen Geben Sie im ausgeblendeten Dialogfeld ein FALSCH in die Finden Sie, was Textfeld unter Finde Registerkarte, und klicken Sie auf Optionen Klicken Sie auf die Schaltfläche, um diesen Dialog zu erweitern, und wählen Sie Werte von dem Hinein sehen Dropdown-Liste, siehe Screenshot:

4. Klicken Sie auf Finde alle Taste und drücken Sie dann Strg + A Um alle Ergebnisse des Findens auszuwählen, wurden alle FALSE-Zellen gleichzeitig ausgewählt, siehe Screenshot:

6. Schließe Suchen und Ersetzen Dialog, nächster Schritt, können Sie leere Zeilen einfügen, indem Sie auf klicken Heim > Insert > Blattzeilen einfügenund leere Zeilen wurden in die Daten eingefügt, wenn sich der Wert basierend auf Spalte A ändert, siehe Screenshots:

7. Schließlich können Sie die Hilfsspalten C und D nach Bedarf löschen.


Fügen Sie leere Zeilen ein, wenn sich der Wert mit dem VBA-Code ändert

Wenn Sie es leid sind, die oben genannten Methoden zu verwenden, können Sie mit diesem Code auch leere Zeilen zwischen den geänderten Werten sofort einfügen.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Fügen Sie leere Zeilen ein, wenn sich der Wert ändert

Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, in dem Sie eine Spaltendaten auswählen können, in die Sie leere Zeilen einfügen möchten, wenn sich der Wert ändert, auf dem Sie basieren. Siehe Screenshot:

4. Und dann klick OKwurden die leeren Zeilen zwischen Daten eingefügt, wenn sich der Wert basierend auf Spalte A ändert.


Fügen Sie eine bestimmte Anzahl leerer Zeilen ein, wenn sich der Wert mit einer leistungsstarken Funktion ändert

Wenn Sie mit den oben genannten problematischen Methoden ausprobiert werden, stelle ich hier ein nützliches Tool vor: Kutools for Excel's Unterschiede unterscheiden kann Ihnen helfen, Seitenumbrüche, leere Zeilen, untere Ränder oder Füllfarben einzufügen, wenn sich der Zellenwert schnell und einfach ändert.

Tipps:Um dies anzuwenden Unterschiede unterscheiden Funktion sollten Sie zunächst die herunterladen Kutools for Excelund wenden Sie die Funktion dann schnell und einfach an.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Klicken Sie Kutoolen > Format > Unterschiede unterscheiden, siehe Screenshot:

2. In dem Unterscheiden Sie Unterschiede anhand der Schlüsselspalte Im Dialogfeld führen Sie bitte die folgenden Vorgänge aus:

  • Wählen Sie den Datenbereich aus, den Sie verwenden möchten, und wählen Sie dann die Schlüsselspalte aus, auf deren Grundlage Sie leere Zeilen einfügen möchten.
  • Dann überprüfe Leere Reihe Option von der Optionen Geben Sie die Anzahl der leeren Zeilen ein, die Sie einfügen möchten.

3. Dann klick Ok Wenn sich der Zellenwert ändert, wurde die Schaltfläche und die spezifische Anzahl der leeren Zeilen in die Daten eingefügt. Siehe Screenshots:

Klicken Sie hier, um Kutools für Excel herunterzuladen und jetzt kostenlos zu testen!

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 (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, Hassan,

This vba is amazing, whereas I need one more alternate code for insert single blank row after changes in sequencing numbers. Example:- In column having number series like 1, 2, 3, 5, 6, 9 & etc...
Need to add single blank row between 3 & 5 as well as 6 & 9.
Please can you with this.
This comment was minimized by the moderator on the site
Can the VBA method be adapted to ignore blank cells? I have a file which I need to insert rows in based on two different columns but when I run the macro on the second column I end up with three blank lines where the first macro run inserted rows.
Or can it run on two columns at the same time?
This comment was minimized by the moderator on the site
Hello,
Is very usefull in case i need to insert 1 row, but if i need to insert 145 rows in every time the data change in spwcific column, how can i do it??
This comment was minimized by the moderator on the site
Hi, Hassan,
To insert multiple blank rows when value changes in a specific column, you should apply the following VBA code:

Note: In the below code, you should change the number 99 to your need, for example, when you insert 145 blank rows, you should change the number 99 to 144. Please try it, hope it can help you!

Sub InsertRowsAtValueChange()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
Range(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Insert
End If
Next
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Very helpful. The code that skyyang shows above worked perfectly. Just make sure that the data doesn't already have spaces in it.

I don't understand VBA, but I believe if you wanted to add more rows underneath data that already had the spacing, there should be a way to ignore spaces.

Could a line be added to ignore or skip over blank lines? That might make this code more universal and repeatable if needed. Also a delete function that is similar to this may be useful so undo isn't necessary.
This comment was minimized by the moderator on the site
RE: insert blank rows when value changes with vba code
Is there a way that I can save the Range & not have to pick it every time I run it?
This comment was minimized by the moderator on the site
The VBA code worked 1st time and did exactly what I was trying to do. Thank you so much!
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations