Wie verwende ich xlCellTypeLastCell in VBA?

Question

Ich habe alle Zellen in einem Blatt ausgewählt und Alle löschen, um mir eine leere Tabelle zu bringen. Dann habe ich in E6 und A1 einige Texte eingegeben. Dann habe ich den folgenden Code ausgeführt, aber ich habe E7-Zelle ausgewählt. Wie seltsam! Ich frage mich, ob ich etwas verpasst habe.

Sub Macro1() 
    Cells.SpecialCells(xlCellTypeLastCell).Select 
End Sub 

Answer 1

Aufgrund meiner Erfahrung die beste Lösung letzte Zelle/Zeile usw. Daten enthalten, zu finden, ist durch .find Verfahren, da es zuverlässig ist, selbst nachdem einige Daten zu löschen. Der einzige Nachteil ist, dass versteckte Zeilen nicht erkannt werden.

Der folgende Code gibt die letzte Zeile mit den Daten in der fünften Spalte (Spalte E) zurück. Ersetzen Sie "Spalten (5)" durch "Zellen", wenn Sie die Nummer der letzten Zeile mit Daten in Ihrem gesamten Blatt erhalten möchten.

Auswahl ist eine schlechte Übung in VBA (langsam - kann nicht für große Datensätze und nicht transparent für die Codierung verwendet werden). Sie können auf die Zelle von meinem Code als Bereich verweisen ("E" & TheLastRow).

Option Explicit 

Sub Macro1() 
Dim TheLastRow as long 
    TheLastRow = Columns(5).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
End Sub 

Answer 2

Rufen Sie die Worksheet.UsedRange property von selbst alle xlCellTypeLastCell property des Range.SpecialCells method zurückgesetzt werden.

Sub Macro1() 
    Range("E7") = "abc" 
    Cells.Clear 
    Range("E5") = "xyz" 
    Cells.SpecialCells(xlCellTypeLastCell).Select 
    ActiveSheet.UsedRange 
    Cells.SpecialCells(xlCellTypeLastCell).Select 
End Sub 

Wenn Sie durch die mit [F8] Schritt wird zunächst E7 ausgewählt wird, dann nach dem Aufruf von .UsedRange wird E5 ausgewählt werden.