Besseren Weg zu finden, die letzten verwendeten Zeile

Ich versuche, diesen Weg zu finden, die Letzte Zeile, da fand ich die Letzte Spalte:

Sheets("Sheet2").Cells(1,Sheets("Sheet2").Columns.Count).End(xlToLeft).Column`enter code here`

Ich weiß, wie zu tun es auf diese Weise, aber es ist nicht so hilfreich wie die Vorherige wäre:

u = Sheets("Sheet1").Range("A65536").End(xlUp).Row

Habe ich versucht, dies zu tun:

Sheets("Sheet2").Cells(Sheets("Sheet2",1).Rowa.Count).End(xlToUP).Column

Jegliche Hilfe würde sehr geschätzt werden.

Synopsis:Würde gerne die unten Weg noch einmal für die Letzte Zeile. Dank

Sheets("Sheet2").Cells(1,Sheets("Sheet2").Columns.Count).End(xlToLeft).Column`enter code here`

Warum nicht mit Sheets("Sheet2").UsedRange.Rows.Count?
Siehe hier: stackoverflow.com/questions/11169445/...
aber im Grunde Sheets("Sheet2").Cells(1,Sheets("Sheet2").Rows.Count).End(xlUp).Row
Ich bin mit einer for-Schleife, die Veränderungen so möchte ich die Zelle formatieren. Ändern einer Palette ist für mich schwierig, wo eine Zelle ist viel einfacher.
Es gibt diesen "Run-time error '1004'.
ich fand das sehr wertvoll und hoffen, dass Sie bis

InformationsquelleAutor Alexis Moreno | 2016-08-10

excel vba

10

Sollten Sie die Verwendung einer with-Anweisung zu qualifizieren, sowohl Ihre Rows und Columns zählt. Dies wird verhindern, dass alle Fehler während der Arbeit mit älteren pre 2007 und neueren Excel 2007-Arbeitsmappen.

Letzten Spalte
```
With Sheets("Sheet2")
    .Cells(1, .Columns.Count).End(xlToLeft).Column
End With 
```
Letzten Zeile
```
With Sheets("Sheet2")
    .Range("A" & .Rows.Count).End(xlUp).Row
End With 
```
Oder
```
With Sheets("Sheet2")
    .Cells(.Rows.Count, 1).End(xlUp).Row
End With 
```
- Für beide Möglichkeiten finden Sie in der letzten Zeile nicht funktioniert. Ich erhalte den "Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht" mit den beiden.
InformationsquelleAutor
0

Dies ist der beste Weg, die ich gesehen habe zu finden, die Letzte Zelle.
```
MsgBox ActiveSheet.UsedRage.SpecialCells(xlCellTypeLastCell).Row
```
Einer der Nachteile der Verwendung dieser ist, dass es nicht immer genau. Wenn Sie es verwenden, dann löschen Sie die letzten Zeilen und verwenden Sie es wieder, es muss nicht immer aktualisieren. Speichern Ihrer Arbeitsmappe, bevor Sie mit diesem scheint es zu zwingen, zu aktualisieren, obwohl.

Dann mit dem nächsten bit-code nach Aktualisierung der Tabelle (bzw. bei Aktualisierung der Abfrage, die feeds der Tabelle) Kräfte alles zu aktualisieren, bevor wir die Letzte Zeile. Aber, es ist berichtet worden, dass es lässt excel Abstürzen. So oder so, diese aufrufen, bevor Sie versuchen zu finden, die Letzte Zeile wird sicherstellen, dass die Tabelle beendet hat, aktualisieren Sie zuerst.
```
Application.CalculateUntilAsyncQueriesDone
```
Anderen Weg, um die Letzte Zeile für jede Spalte, wenn Sie nichts dagegen haben, den overhead.
```
Function GetLastRow(col, row)
    ' col and row are where we will start.
    ' We will find the last row for the given column.
    Do Until ActiveSheet.Cells(row, col) = ""
        row = row + 1
    Loop
    GetLastRow = row
End Function
```
- Ich würde nicht einverstanden mit Ihnen gibt es für die Gründe, die Sie gegeben haben. Ich habe festgestellt, entweder die xlUp/xlLeft Methode für bestimmte Spalten/Zeilen oder Find("*") für die Letzte Zelle auf dem Blatt zu den zuverlässigsten Methoden.
- Ich konnte nicht bekommen den code in der akzeptierten Antwort für mich zu arbeiten. Aber der code, den ich gepostet funktioniert gut für mich.
InformationsquelleAutor Matthew Goheen

Ich diese routine dazu verwenden, finden Sie die Anzahl der Datenzeilen. Es ist ein minimum an Aufwand erfordert, aber durch das zählen mit einer abnehmenden Skala, sogar ein sehr großes Ergebnis erfordert nur wenige Iterationen. Zum Beispiel, ein Ergebnis der 28,395 würde nur erfordern 2 + 8 + 3 + 9 + 5, oder 27 mal durch die Schleife, statt einer Zeit-teuer 28,395 Zeiten.

Selbst waren wir multiplizieren durch 10 (283,950), wird die iteration count ist das gleiche 27 mal.

Dim lWorksheetRecordCountScaler as Long
Dim lWorksheetRecordCount as Long

Const sDataColumn = "A"   '<----Set to column that has data in all rows (Code, ID, etc.)

    'Count the data records
    lWorksheetRecordCountScaler = 100000  'Begin by counting in 100,000-record bites
    lWorksheetRecordCount = lWorksheetRecordCountScaler

    While lWorksheetRecordCountScaler >= 1

        While Sheets("Sheet2").Range(sDataColumn & lWorksheetRecordCount + 2).Formula > " "
            lWorksheetRecordCount = lWorksheetRecordCount + lWorksheetRecordCountScaler
        Wend

        'To the beginning of the previous bite, count 1/10th of the scale from there
        lWorksheetRecordCount = lWorksheetRecordCount - lWorksheetRecordCountScaler
        lWorksheetRecordCountScaler = lWorksheetRecordCountScaler / 10

    Wend

    lWorksheetRecordCount = lWorksheetRecordCount + 1   'Final answer

InformationsquelleAutor Phil Brewer

-2

Wie ist das???

dim rownum as integer
dim colnum as integer
dim lstrow as integer
dim lstcol as integer
dim r as range

'finds the last row

lastrow = ActiveSheet.UsedRange.Rows.Count

'finds the last column

lastcol = ActiveSheet.UsedRange.Columns.Count

'sets the range

set r = range(cells(rownum,colnum), cells(lstrow,lstcol))

InformationsquelleAutor Juan Cappuccino

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.