Dynamiquement supprimer les espaces vides d'une plage de cellules excel

J'ai une plage nommée de données, appelé "data". J'essaie de trouver une formule ou une formule de tableau qui renverra les données dans une nouvelle plage de cellules, mais toutes les lignes vides manquant.

c'est à dire data est: 

row   x    y    
1     A    77    
2          
3     B    23    
4     A    100    
5

Et ma nouvelle gamme est:

row    x    y    
1     A    77    
3     B    23    
4     A    100

C'est ok si les lignes vides en fin jusqu'à la fin du tableau. Jusqu'à présent, je suis perplexe

  • Ne ligne de la colonne existent pas ou ne sont là que x et y? Peut arriver que x contient quelque chose et y ne fonctionne pas ou vice-versa?
  • rulez" Une ligne de la colonne n'existe pas, et x et y sont soit rempli ou vide. Il n'est jamais le cas que x est vide et y ne l'est pas.
InformationsquelleAutor Zach | 2011-08-15
  1. 4

    Vous devez utiliser les cellules spéciales méthode pour cela. Soit avec vba ou Manuellement.

    Manuellement

    2007/2010

    Sélectionnez la colonne A

    Onglet accueil -Rechercher & Sélectionnez - Goto Spécial - Blancs - Ok

    Onglet Accueil - Supprimer Les Cellules - Ligne - Ok

    VBA

    Sub DeleteBlanks()
    Activesheet.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

    Si vous souhaitez conserver les données d'origine intact et copie la plage à une autre feuille essayez quelque chose comme:

    Sub DeleteBlanks()

    Dim vArray As Variant
    '//Get an array of your data
    vArray = Sheet1.UsedRange
    '//Copy the data to another sheet
    Sheet2.Range("A1").Resize(UBound(vArray, 1), UBound(vArray, 2)).Value = vArray
    '//Delete blanks
    Sheet2.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

    FORMULE

    Si vous avez vraiment besoin d'une formule de prendre un coup d'oeil ici:

    Retirez Les Blancs - Formule De Tableau

    InformationsquelleAutor Reafidy
  2. 2

    Pourquoi ne pas utiliser un filtre pour exclure les espaces vides de la colonne appropriée(s)?

    Alternativement, vous pouvez créer un indicateur supplémentaire de la colonne qui désigne chaque ligne pour être inclus dans votre vide critères (par exemple, IF(OR(X="",Y=""),0,1)) et l'utiliser pour filtrer vos données.

    • Je ne veux pas utiliser un filtre parce que je veux la nouvelle gamme pour mettre automatiquement à jour lorsque je passe à la gamme d'origine.
    InformationsquelleAutor Chris
  3. 2

    J'aime Chris conseils.
    C'est un vba approche.
    Essayez-la sur une copie de votre fichier.

    Sub delete_empty_rows()
Dim last As Long, i As Long
last = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = last To 1 Step -1
    If Application.CountA(Range("A" & i).EntireRow) = 0 Then
        Range("A" & i).EntireRow.Delete
    End If
Next i
End Sub
    InformationsquelleAutor Nicola Cossu