Wie kann man Zeilen durchlaufen, bis sie in der Excel-Spalte leer sind?
Hier ist eine lange Spalte mit Daten, die einige leere Zellen enthält, und Sie möchten die Zeilen durchlaufen, bis Sie auf eine leere Zelle treffen. In Excel gibt es keine integrierte Funktion, die diesen Job erledigen kann, aber ich kann einige Makros einführen, um Ihnen einen Gefallen zu tun.
Durchlaufen Sie die Zeilen, bis sie mit VBA leer sind
Durchlaufen Sie die Zeilen, bis sie mit VBA leer sind
1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden Code in das leere Skript ein.
VBA: Schleife bis leer
Sub Test1()
'UpdatebyExtendoffice20161222
Dim x As Integer
Application.ScreenUpdating = False
' Set numrows = number of rows of data.
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
' Select cell a1.
Range("A1").Select
' Establish "For" loop to loop "numrows" number of times.
For x = 1 To NumRows
' Insert your code here.
' Selects cell down 1 row from active cell.
ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub
Im Code ist A1 die erste Zelle, aus der Sie eine Schleife erstellen möchten. Sie können sie nach Bedarf ändern.
3. Drücken Sie F5 Wenn Sie die Taste drücken, um die Spalte zu durchlaufen, stoppt der Cursor an der ersten leeren Zelle.
Note: Wenn Sie Daten durchlaufen möchten, bis fortlaufende leere Zellen erfüllt sind, können Sie diesen Makrocode verwenden.
Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
' Select cell A2, *first line of data*.
Dim xrg As Range
On Error Resume Next
Set xrg = Application.InputBox _
(Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
xrg.Cells(1, 1).Select
' Set Do loop to stop when two consecutive empty cells are reached.
Application.ScreenUpdating = False
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
' Insert your code here.
'
' Step down 2 rows from present location.
ActiveCell.Offset(2, 0).Select
Loop
Application.ScreenUpdating = False
End Sub
Dann müssen Sie die erste Zelle auswählen, aus der Sie eine Schleife erstellen möchten Kutools for Excel Dialog, klicken Sie auf OKDann stoppt der Cursor in den ersten fortlaufenden leeren Zellen.
Kombinieren Sie einfach mehrere Blätter / Arbeitsmappen zu einem einzigen Blatt oder einer Arbeitsmappe
|
Das Kombinieren mehrerer Blätter oder Arbeitsmappen zu einem Blatt oder einer Arbeitsmappe kann in Excel schwierig sein, aber mit dem Kombinieren Mit der Funktion in Kutools for Excel können Sie Dutzende von Arbeitsblättern / Arbeitsmappen zu einem Arbeitsblatt oder einer Arbeitsmappe zusammenführen. Außerdem können Sie die Arbeitsblätter mit nur mehreren Klicks zu einem einzigen zusammenfassen. Klicken Sie hier für eine 30-tägige kostenlose Testversion mit vollem Funktionsumfang! |
Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
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!