Sélectionnez une colonne entière moins la ligne d'en-tête dans une macro Excel

8

Comment puis-je accéder à une plage qui correspond à une colonne entière commençant à la ligne 2 (il y a une ligne d'en-tête)?

La fin de la sélection doit être la dernière cellule non vide de la colonne.

microsoft-excel macros vba

— Dave
source

5

Voir l'article de support Microsoft Comment sélectionner des cellules / plages à l'aide des procédures Visual Basic dans Excel , n ° 19 ( Comment sélectionner une plage entière de cellules contiguës dans une colonne ).

— Peter Mortensen
source

Cela sélectionne plus d'un million de lignes dans le classeur que j'utilise même si tout ce qui dépasse 300 ou plus est vide.

— Dave

que diriez-vous de: Sub LastCellBeforeBlankInColumn () / Range ("A1"). End (xldown) .Select / End Sub

2

Essaye ça:

Range(Range("A2"),Range("A2").End(xldown)).Select

ou ca:

Range(Range(Cells(2, 1), Cells(2, 1)), Range(Cells(65535, 1), Cells(65535, 1)).End(xlUp)).Select

— Michael Galos
source

2

En se référant à cette réponse SO , la seule méthode sûre est la .find()méthode.
Toutes les autres méthodes peuvent donner des résultats erronés si vous avez précédemment supprimé certaines cellules.

Exemple pour obtenir les dernières cellules

Lastrow =  Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Lastcol =  Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column

Et une réponse spécifique à votre question (en supposant que vos données se trouvent dans la colonne 2, en commençant à la ligne 2)

Range([B2], [B:B].Find("*", [B1], , , xlByRows, xlPrevious)).select

entrez la description de l'image ici

— nixda
source

1

Vous pouvez utiliser les raccourcis clavier d'Excel. Essayez Ctrl+ Home.

Cela vous amènerait à la cellule A1 (si vous n'avez pas utilisé le volet d'arrêt). Descendez d'une cellule puis utilisez les boutons Ctrl+ Shift+ Down arrowpour sélectionner jusqu'à la dernière ligne entrée.

Si vous devez sélectionner la valeur de la colonne, utilisez le right arrowbouton au lieu du down arrowbouton.

— Peter Mortensen
source

0

Ce morceau de code fait la moyenne de tout sauf l'en-tête avec l'en-tête dans la cellule "B1"

Dim GG as Long
GG = Application.WorksheetFunction.Average(ActiveSheet.Range("B2", Range("B2").End(xlDown)))

— RWB
source