Wie füge ich eine Teilzeile in Excel ein oder lösche sie?
Es ist einfach, eine ganze Zeile aus dem Arbeitsblatt in Excel einzufügen oder zu löschen. Aber wie kann man nur Teilzeilen aus dem Arbeitsblatt einfügen oder löschen? Dieser Artikel wird Ihnen helfen.
Einfügen oder Löschen einer Teilzeile mit der Funktion Zellen einfügen / löschen
Einfügen oder Löschen einer Teilzeile mit VBA-Code
Einfügen oder Löschen einer Teilzeile mit der Funktion Zellen einfügen / löschen
Wenn Sie beispielsweise eine Teilzeile in Zeile 5 mit drei Zellen einfügen oder löschen möchten, gehen Sie wie folgt vor.
Teilzeile einfügen
1. Wählen Sie drei Zellen in Zeile 5 aus (die ausgewählten Zellen sollten den eingefügten Zellen entsprechen) und klicken Sie dann auf Insert > Zellen einfügen für Home Tab. Siehe Screenshot:
2. In dem Insert Dialogfeld auswählen Verschieben Sie die Zellen nach rechts or Verschieben Sie die Zellen nach unten Option und klicken Sie dann auf OK .
Dann wird eine Teilzeile mit drei Zellen eingefügt, wie im folgenden Screenshot gezeigt.
Teilzeile löschen
1. Klicken Sie nach Auswahl der zu löschenden Teilzeile auf Löschen> Zellen löschen für Home Tab.
2. In dem Löschen Dialogfeld auswählen Zellen nach links verschieben or Verschieben Sie die Zellen nach oben wie Sie brauchen, und klicken Sie dann auf die OK Taste. Siehe Screenshot:
Dann wird die ausgewählte Teilzeile gelöscht.
Einfügen oder Löschen einer Teilzeile mit VBA-Code
Sie können auch die folgenden VBA-Codes anwenden, um Teilzeilen in Excel einzufügen oder zu löschen.
1. Wählen Sie eine Zelle in einer bestimmten Zeile aus, in die Sie Teilzeilen einfügen möchten, und drücken Sie dann Andere + F11 öffnen Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das ein Code Fenster.
VBA-Code: Teilzeile in Excel einfügen
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End SubNote: Im VBA-Code bedeutet Nummer 1, dass die Teilzeile aus der ersten Spalte eingefügt wird, und Nummer 3 bedeutet, dass drei Zellen zwischen den Spalten eingefügt werden. Sie können sie je nach Bedarf ändern.
3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes, dann a Kutools for Excel Das Dialogfeld wird angezeigt. Geben Sie die Anzahl der erforderlichen Zeilen ein und klicken Sie auf OK .
Wenn Sie 3 in das Feld eingeben, klicken Sie auf OK Schaltfläche werden drei Teilzeilen mit drei Spalten an der angegebenen Position Ihres Arbeitsblatts eingefügt.
Zum Löschen einer Teilzeile können Sie den folgenden VBA-Code ausführen.
VBA-Code: Teilzeile in Excel löschen
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End SubNach dem Ausführen des Codes gibt es auch eine Kutools for Excel Das Dialogfeld wird angezeigt, um Sie daran zu erinnern, wie viele Teilzeilen Sie löschen möchten. Geben Sie die Nummer ein und klicken Sie auf OK Taste. Dann werden die angegebenen Teilzeilen sofort gelöscht.
Beste Office-Produktivitätstools
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 ...
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!
