Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

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 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.

2. Cliquez Data > 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 complet en 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.

2. Cliquez 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 > Choisir > 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

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 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ée...
  • 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 gammes...
  • 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 cellules...
  • 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 PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. 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é de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    sandy17dec · 1 years ago
    Array formula Works fine on text
    but don't work on numbers.
  • To post as a guest, your comment is unpublished.
    Sandip · 1 years ago
    Not working on Numbers !!!
    Works fine on text !!!
    Please guide
  • To post as a guest, your comment is unpublished.
    Mickael · 5 years ago
    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?
  • To post as a guest, your comment is unpublished.
    Peter · 5 years ago
    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?
  • To post as a guest, your comment is unpublished.
    cvh · 5 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Quintin · 6 years ago
    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?
  • To post as a guest, your comment is unpublished.
    Hellooo · 6 years ago
    Is there a way to make the macro work when referencing between different sheets?
  • To post as a guest, your comment is unpublished.
    em07 · 7 years ago
    This formula is absolutely amazing, thank you.

    Unfortunately it breaks when trying to copy from another sheet, is there a workaround?
    • To post as a guest, your comment is unpublished.
      abc · 7 years ago
      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)))))
  • To post as a guest, your comment is unpublished.
    etchvee · 7 years ago
    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)))))