Note: The other languages of the website are Google-translated. Back to English

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 des 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 Home > 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

La 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 complet gratuit 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 des cellules non vides avec Kutools for Excel

Existe-t-il un moyen beaucoup plus simple que ci-dessus? Bien sûr, Kutools pour 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 pour 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 pour Excel:
300
+ les fonctions que vous devez avoir dans Excel,
30
essai gratuit d'un jour à partir d'ici

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité en
80 %

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus que
    300
    Caractéristiques puissantes
    . Prend en charge Office/Excel
    2007-2019 et 365
    . Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes
    30
    -jour d'essai gratuit. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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é en
    50 %
    , et réduit chaque jour des centaines de clics de souris !
bas de cabine
Commentaires (11)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
merci pour la super formule : =RECHERCHE("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15"",ROW($A$1: $A$15)),LIGNES($B$1:B1)))))
Ce commentaire a été minimisé par le modérateur sur le site
Cette formule est absolument géniale, merci. Malheureusement, il se casse lorsque vous essayez de copier à partir d'une autre feuille, existe-t-il une solution de contournement ?
Ce commentaire a été minimisé par le modérateur sur le site
corriger les références lors de l'utilisation de la formule entre différentes feuilles. Ça marche. =RECHERCHE("zzzzz",CHOOSE({1,2},"",INDEX('Liste des articles en retard'!A:A,SMALL(IF('Liste des articles en retard'!A$1:A$1500"", ROW('Liste des articles en retard'!A$1:A$1500)),ROWS('Liste des articles en retard'!B$1:B2)))))
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de faire fonctionner la macro lors du référencement entre différentes feuilles?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour #abc j'ai utilisé votre formule =RECHERCHE("zzzzz",CHOOSE({1,2},"",INDEX('Liste des articles en retard'!A:A,SMAL L(IF('Liste des articles en retard' !A$1:A$15 00"",ROW('Liste des articles en retard'!A$1:A$15 00)),ROWS('Liste des articles en retard'!B$1:B2)) ))) J'ai des données dans une feuille de calcul et que vous souhaitez copier ces données dans une autre feuille de calcul (même doc). Pouvez-vous aider ?
Ce commentaire a été minimisé par le modérateur sur le site
Ces outils suppriment les cellules vides et compressent la ligne. Je veux que le format soit conservé, y compris les espaces, mais je ne veux pas que les cellules vides écrasent les cellules contenant des données existantes. c'est-à-dire que je veux ajouter les nouvelles cellules copiées d'une colonne sur une colonne existante.
Ce commentaire a été minimisé par le modérateur sur le site
Lorsque je sélectionne et ne copie que des cellules non vides, comment puis-je ensuite le coller ailleurs en conservant les mêmes plages vides entre elles?
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour les bons conseils ! J'utilise la fonction Rechercher et sélectionner, mais cela prend beaucoup de temps car ma feuille de calcul contient 70 colonnes et 450 XNUMX lignes. Existe-t-il un moyen d'accélérer le processus?
Ce commentaire a été minimisé par le modérateur sur le site
Ne fonctionne pas sur les nombres !!!
Fonctionne bien sur le texte !!!
S'il vous plaît guide
Ce commentaire a été minimisé par le modérateur sur le site
Formule matricielle Fonctionne bien sur le texte
mais ne travaillez pas sur les chiffres.
Ce commentaire a été minimisé par le modérateur sur le site
=Filtre(A:A,A:A<>"")
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL