Dernière Ligne dans la Gamme

Avoir un problème de trouver des informations et/ou des solutions qui permettent de produire le résultat souhaité, donc ici il va.

Droit maintenant, et, potentiellement, au moment de la production, je vais avoir un "modèle", du nom de gamme sur une feuille de calcul. Lors de la première utilisation de cette NamedRange est seulement rngNamed1 mais après la première utilisation il pourrait y avoir plus de Plages Nommées similaire à celui-ci, disons jusqu'à rngNamed30.

Permet de dire que le 2 courir après la construction jusqu'à rngNamed30, que j'ai besoin d'ajouter 3 de la NamedRange, qui résultats dans rngNamed33.

Ce que je dois faire est essentiellement de trouver la dernière ligne & la colonne de la dernière Plage Nommée, donc je sais où pour démarrer la copie des données vers et à déclarer la prochaine Plage Nommée.

Ce que j'ai essayé jusqu'à présent:

Dim rng As range
Set rng = range("rngNamed1")
'Set rng = rng.Find("*", rng.Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False)
Debug.Print rng.Find("*", rng.Cells(1, 1), , , , xlPrevious).Address

Le problème avec la plupart des solutions là-bas, c'est qu'ils sont basés sur la recherche de la dernière cellule AVEC des DONNÉES. J'ai juste besoin de savoir quelle est la Dernière Cellule de la Plage, sans se soucier de savoir si elle contient ou non des données.

Range("X").Row retourne la première ligne de la plage nommée X. Range("X").Rows.Count retourne le nombre de lignes dans la gamme X. Mettre cela ensemble et vous pouvez calculer la dernière ligne de la plage. Range("X").Adresse renvoie une chaîne d'adresse qui peut être décodé. Serait une de ces techniques d'aide?
Ouais un peu pensé que....a essayer de s'assurer qu'il n'y avait pas quelque obscure option dans SpecialCells ou une autre méthode interne qui permettrait de fournir de l'information.

InformationsquelleAutor GoldBishop | 2012-09-25

6

Vous pouvez le faire facilement à l'aide de la Ligne et de Lignes.Le comte de la gamme:
```
Sub NextRowAfterRange()
    Dim ws As Worksheet
    Dim rangeNom As String
    Dim nextRow As Long

    ' Enter desired name here
    rangeNom = "rngName1"

    Set ws = ActiveSheet

    nextRow = ws.Range(rangeNom).Row + ws.Range(rangeNom).Rows.Count

    MsgBox nextRow
End Sub
```
- Sa bonne pratique de l'utilisation de longues lors du dimensionnement des lignes, pas entier. Le nombre de lignes dans excel 2007, dépasse entier limites. D'une autre manière: Debug.Print rng(rng.Rows.Count, 1)(2).Row
- ouais j'ai appris cette leçon de retour en VB6....même si je sais que sa va être d'environ 1/100 de la valeur max de type Int, c'est toujours mieux pour être de type de données cohérent et ne pas espérer la conversion de type (implicite) est-il correctement 😉
InformationsquelleAutor JustinJDavies

Vous devez vous connecter pour publier un commentaire.