VBA-Excel 2007 - Zellen.Finden

Kann mir bitte jemand erklären, wie Lesen Sie den untenstehenden code zu finden, der letzten Spalte und Zeile mit Daten?

Last_Column = Sheets("Combined").Cells.Find("", [a1], , , xlByColumns, xlPrevious).Column
Last_Row = Sheets("Combined").Cells.Find("", [a1], , , xlByRows, xlPrevious).Row

Danke

InformationsquelleAutor HL8 | 2012-01-09

  1. 1

    Finden die schneiden der letzten benutzten Spalte und Zeile, die Sie anpassen sollten, Ihren code zu

    1. Suche nach "*" match any wildcard nicht für "" die ist für leere Zellen (NB: mit dieser änderung Ihre obige code funktioniert in einem begrenzten Sinn (siehe 2-3 unten), wenn Sie führen Sie es von der combined Blatt
    2. Es ist robuster, nicht davon ausgehen, das Blatt hat Daten, dh die Bereiche und testen Sie Not Nothing

    3. Wenn mit einer Zelle starten ie '[a1] Sie sollten angeben, den Namen des Blattes als gut zu esnure der code funktioniert, wenn Sie es aus verschiedenen Blättern, dh ws.[a1] unten

      Sub FindLast()
Dim ws As Worksheet
Dim rng1 As Range
Dim rng2 As Range
Set ws = Sheets("combined")
Set rng1 = ws.Cells.Find("*", ws.[a1], xlValues, , xlByRows, xlPrevious)
Set rng2 = ws.Cells.Find("*", ws.[a1], xlValues, , xlByColumns, xlPrevious)
If Not rng1 Is Nothing Then
    MsgBox "Last cell is " & Cells(rng1.Row, rng2.Column).Address(0, 0)
Else
    MsgBox "No cells found"
End If
End Sub

    InformationsquelleAutor brettdj

Schreibe einen Kommentar