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.
Hinweis: 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 SubDann 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 Funktion in Kutools for Excel, können Sie Dutzende von Blättern/Arbeitsmappen zu einem Blatt oder einer Arbeitsmappe zusammenführen, außerdem können Sie die Blätter mit nur wenigen Klicks zu einem konsolidieren. Klicken Sie für Vollfunktion 30 Tage kostenlos testen! |
 |
| Kutools for Excel: mit mehr als 300 praktischen Excel-Add-Ins, die Sie ohne Einschränkung kostenlos ausprobieren können 30 Tage. |
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools for Excelund erleben Sie Effizienz wie nie zuvor. Kutools for Excel Bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt eine Tab-Oberfläche 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!
