Note: The other languages of the website are Google-translated. Back to English

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

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 unserer Bandbreite an TOTAL 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 > TOTAL öffnen TOTAL Dialogfeld und in der TOTAL 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 > 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 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 Start > 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!


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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!
officetab unten
Kommentare (15)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe eine Spalte mit den Zahlen 5,4,3,2 und 1 (viele davon) und ich möchte die Fünfen von den anderen trennen, wie: 5 5 5 4 3 2 1 5 5 5 5 5 4 3 2 1 Die Zahlen sind in Desc-Reihenfolge und es gibt immer eine Vier unter einer Fünf, also habe ich es versucht: Sub InsertRowsAtValueChange() 'Update 20140716 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 = 5 And WorkRng.Cells(i - 1, 1).Value = 4 Then WorkRng.Cells(i, 1).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub Aber es hat nicht funktioniert. Können Sie mir helfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Die Formel funktioniert hervorragend, es gibt jedoch einige Beispiele, bei denen sie nicht erkannt wird
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank, habe überall gesucht und dies war die einzige Lösung, die für mich funktioniert hat und die auch in einfachem Englisch war. Alle anderen Excel-Tutorial-Websites haben es nicht Schritt für Schritt aufgeschlüsselt, wie Sie es getan haben, vielen Dank. Beifall : )
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für die Beschreibung mehrerer Lösungen für das Problem. Ich habe Visual Basic verwendet und [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] durch [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop) .LineStyle = geändert xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With[/quote] Dadurch werden Linien zwischen Zeilen mit sich ändernden Werten anstelle von leeren Linien gezeichnet.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wo im Code müsste ich ändern, um mehr als eine Zeile einzuschließen, ich muss 10 nach jeder Pause hinzufügen ... Danke
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo zusammen danke!! Es ist großartig, könnt ihr mir auch sagen, wie man 2 Zeilen einfügt, wenn sich der Wert in VBA oder über Excel ändert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, diese sind fast nützlich! Die erste Methode funktioniert bei mir nicht, denn wenn ich den Schritten explizit folge, werden durch die Daten, die ich in den Zwischensummenbereichen lösche, die gesamten Spalten gelöscht, die ich sortiert habe. Wenn ich bei der zweiten Methode zu dem Schritt komme, in dem ich Blattzeilen einfüge, werden die Zeilen ÜBER den FALSE-Zellen eingefügt, wodurch die Daten aufgelöst werden, aber die letzte Auswahl jeder Gruppe wird dann der Gruppe darunter hinzugefügt. Irgendein Rat???
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]Hallo zusammen, danke!! Es ist großartig, könnt ihr mir auch sagen, wie man 2 Zeilen einfügt, wenn sich der Wert in VBA oder über Excel ändert.Von Hudson[/quote] Bitte teilen Sie mir mit, wie ich mehr als eine Zeile einfügen kann.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich benutze seit einiger Zeit meine eigene Lösung.
1. Fügen Sie eine Hilfsspalte in Spalte A ein
2. Geben Sie in A2 „if(B2=B1,A1,A1+1)“ ein.
3. Kopieren Sie diese Formel bis in die letzte Zeile
4. Kopieren Sie alle gefüllten Zellen in Spalte A und fügen Sie Inhalte (Werte) über sie ein
5. Kopieren Sie alle Zellen erneut und fügen Sie sie in Spalte A in der ersten unbefüllten Zelle ein (z. B. wenn Sie 104 Datenzeilen plus eine Kopfzeile haben, würden Sie sie in Zelle A106 einfügen)
6. Klicken Sie auf Daten und Duplikate entfernen (nur auf die Zellen, die Sie gerade in Schritt 5 eingefügt haben; nicht auf alle Zeilen)
7. Sortieren Sie die gesamte Spalte A
8. Spalte A löschen

Scheint viele Schritte zu sein, dauert aber nur wenige Sekunden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Der VBA-Code funktionierte beim ersten Mal und tat genau das, was ich versuchte zu tun. Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
RE: fügen Sie leere Zeilen ein, wenn sich der Wert mit VBA-Code ändert
Gibt es eine Möglichkeit, den Bereich zu speichern und ihn nicht jedes Mal auswählen zu müssen, wenn ich ihn ausführe?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Ist sehr nützlich, falls ich 1 Zeile einfügen muss, aber wenn ich jedes Mal 145 Zeilen einfügen muss, wenn sich die Daten in der spwcific-Spalte ändern, wie kann ich das machen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Hassan,
Um mehrere leere Zeilen einzufügen, wenn sich der Wert in einer bestimmten Spalte ändert, sollten Sie den folgenden VBA-Code anwenden:

Hinweis: Im folgenden Code sollten Sie die Zahl 99 nach Bedarf ändern. Wenn Sie beispielsweise 145 leere Zeilen einfügen, sollten Sie die Zahl 99 in 144 ändern. Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!

Sub InsertRowsAtValueChange()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Legen Sie WorkRng = Application.Selection fest
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Für i = WorkRng.Rows.Count To 2 Schritt -1
If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
Range(WorkRng.Cells(i, 1).GanzeReihe, WorkRng.Cells(i + 99, 1).GesamteReihe).Insert
End If
Weiter
Application.ScreenUpdating = True
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr hilfreich. Der Code, den Skyyang oben zeigt, hat perfekt funktioniert. Stellen Sie nur sicher, dass die Daten nicht bereits Leerzeichen enthalten.

Ich verstehe VBA nicht, aber ich glaube, wenn Sie weitere Zeilen unter Daten hinzufügen wollten, die bereits den Abstand hatten, sollte es eine Möglichkeit geben, Leerzeichen zu ignorieren.

Könnte eine Zeile hinzugefügt werden, um leere Zeilen zu ignorieren oder zu überspringen? Das könnte diesen Code bei Bedarf universeller und wiederholbarer machen. Auch eine ähnliche Löschfunktion kann nützlich sein, damit ein Rückgängigmachen nicht erforderlich ist.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kann die VBA-Methode angepasst werden, um leere Zellen zu ignorieren? Ich habe eine Datei, in die ich Zeilen basierend auf zwei verschiedenen Spalten einfügen muss, aber wenn ich das Makro in der zweiten Spalte ausführe, habe ich am Ende drei leere Zeilen, in denen das erste Makro eingefügte Zeilen ausführt.
Oder kann es auf zwei Spalten gleichzeitig laufen?
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL