Excel-VBA-Finde die Letzte Zeile in range

Hoffe, dieser code hilft !

Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    MsgBox LastRow
End Sub

InformationsquelleAutor Rockstar

LR_wbSelectNew = wbshtSelect.cells(LR_wbSelect, "B").End(xlUp).Row

Warum verwenden Sie "LR_wbSelect" als Zeilen-Zähler? Wenn du wissen willst, die Letzte Zeile von Spalte " B " verwenden, sollten Sie Zeilen.Graf

Zeilen.count --> Gibt die maximale Anzahl von Zeilen (die ist 1048576 für Excel 2007 und höher)
End(xlUp) --> Bewegt sich der Zeiger nach oben, um die Letzte verwendete Zeile

So,
Zellen(Zeilen werden.count, "A").End(xlUp).Zeile --> Dieser bewegt den Zeiger auf die Letzte Zeile, wenn die Spalte 'A' (wie wenn Sie drücken Sie Strg+nach-Oben-Tasten, wenn A1048576 Zelle ausgewählt ist)

So, Zeilen.zählen, wählen Sie die Letzte Zeile der Spalte 'B' als gut. Wenn Sie irgendeine spezifische Anforderung LR_wbSelect, bitte erwähnen Sie es.

Alternativ, wenn Sie wollen, um zu wissen, die Letzte Zeile verwendet, in einem Blatt, können Sie die unten:

mySheet.Cells.SpecialCells(xlCellTypeLastCell).Row

InformationsquelleAutor ArindamD

Ich kam hierher auf der Suche nach ein Weg, um die Letzte Zeile in einer nicht zusammenhängende Bereich. Die meisten Antworten hier nur prüfen, eine Spalte zu einem Zeitpunkt also schuf ich ein paar verschiedene Funktionen, um dieses problem zu lösen. Ich will zugeben, obwohl, dass Shai Rado Antwort ist im wesentlichen die gleiche wie meine .Find() Umsetzung.

Umsetzung 1 - Verwendet Range().End(xlUp) auf jede Spalte

Function LastRowInRange_xlUp(ByVal rng As Range) As Long

    Dim lastRowCurrent As Long
    Dim lastRowBest As Long

    'loop through columns in range
    Dim i As Long
    For i = rng.Column To rng.Column + rng.Columns.count - 1
        If rng.Rows.count < Rows.count Then
            lastRowCurrent = Cells(rng.row + rng.Rows.count, i).End(xlUp).row
        Else
            lastRowCurrent = Cells(rng.Rows.count, i).End(xlUp).row
        End If

        If lastRowCurrent > lastRowBest Then
            lastRowBest = lastRowCurrent
        End If
    Next i

    If lastRowBest < rng.row Then
        LastRowInRange_xlUp = rng.row
    Else
        LastRowInRange_xlUp = lastRowBest
    End If

End Function

Umsetzung 2 - Verwendet Range().Find() in umgekehrter Reihenfolge

Function LastRowInRange_Find(ByVal rng As Range) As Long

    'searches range from bottom up looking for "*" (anything)
    Dim rngFind As Range
    Set rngFind = rng.Find( What:="*", _
                            After:=Cells(rng.row, rng.Column), _
                            LookAt:=xlWhole, _
                            LookIn:=xlValues, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious)

    If Not rngFind Is Nothing Then
        LastRowInRange_Find = rngFind.row
    Else
        LastRowInRange_Find = rng.row
    End If

End Function

Umsetzung 3 - Schleife über ein Array in umgekehrter Reihenfolge

Function LastRowInRange_Array(ByVal rng As Range) As Long

    'store range's data as an array
    Dim rngValues As Variant
    rngValues = rng.Value2

    Dim lastRow As Long

    Dim i As Long
    Dim j As Long

    'loop through range from left to right and from bottom upwards
    For i = LBound(rngValues, 2) To UBound(rngValues, 2)                'columns
        For j = UBound(rngValues, 1) To LBound(rngValues, 1) Step -1    'rows

            'if cell is not empty
            If Len(Trim(rngValues(j, i))) > 0 Then
                If j > lastRow Then lastRow = j

                Exit For
            End If

        Next j
    Next i

    If lastRow = 0 Then
        LastRowInRange_Array = rng.row
    Else
        LastRowInRange_Array = lastRow + rng.row - 1
    End If

End Function

Habe ich noch nicht getestet, welche dieser Implementierungen geht am schnellsten auf große Mengen von Daten, aber ich könnte mir vorstellen, dass der Gewinner wäre _Array da es nicht die Schleife durch jede Zelle auf dem Blatt einzeln, sondern stattdessen eine Schleife durch die Daten im Speicher abgelegt. Jedoch, ich habe alle 3 zur Auswahl 🙂

Wie zu verwenden

Um diese Funktionen zu verwenden, Sie legen Sie Sie in das code-Blatt/Modul, einen Bereich anzugeben, da Ihre parameter, und dann werden Sie zurückkehren "kleinsten" gefüllte Zeile in diesem Bereich.

Hier ist, wie Sie können jede von Ihnen zu lösen das erste problem, dass gefragt wurde:

Sub answer()

    Dim testRange As Range
    Set testRange = Range("A1:F28")

    MsgBox LastRowInRange_xlUp(testRange)
    MsgBox LastRowInRange_Find(testRange)
    MsgBox LastRowInRange_Array(testRange)

End Sub

Jeder dieser zurück 18.

InformationsquelleAutor Marcucciboy2

Das problem mit dem Versuch, dies zu tun, ist, dass, wenn eine Zelle eine Formel enthält, dann excel denkt, es ist bevölkert, auch wenn die Formel ist die Rückgabe eine leere.

InformationsquelleAutor atame

Shai Rado die erste Lösung ist ein großer, aber für manche ist es vielleicht brauchen Sie ein bisschen mehr Ausarbeitung:

 Dim rngCurr, lastRow
 rngCurr = wbshtSelect.Range("B10").CurrentRegion
 lastRow = rngCurr.Rows(rngCurr.Rows.Count).Row

Wenn Sie wissen wollen, die Letzte verwendete Zeile in der gesamten Arbeitsblatt:

 Dim rngCurr, lastRow
 rngCurr = Range("A1").CurrentRegion
 lastRow = rngCurr.Rows(rngCurr.Rows.Count).Row

Wenn Sie finden diese hilfreich, bitte upvote seine Antwort.

InformationsquelleAutor gibberish