Trouver La Dernière Colonne Remplie avec des Données dans une Plage

Je sais que nous pouvons obtenir de la dernière ligne contenant des données avec le code suivant:

LastRow = .Range("D", & .Les lignes.Le comte).End(xlUp).Ligne

Mais j'ai de la difficulté à obtenir la dernière Colonne avec des données. Voici ce que j'ai essayé bu comme vous pouvez le voir sur l'image, elle n'est pas passée par

Set ws = ThisWorkbook.ActiveSheet
With ws 
 Header = 5
 LastRow = .Range("D" & .Rows.Count).End(xlUp).Row
 LastCol = .Range(5 & .ColumnCount).End(xlLeft).Column
    With .Range("A" & Header & LastCol & LastRow)
         .Interior.ColorIndex = 16
    End With
End With

Trouver La Dernière Colonne Remplie avec des Données dans une Plage

Pouvez-vous s'il vous plaît laissez-moi savoir houe je peux résoudre ce problème? grâce

  • Utilisation Cells au lieu de Range.
  • Utilisation Columns.Count au lieu de la Colonne.Le comte
  • Bonjour Tony, Merci pour les commentaires j'ai corrigé l'erreur que vous avez dit mais ça ne marche toujours pas
InformationsquelleAutor Behseini | 2013-12-28
  1. 2

    Essayer ce que j'ai commenté:

    Lastcol = .Cells(5, Columns.Count).End(xlToLeft).Column

    je ne suis pas sûr si son xlLeft ou xlToLeft. Essayez-le vous-même.

    Utiliser cette couleur de l'ensemble de la gamme:

    With .Range(Cells(1,5),Cells(Lastrow,Lastcol)
    .Interior.ColorIndex = 16
End With

    cette couleurs A5 à votre dernière colonne et de ligne.

    • Grâce L42, mais il semble qu'il y a toujours quelque chose qui manque! Je ne reçois pas toutes les erreurs, mais après avoir exécuté le code rien changer!
    • xlLeft également à l'origine de l'exécution d'erreur
    • Ce ligne voulez-vous pour obtenir la dernière colonne et ce que vous voulez que votre code d'accomplir? Vous voulez changer la couleur de quelle gamme?
    • Je pensais changer la couleur de wole plage utilisée!
    • Je veux dire, déjà utilisé quelque chose comme ça Avec .Range("A" & Header & ":C" & LastRow) .L'intérieur.ColorIndex = 16 Fin Avec
    • et ça fonctionne, donc je veux juste remplacer le ":c" avec lastCol
    • Ok voir mon édition..
    • Très bien , merci il fonctionne aujourd'hui, quelle différence! Je ne sais toujours pas pourquoi vous avez choisi de Cellules(1,5) pourquoi ne pas les Cellules(1,1)? y avait-il une raison?
    • Vous avez dit que vous voulez A5. Voir votre code. 🙂

    InformationsquelleAutor L42