Masquer les Lignes lorsque la cellule est vide excel (plus rapide)

J'ai eu un coup d'oeil à certains des articles et des suggestions et est venu avec une solution à mon problème.

L'article Moyen plus rapide pour masquer les lignes vides suggéré d'utiliser pour basculer Application.ScreenUpdating avant la boucle de faux et d'après la valeur true. Elle accéléré le scénario un peu, mais pour 10.000 lignes il faut encore un certain temps.

Exigences:

Si la première cellule de la ligne est vide, cacher la rangée complète
il doit être compatible avec les autres versions d'excel 2013

Actuelle solution de travail pour excel 2013

 Application.ScreenUpdating = False
 Dim s As String
 For i = 1 To range("A1:A10000").Count
     s = i & ":" & i
     If IsEmpty(Cells(i, 1).Value) Then
         Rows(s).Select
         Selection.EntireRow.Hidden = True
    End If
 Next
 Application.ScreenUpdating = True

Malheureusement, je ne sais pas combien de données dans la feuille, il peut contenir moins de 10.000 que j'ai utilisé dans mon exemple ou même plus. Lorsque je lance le script, il fonctionne très bien, mais prend un certain temps pour 10.000 lignes et les âges, pour toutes les cellules dans la feuille.

La macro exécuter automatiquement lorsque le classeur est chargé (vous ne savez pas encore comment faire non plus haha)

  • Il y a une réponse avec 3 upvotes dans le même lien que vous avez posté, qui fournit le code pour l'utilisation de filtre automatique qui est beaucoup plus rapide
  • ah ok merci, je ne savais pas que... j'ai voulu il y a peu plus d'explication à ça. Je vais essayer de le ré-écrire pour mon cas, et si les résultats sont ce que je suis à la recherche pour. Merci encore, de revenir une fois que j'ai essayé.
  • Ok, celui-ci peut être fermé. J'ai utilisé le filtre automatique suggestion décrit dans le post je l'ai mentionné dans mon problème. a bien fonctionné pour moi Range("A1:A10000").AutoFilter 1, "<>", , , False
  • double possible de le plus Rapide moyen de masquer les lignes vides
InformationsquelleAutor Tomek | 2015-01-07
  1. 2
    Dim rngBlnk As Range

On Error Resume Next 'in case no blanks are present...
Set rngBlnk = Range("A1:A100000").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0

If Not rngBlnk Is Nothing Then
    Debug.Print rngBlnk.Address()
    rngBlnk.EntireRow.Hidden = True
End If
    InformationsquelleAutor Tim Williams
  2. 1

    Comme dans mes commentaires, et dans ce post: Moyen plus rapide pour masquer les lignes vides
    et merci à @tigeravatar pour le pointant à l'extérieur. J'ai utilisé le code suivant qui a travaillé dans mon scénario:

    Range("A1:A10000").AutoFilter 1, "<>", , , False
    InformationsquelleAutor Tomek
  3. 0

    La sélection d'un processus qui prend du temps, et il n'est pas nécessaire de sélectionner la ligne avant le masquage de la ligne. Essayez la variation ci-dessous...

    Application.ScreenUpdating = False
Dim s As String
For i = 1 To range("A1:A10000").Count
    s = i & ":" & i
    If IsEmpty(Cells(i, 1).Value) Then
         Rows(s).EntireRow.Hidden = True
    End If
Next 
Application.ScreenUpdating = True
    InformationsquelleAutor Neil Humphries