Wie füge ich eine leere Zeile basierend auf dem obigen Zellenwert in Excel ein?
In Excel ist das Einfügen von Leerzeilen eine der am häufigsten verwendeten Funktionen in unserer täglichen Arbeit. Gibt es jedoch eine Möglichkeit, leere Zeilen basierend auf dem obigen Zellenwert schnell einzufügen, wie im folgenden Screenshot gezeigt? In diesem Artikel wird nun die Methode zum schnellen Einfügen einer leeren Zeile basierend auf den obigen Zellenwerten in Excel beschrieben.
 |
 |
 |
Fügen Sie eine Zeile basierend auf dem obigen Wert ein
Fügen Sie eine Zeile basierend auf dem obigen Wert ein
Wenn Sie eine leere Zeile basierend auf der obigen Nummer einfügen möchten, können Sie einen Makrocode verwenden.
1. Aktivieren Sie das verwendete Blatt und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden Code in das Skript ein.
VBA: Fügen Sie einen leeren Code basierend auf der obigen Zelle ein
Sub Insert () 'UpdatebyExtendoffice20170926 Dim xRg als Bereich Dim xAddress As String Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox ("Wählen Sie einen zu verwendenden Bereich aus (einzelne Spalte) ): "," KuTools For Excel ", xAddress ,,,,, 8) Wenn xRg nichts ist, beenden Sie die Unteranwendung.ScreenUpdating = False xLastRow = xRg (1) .End (xlDown) .Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count Set xRg = xRg (1) Für I = xLastRow To xFstRow Schritt -1 xNum = Zellen (I, xCol) Wenn IsNumeric (xNum) und xNum> 0, dann Zeilen (I + 1) .Resize (xNum) .Insert xCount = xCount + xNum End If Next xRg.Resize (xCount, 1) .Wählen Sie Application.ScreenUpdating = True End Sub
3. Drücken Sie F5 Wenn Sie die Taste drücken, um den Code auszuführen, wird ein Dialogfeld angezeigt, in dem Sie daran erinnert werden, eine Liste für die Arbeit auszuwählen. Siehe Screenshot:
4 Klicken OKwurden die leeren Zeilen eingefügt.
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!
