De retour d'une gamme de A1 pour le dernier vrai a utilisé des cellules de

Je voudrais sélectionner toutes les lignes et les colonnes dans une feuille de calcul. La macro doit être dynamique, comme le nombre de colonnes et de lignes ont tendance à varier à chaque fois que la macro. Il doit également être en mesure de rendre compte pour les lignes et colonnes vides.

Ce sous-programme effectue le cadre du processus:

Sub FindLastCell()
Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select
End Sub

Il trouve et sélectionne la dernière cellule dans une feuille de calcul. Maintenant que j'ai trouvé à la dernière cellule de la feuille de calcul, comment puis-je sélectionner la cellule A1 à la LastCell que d'une gamme?

OriginalL'auteur AME | 2011-11-27

19

Vous avez besoin de faire ces mods pour le code
1. La feuille peut être vide, de sorte que vous ne devez jamais utiliser Select avec Find que cela va donner une erreur si la recherche ne retourne rien. Au lieu de test que l'objet de la plage Is Not Nothing
2. Find pouvez effectuer une recherche par ligne et par colonne. Vous devez déterminer les deux dernière rangée et de colonne pour déterminer le vrai dernier a utilisé des cellules de
3. Une fois que vous avez déterminé le dernier vrai l'utilisation des cellules Range pour définir une plage à partir de la première cellule (A1) à votre cellulaire déterminé avec les deux Find plages
Pls voir le code ci-dessous

Si le Find obtient une valeur, alors il fait une gamme rng3 de A1 à la dernière cellule identifiée par les deux Finds.
```
Sub GetRange()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim rng3 As Range
    Set rng1 = Cells.Find("*", [a1], xlFormulas, , xlByRows, xlPrevious)
    Set rng2 = Cells.Find("*", [a1], xlFormulas, , xlByColumns, xlPrevious)
    If Not rng1 Is Nothing Then
        Set rng3 = Range([a1], Cells(rng1.Row, rng2.Column))
        MsgBox "Range is " & rng3.Address(0, 0)
        'if you need to actual select the range (which is rare in VBA)
        Application.Goto rng3 
    Else
        MsgBox "sheet is blank", vbCritical
    End If
End Sub
```
Excellent!!! 🙂
D'accord, c'est une jolie kewl kewl pour exécuter la fonction range. Je regarde l'utilisation d'une procédure et l'utilisation de l'itération sur la récursivité si seulement la différence.
bien expliqué:)

OriginalL'auteur
10

Sélection de A1 à la dernière cellule utilisée (y compris les espaces entre les deux) dans la Colonne A est aussi simple que cela:
```
Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Select
```
Pour sélectionner A1 à la dernière cellule utilisée dans l'ensemble de la feuille (peu importe si c'est utilisé dans la colonne A ou pas):
```
Range("A1:A" & ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row).Select
```
xlCellTypeLastCell généralement sur l'estimation de la dernière position de la cellule (à partir des données supprimées), sauf si vous faites précéder le forçage d'un usedrange mise à jour, c'est à dire en ajoutant une ligne comme ActiveSheet.UsedRange. Mais je suis d'accord c'est plus courte que la trouvaille que j'ai utilisé qui j'ai adapté à partir d'un plus besoin spécifique. cheers Dave.
+1 pour la réponse efficace.
Merci pour l'ajout de la note sur l'actualisation des usedrange! C'est une chose importante que je devrais l'ai mentionné.
Quel est le problème avec mon ci-dessous une sélection? MyRange = Range(myfile.Sheets("Résumé").Range("A5:A") & myfile.Sheets("Résumé").Range("A" & les Lignes.Le comte).End(xlUp).Ligne) - 2)
j'ai testé la deuxième ligne de code à l'aide de xlCellTypeLastCell et il ne sélectionne la colonne A.

OriginalL'auteur

J'ai trouvé comment modifier le code pour sélectionner une plage commençant à une cellule, et se terminant à la dernière cellule. Sur la ligne 8, le changement de l'a1 à la cellule que vous souhaitez démarrer. Dans mon cas, j'ai choisi j28.

 Set rng3 = Range([j28], Cells(rng1.Row, rng2.Column))

code complet:

    Sub GetRange()
        Dim rng1 As Range
        Dim rng2 As Range
        Dim rng3 As Range
        Set rng1 = Cells.Find("*", [a1], , , xlByRows, xlPrevious)
        Set rng2 = Cells.Find("*", [a1], , , xlByColumns, xlPrevious)
        If Not rng1 Is Nothing Then
            Set rng3 = Range([j28], Cells(rng1.Row, rng2.Column))
            MsgBox "Range is " & rng3.Address(0, 0)
            'if you need to actual select the range (which is rare in VBA)
            Application.Goto rng3
        Else
            MsgBox "sheet is blank", vbCritical
        End If
    End Sub

OriginalL'auteur

0

@brettdj a souligné l'utilisation de ActiveSheet.UsedRange pour effacer le courant utilisé de la gamme. Je voudrais utiliser le simple code ci-dessous.
```
ActiveSheet.UsedRange
ActiveSheet.UsedRange.Select
```
OriginalL'auteur

Vous devez vous connecter pour publier un commentaire.