Excel vba - xlDown

Le code ci-dessous est d'essayer de coller la plage sélectionnée (passé en rng) à la fin de la feuille de calcul.
Il fonctionne si il y a déjà 2 lignes déjà présentes(A1, A2).

Sub copyRow(rng As Range, ws As Worksheet)
    Dim newRange As Range
    Set newRange = ws.Range("A1").End(xlDown).Offset(1, 0)
    rng.Copy
    newRange.PasteSpecial (xlPasteAll)
End Sub

Donc, si A1 et A2 sont présents et si vous appelez cette méthode 100 fois, il insère 100 lignes après. Mais, si aucune ligne n'présents ou A1 seulement, il vient de remplacer A2. J'ai pu voir excel écrire sur la même ligne (écraser)

Semble que quelque chose à voir avec la façon dont xlDown calcule si il y a moins de 2 lignes, pas sûr.

Toute aide serait appréciée.

OriginalL'auteur bsr | 2012-02-22

  1. 33

    Désolé, mais je ne suis pas d'accord avec Michael réponse.

    End(xlDown) est le VBA équivalent de cliquer sur Ctrl+Down.

    Essayer Ctrl+Down avec

    • une colonne vide
    • une colonne avec une valeur dans la ligne 1, mais pas d'autres
    • valeurs des lignes 1 et 2
    • valeurs des lignes 1, 2, 3, 7, 8, 9, 13, 14 et 15

    Cela vous donnera une idée de l'ensemble des lignes différentes, Ctrl+Down pourrait vous prendre pour.

    Set newRange = ws.Range("A1").End(xlDown).End(xlDown).End(xlUp).Offset(1, 0) ne fait pas nécessairement de vous prendre à la dernière ligne de plus de 1.

    Je suis surpris Set newRange = ws.Range("A1").End(xlDown).Offset(1, 0) travaillé avec une colonne vide. Range("A1").End(xlDown) - vous à la ligne du bas de la feuille puis .Offset(1, 0) voudrais essayer de vous prendre la feuille.

    Considérer:

    Dim RowLast As Long

RowLast = ws.Cells(Rows.Count, "A").End(xlUp).Row
    • Si Une colonne est vide, RowLast sera fixé à 1.
    • Si A1 a une valeur, mais pas d'autres cellules ont des valeurs, RowLast sera fixé à 1.
    • Si un certain nombre de cellules dans la colonne A avoir des valeurs, RowLast sera définie à la ligne du bas avec une valeur.
    • Si vous avez une valeur dans la dernière rangée, il sera ignoré.
    • Si vous avez une valeur dans les deux dernières lignes, RowLast sera définie dans les Lignes.Count - 1.

    Je suppose que vous n'avez pas de valeurs dans le borrom lignes. Si vous n'avez pas de soins si la ligne 1 est laissée en blanc avec une colonne vide, puis:

    RowLast = ws.Cells(Rows.Count, "A").End(xlUp).Row
Set NewRange = ws.Cells(RowLast + 1, "A")

    devrait donner le résultat désiré, quel que soit le contenu actuel de la feuille de ws.

    Si vous ne vous souciez de la ligne 1 laissées vides, d'expérimenter avec les Ctrl+Down et Ctrl+Up vous donnera une compréhension de l'effet de différentes combinaisons de valeurs.

    +1 pour bien l'expliquer. Comme il est, je n'ai jamais été en faveur de l'utilisation de "ws.Range("A1").End(xlDown)" pour définir une plage. Raison d'être, Il n'en donne pas (tout à fait compréhensible) de la plage correcte si il y a une cellule vide entre les deux. 🙂
    Tony, merci pour ur de l'aide. Il a travaillé pour moi. Sur la première partie, pourquoi j'ai fait ça, j'ai été la suite de l'article 18 support.microsoft.com/kb/291308 . Surpris de voir pas de moyen facile de le faire. merci aga.
    Je vais regarder votre lien, mais il semble que la pensée, il est donner de mauvais conseils. Il y a, à ma connaissance, aucune méthode fiable d'identification de la dernière ligne ou colonne d'une plage. Je suis d'accord avec brettdj, Find est une des méthodes plus fiables, mais il a aussi ses problèmes. SpecialCells est une autre bonne méthode, je veux dire il n'a pas manqué de moi. J'ai essayé de la liste de toutes les manières End(xlUp) ne peut pas vous donner le résultat que vous attendez. J'espère avoir été clair que vous devez tester ces conditions aux limites.
    notez que la Fin ignore cachés ou filtrés par des lignes ou des colonnes
    Comme je l'ai dit plus tôt, pas de méthode de recherche de la dernière rangée/colonne fonctionne dans toutes les situations. Je n'avais pas pensé sur les lignes, mais cela ne m'étonne pas qu'ils causent des problèmes. L'approche choisie doit être testé avec l'objectif de la feuille de calcul pour s'assurer qu'il fonctionne comme prévu.

    OriginalL'auteur Tony Dallimore