Passer au contenu principal

Comment copier et coller uniquement des cellules non vides dans Excel?

La plupart d'entre nous peuvent souffrir de ce problème, lorsque nous copions une liste de données contenant des cellules vides, puis les collons dans une autre colonne, les cellules vides seront également collées. C'est très ennuyeux lorsque nous n'avons pas besoin des blancs et que nous voulons coller uniquement des cellules non vides. Dans ce cas, comment pourrions-nous copier et coller uniquement des cellules non vides dans Excel rapidement et facilement? Voici quelques astuces rapides pour le résoudre:

Copiez et collez uniquement les cellules non vides avec la commande Aller à spécial

Copiez et collez uniquement les cellules non vides avec la fonction Filtre

Copiez et collez uniquement les cellules non vides avec la formule de tableau

Copiez et collez uniquement les cellules non vides avec le code VBA

Copiez et collez uniquement les cellules non vides avec Kutools for Excel bonne idée3


flèche bleue bulle droite Copiez et collez uniquement les cellules non vides avec la commande Aller à spécial

Avec la Aller à Spécial , vous pouvez d'abord sélectionner toutes les données, puis les copier et les coller dans un autre emplacement.

1. Sélectionnez votre liste de données que vous souhaitez utiliser.

doc-copie-seulement-nonblanks1

2. Puis clique Accueil > Rechercher et sélectionner > Aller à Spécial, voir capture d'écran:

doc-copie-seulement-nonblanks1

3. Dans le Aller à Spécial boîte de dialogue, cochez Constants option, voir capture d'écran:

doc-copie-seulement-nonblanks1

4. Puis clique OK, et seules les cellules de valeur ont été sélectionnées dans la liste.

doc-copie-seulement-nonblanks1

5. Et puis copiez et collez les données à un emplacement de votre choix. Et seules les valeurs de cellule non vides ont été collées. Voir la capture d'écran:

doc-copie-seulement-nonblanks1

Notes: Cette méthode n'est disponible que pour les constantes, elle n'est pas appliquée aux cellules de formule.


flèche bleue bulle droite Copiez et collez uniquement les cellules non vides avec la fonction Filtre

Le Filtre La fonctionnalité peut vous aider à filtrer d'abord les cellules non vides, puis vous pouvez les copier et les coller dans d'autres cellules selon vos besoins.

2Cliquez sur Données > Filtre, voir capture d'écran:

doc copie uniquement non vides6

3. Cliquez ensuite sur le bouton déroulant dans le coin droit de la cellule dans la liste sélectionnée et décochez la case Blanks option dans le menu déroulant. Voir la capture d'écran:
doc-copie-seulement-nonblanks1

4. Et puis cliquez OK, toutes les cellules non vides ont été filtrées comme suit:

doc-copie-seulement-nonblanks1

5. Enfin, vous pouvez copier les données filtrées et les coller à n'importe quel emplacement dont vous avez besoin.

Notes: Les valeurs et les formules sont prises en compte en utilisant cette méthode.


Sélectionnez les cellules non vides à la fois

Cliquez pour un essai gratuit et complet dans 30 jours !
doc kutools sélectionner des cellules non vides

flèche bleue bulle droite Copiez et collez uniquement les cellules non vides avec la formule de tableau

Pour copier et coller uniquement les cellules non vides, vous pouvez également appliquer la formule matricielle suivante.

1. Outre vos données, entrez la formule suivante dans une cellule vide:

=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))

doc-copie-seulement-nonblanks1

Notes: Dans la formule ci-dessus, A1: A15 est la liste de données que vous souhaitez utiliser. Vous pouvez la modifier selon vos besoins.

2. Puis appuyez Maj + Ctrl + Entrée clés ensemble, puis sélectionnez la cellule B1 et faites glisser la poignée de recopie vers la plage que vous souhaitez contenir cette formule, et toutes les valeurs de cellule non vides ont été extraites. Voir la capture d'écran:

doc-copie-seulement-nonblanks1

3. Comme ce sont des formules, lorsque vous les copiez à un autre endroit, vous devez les copier et les coller en tant que valeurs.

Notes: Cette formule n'est disponible que pour les constantes, non appliquée aux cellules de formule.


