Siehe den Microsoft-Support-Artikel Auswählen von Zellen / Bereichen mithilfe von Visual Basic-Prozeduren in Excel Nr. 19 ( Auswählen eines gesamten Bereichs zusammenhängender Zellen in einer Spalte ).
Wählen Sie eine gesamte Spalte ohne Kopfzeile in einem Excel-Makro aus
Wie würde ich auf einen Bereich zugreifen, der einer ganzen Spalte entspricht, beginnend bei Zeile 2 (es gibt eine Kopfzeile)?
Das Ende der Auswahl sollte die letzte nicht leere Zelle in der Spalte sein.
5 Antworten auf die Frage
- Beliebte
- Neu
- Mit Kommentaren
- Aktiv
Versuche dies:
Range(Range("A2"),Range("A2").End(xldown)).Select
oder dieses:
Range(Range(Cells(2, 1), Cells(2, 1)), Range(Cells(65535, 1), Cells(65535, 1)).End(xlUp)).Select
Sie können die Excel-Tastenkombinationen verwenden. Versuchen Sie es mit Ctrl+ Home.
Dies würde Sie zur Zelle A1 führen (wenn Sie den Freeze-Bereich nicht verwendet haben). Kommen Sie eine Zelle nach unten und wählen Sie dann mit den Ctrl+ Shift+ Down arrowTasten die letzte eingegebene Zeile aus.
Wenn Sie den Spaltenwert auswählen müssen, verwenden Sie die right arrowSchaltfläche anstelle der down arrowSchaltfläche.
Bezüglich dieser SO-Antwort ist die einzige sichere Methode die .find()
Methode.
Alle anderen Methoden können zu falschen Ergebnissen führen, wenn Sie zuvor einige Zellen gelöscht haben.
Beispiel, um die letzten Zellen zu erhalten
Lastrow = Cells.Find("*", [A1],, , xlByRows, xlPrevious).Row Lastcol = Cells.Find("*", [A1],, , xlByColumns, xlPrevious).Column
Und eine konkrete Antwort auf Ihre Frage (vorausgesetzt, Ihre Daten befinden sich in Spalte 2, beginnend bei Zeile 2).
Range([B2], [B:B].Find("*", [B1],, , xlByRows, xlPrevious)).select
Dieser Code berechnet im Durchschnitt alles außer der Kopfzeile mit der Kopfzeile in Zelle "B1".
Dim GG as Long GG = Application.WorksheetFunction.Average(ActiveSheet.Range("B2", Range("B2").End(xlDown)))
Verwandte Probleme
-
3
Meine Datei ist in Excel 2007 gesperrt. Was ist los?
-
2
Gibt es eine Möglichkeit, Excel 2007 automatisch zu speichern, wie dies bei MS Word der Fall ist?
-
1
Excel Word Wrap + verschwindet Text
-
1
Einfaches Zusammenführen / Löschen mit Excel
-
7
Wie können Sie Microsoft Excel mit voller Geschwindigkeit laufen lassen, auch wenn der Fensterfokus...
-
2
Warum können Sie Bilder nicht in Excel kopieren / einfügen, aber Screenshots funktionieren?
-
3
So synchronisieren Sie Excel mit der Google Docs-Tabelle
-
9
Wie teilen Sie einen Namen auf, um Vorname und Nachname zu erhalten?
-
1
Links in Excel haben sich nach einem Absturz geändert
-
1
Was ist der beste Weg, ein Excel-Makro auf mehreren Computern gemeinsam zu nutzen?