Excel.Application.Les cellules.SpecialCells(xlCellTypeLastCell) de retour en bas de la feuille de calcul, n'est pas la dernière cellule de données

Je suis en train d'écrire une méthode en VBA dans Excel 2013 à boucle à travers les lignes de deux feuilles de calcul et de comparer le texte dans une colonne de chaque. Cependant, quand je suis en boucle, je trouve que le code est une boucle dans la feuille de calcul entière, et pas seulement les lignes avec des données. Excel.Sheets("Feuil1").Les cellules.SpecialCells(xlCellTypeLastCell) renvoie une cellule dans la colonne appropriée, mais la ligne est la dernière ligne de la feuille (1048576), plutôt que la dernière ligne avec des données (1951). J'ai écrit un chèque de cellules vides dans le code (puisque je ne peux pas être sûr que chaque ligne est utilisé), de sorte qu'il ne cause pas un problème, cela signifie simplement que chaque fois qu'il s'exécute, il faut beaucoup plus qu'il ne le devrait. Et comme cette méthode est appelée à partir de l'intérieur de Worksheet_Change, il ralentit les choses.

Généralement, lors de la "dernière" de la cellule qui est rapporté à tort, j'avais trouvé qu'un enregistrer généralement fixe, et si cela ne fonctionne pas, puis de supprimer les lignes (et pas seulement le contenu, mais l'ensemble de lignes) de la mis-communiqué de la cellule de retour à la dernière cellule et puis fonctionne l'enregistrement. Cependant, dans ce cas, il n'est pas aider.

J'ai regardé à travers Google sans succès. J'aimerais ne pas avoir à copier toutes les données et le code de ce classeur et en un nouveau si je peux l'aider. Quelqu'un a des suggestions?

Trouver la dernière ligne est une pierre angulaire de la programmation VBA. Voici, ce que je considère au moins, de façon définitive l'écriture-up sur la recherche de la dernière ligne: stackoverflow.com/questions/11169445/...
Merci pour l'info; voir mon commentaire sur Christophe réponse ci-dessous. Aussi, une idée de pourquoi c'était downvoted? Ce n'est pas un doublon de cette question; ma question est de savoir comment fixer xlCellTypeLastCell, pas comment le faire avec une solution de contournement? Et si c'est downvoted, pourquoi ne pas ceci qui a posé la même question, avec une "magie fixe lui-même, je vais poster en arrière si cela se produit à nouveau" résolution?

InformationsquelleAutor DarkMoon | 2014-08-04

10

(Trop d'infos pour utiliser un commentaire ici.)

VBA mastermind Ron de Bruin a écrit un peu emballé sur le pourquoi de xlCellTypeLastCell ainsi que UsedRange peut-être à défaut ici: http://www.rondebruin.nl/win/s9/win005.htm.

(Dans le post j'ai fait un lien dans mon commentaire initial, Erreur dans la recherche de la dernière utilisation de la cellule en VBA, les pièges de la UsedRange sont décrits de la même manière.)

Voici la citation directe:

Problèmes possibles avec le xlCellTypeLastCell et UsedRange sont:

La dernière cellule ne re-régler lorsque vous enregistrer (ou enregistrer/fermer/rouvrir le
fichier). Si la cellule mise en page est modifiée, il ne se réinitialise pas la dernière cellule,
effacement des données n'est pas suffisant, vous devez supprimer les lignes ou les colonnes
ensuite, Voir: http://www.contextures.com/xlfaqApp.html#Unused

Pour faire une longue histoire courte, la logique pour trouver la dernière ligne sur une feuille appartient à l'intérieur d'une fonction globale. Vous allez utiliser cette fonction tout le temps. Voici un exemple pour la recherche de la dernière ligne sur une feuille:
```
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'INPUT       : Sheet, the worksheet we'll search to find the last row
'OUTPUT      : Long, the last occupied row
'SPECIAL CASE: if Sheet is empty, return 1
'EXAMPLES    :
' 
'assume that there is a single 
'entry on MySheet in cell A5:
'
'LastRowNum(MySheet)
'>> 5
'
'assume that EmptySheet is totally empty:
'
'LastRowNum(EmptySheet)
'>> 1
'
Public Function LastRowNum(Sheet As Worksheet) As Long
    If Application.WorksheetFunction.CountA(Sheet.Cells) <> 0 Then
        LastRowNum = Sheet.Cells.Find(What:="*", _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlPrevious).Row
    Else
        LastRowNum = 1
    End If
End Function
```
Autant que le downvote va -- aucune idée. En fait, j'ai jamais downvoted ici haha.
- Wow, merci pour le complément d'info. Ainsi, non seulement UsedRange, mais xlCellTypeLastCell doivent être évités ainsi que des meilleures pratiques, de sons de choses (ce post, le message lié, et d'autres postes que les recherches sur cette question ont entraîné). Je suppose que j'ai juste à accepter que xlCellTypeLastCell est d'être retiré de ma boîte à outils. 😛 Et je n'étais pas en vous demandant spécifiquement sur le downvote; Pile de Change n'est pas de vous dire qui downvoted, j'ai donc NFI qui je dois demander. J'espérais juste qui ne il serait de voir les commentaires et d'y répondre.
- C'est le milieu de 2016 maintenant. Devrait xlCellTypeLastCell encore être considéré comme cassé? Si oui, est-MS considère que c'est un bug?
- Aussi loin que je peux dire que oui, il reste seulement des mises à jour lorsque le classeur sauve. MS pourrait ne pas envisager cassé mais s'ils ne sont pas ses plus certainement trompeuse et en fait un peu inutile, donc, doit être évitée.
InformationsquelleAutor Dan Wagner
1

Essayez d'utiliser le code suivant pour déterminer la dernière ligne & colonne au lieu
```
Dim LastCol As Long

Dim LastRow As Long

LastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
```
- Merci pour l'info. Mais pourquoi ne pas xlCellTypeLastCell travail? J'aurais pensé que ce serait un nettoyant et une méthode préférée; c'est juste qu'il ne fonctionne pas? Je n'ai jamais eu un problème avec elle avant?
- C'est une façon rapide et sale; le sale partie étant que, par exemple, si votre dernière cellule de la colonne A est dans la ligne 150, mais vous avez une valeur dans la cellule E200, alors il va exclure de 50 lignes qu'il ne le devrait pas. Je suppose que si vous avez toujours un en-tête et de gauche de la ligne qui s'étend au moins autant que les données ne, cela va fonctionner, mais c'est en supposant un niveau de propreté qui est très dur à trouver.
InformationsquelleAutor Christopher Teoh

Vous pouvez essayer ceci:

Dim xlastcel As Range  
On Error Resume Next  
   ActiveSheet.ShowAllData: Err.Clear  ' Show All  
   ActiveSheet.UsedRange               ' Ajust Vertical Scrool  
   With ActiveSheet:  Set xlastcell = .Cells.Find(What:="*", After:=.[A1], SearchDirection:=xlPrevious): End With  
   If Err.Number > 0 Then MsgBox "Sheet without data", vbOKOnly  
On Error GoTo 0

InformationsquelleAutor Torres Viejo

Vous devez vous connecter pour publier un commentaire.