Dev Faq
0
votes

Avec .Cells (rangées.Count, 3), que représentent les 3?

Je n'ai pas été en mesure de trouver une réponse à ce qu'un numéro unique représente ici. J'essaie de trouver la ligne où se produit la dernière occurrence d'une chaîne, copiez cette ligne entière et insérez-la en dessous de cette ligne. Pour essayer d'obtenir la première partie, où je peux trouver la valeur de la ligne de la dernière occurrence, que représente-t-il ce "3"? 

Dim shortname As String
Dim endRow As Integer
Dim lastRowSearchValue As Range

shortname = "CATS"

With ActiveSheet
endRow = .Cells(Rows.Count, 33).End(xlUp).Row
    For i = 1 To endRow
        If .Cells(i, 33) = shortname Then
            lastRowSearchValue = i
        End If
    Next i
End With

lastRowSearchValue.Copy

1 commentaires

33 est le numéro de colonne ou la colonne AG. Votre code recherche des chats dans la colonne AG à partir de la ligne 1 à la dernière ligne avec des données et lorsqu'il est trouvé, il attribue le numéro de ligne trouvé à LâglowroSearchValue, ce qui est incorrect car LastrowsearchValue est une gamme. Correct serait défini lastrowsearchValue = .Cells (I, 33) pour pouvoir continuer avec lastrowsearchValue.copy

3 Réponses :

0
votes

cellules (ligne, colonne) code>

c'est donc le numéro de colonne. p>

Voir: https://docs.microsoft.com/en-us/Office/vba/api/excel.worksheet.cells a> p>

donc .cells (lignes.count, 33) .end (xlup) .ROW code> commence au bas de la colonne 33 et et cherchez jusqu'à ce qu'il trouve le premier Cellule du bas qui a une valeur. p>

alors la boucle se boucle de la première ligne à cette dernière ligne et vérifiant la valeur dans cette colonne de chaque ligne. p>

si .Cells (i, 33) = nom shortName code> est ensuite en train de vérifier que la cellule, chacune dans cette colonne si sa valeur est identique à shortName code> p>

mais ceci est probablement un problème x / y comme lastrowsearchValue = i code> ne retourne pas une plage mais une longue: p>

vous voulez: p> 

Set lastRowSearchValue = .Cells(i,33)

1 commentaires

Donc, cela indique au code de rechercher toutes les lignes, à partir de la fin du fichier jusqu'au début, et examinez spécifiquement pour «ShortName» dans la colonne 33?

0
votes

Code de correction

endrow doit être déclaré aussi longtemps car .rows.count dépasse la limite de entier . 33 est le numéro de colonne ou la colonne AG . Votre code recherche des chats dans la colonne AG à partir de la ligne 1 à la dernière ligne avec des données et lorsqu'il est trouvé, il attribue le numéro de ligne trouvé sur lastrowsarchValue qui est incorrect car lastrowsearchValue est une gamme. Correct serait Set lastrowsearchValue = .Cells (i, 33) Pour pouvoir continuer avec lastrowsarchValue.copy . Il continuera à chercher jusqu'à la fin pour trouver d'autres occurrences de chats. Pour arrêter cela, vous pouvez ajouter la ligne sortie pour pour quitter la boucle lorsque des chats ont été trouvés. Mais puisque vous voulez trouver la dernière occurrence, vous ne voulez pas faire cela.

J'ai choisi de déclarer Lastrow tant pour obtenir la dernière ligne survenant, puis copiez cette ligne une ligne ci-dessous. Pour que cela soit moins déroutant, j'ai utilisé les lettres de colonne.

le code xxx

0 commentaires
0
votes

Je suppose que vous avez besoin d'un nombre de cellules plutôt rangées. Quoi qu'il en soit, le code suivant tente de trouver cette cellule: xxx

1 commentaires

lastrowsearchValue &? Lookin est le troisième argument qui est enregistré à chaque fois, bien que cela n'échappe que si vous avez déjà cherché des commentaires.

Articles qui pourrait vous intéresser :

Comment amener quatre colonnes de données Excel en deux lignes dans Pandas
AttributeError: l'objet 'ElementTree' n'a pas d'attribut 'getiterator' lors de la tentative d'importation d'un fichier Excel
La fenêtre de l'application EXCEL ne se ferme pas sur classeur.close ()
Exécuter la macro lorsque le résultat de la cellule change par formule