flèche bleue bulle droite Copiez et collez uniquement les cellules non vides avec le code VBA

Si vous êtes intéressé par le code VBA, vous pouvez exécuter le code suivant pour terminer cette tâche.

1. Maintenez le ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: copiez et collez uniquement les cellules non vides dans Excel

Sub PasteNotBlanks()
'Update 20140325
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
If InputRng.Columns.Count > 1 Then
    MsgBox "Please select one column."
    Exit Sub
End If
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
InputRng.SpecialCells(xlCellTypeConstants).Copy Destination:=OutRng.Range("A1")
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage de données que vous souhaitez utiliser. Voir la capture d'écran:

doc-copie-seulement-nonblanks1

4. Et puis cliquez OK, une autre boîte de dialogue apparaîtra pour vous permettre de choisir une cellule pour mettre les données.

doc-copie-seulement-nonblanks1

5. Cliquez OK pour terminer ce code, et seules les valeurs de cellule non vides ont été collées à la position spécifiée.

Notes: Ce code n'est disponible que pour les constantes.


flèche bleue bulle droite Copiez et collez uniquement les cellules non vides avec Kutools for Excel

Existe-t-il un moyen beaucoup plus simple que ci-dessus? Bien sûr, Kutools for Excel's Sélectionnez une cellule non videL'utilitaire s peut vous aider à sélectionner d'abord les cellules non vides, puis à les copier et les coller.

Kutools for Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. 

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Sélectionnez la plage de cellules et cliquez sur Kutools > Sélectionnez > Sélectionnez les cellules non vides. Voir la capture d'écran:
doc sélectionner la cellule non vide 2

2. Ensuite, les cellules non vides sont sélectionnées, appuyez sur Ctrl + C pour les copier, puis sélectionnez une cellule dans laquelle vous souhaitez afficher le résultat passé, appuyez sur Ctrl + V pour coller les cellules non vides sélectionnées. Voir la capture d'écran:
doc sélectionner la cellule non vide 3

flèche bleue bulle droite Copier et coller une cellule non vide uniquement

Kutools for Excel: plus de 300 fonctions que vous devez avoir dans Excel, Essai gratuit de 30 jours à partir d'ici

Meilleurs outils de productivité bureautique

Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

onglet kte 201905


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
=Filter(A:A,A:A<>"")
This comment was minimized by the moderator on the site
Array formula Works fine on text
but don't work on numbers.
This comment was minimized by the moderator on the site
Not working on Numbers !!!
Works fine on text !!!
Please guide
This comment was minimized by the moderator on the site
Thanks for the great tips! I am using the Find & Select feature, but it's taking a long time because my spreadsheet contains 70 columns and 450k rows. Is there a way to fasten the process?
This comment was minimized by the moderator on the site
When i select and copy only non-blank cells, how can i then paste it somewhere else with keeping the same empty ranges between them?
This comment was minimized by the moderator on the site
These tools delete the blank cells and compress the row. I want the format to be retained, including the spaces, but I do not want empty cells to overwrite cells containing existing data. i.e. I want to add the new, copied, cells in a column onto an existing column.
This comment was minimized by the moderator on the site
Hi #abc I have used your formula =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('List of Overdue items'!A:A,SMAL L(IF('List of Overdue items'!A$1:A$15 00"",ROW('List of Overdue items'!A$1:A$15 00)),ROWS('List of Overdue items'!B$1:B2)) ))) I have data in one Worksheet and want to copy that data into another worksheet (same doc). Can you help?
This comment was minimized by the moderator on the site
Is there a way to make the macro work when referencing between different sheets?
This comment was minimized by the moderator on the site
This formula is absolutely amazing, thank you. Unfortunately it breaks when trying to copy from another sheet, is there a workaround?
This comment was minimized by the moderator on the site
correct the references when using the formula between different sheets. It does work. =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('List of Overdue items'!A:A,SMALL(IF('List of Overdue items'!A$1:A$1500"",ROW('List of Overdue items'!A$1:A$1500)),ROWS('List of Overdue items'!B$1:B2)))))
This comment was minimized by the moderator on the site
thanks for the super formula: =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations