Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
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 collez dans une autre colonne, les cellules vides seront également collées. C'est très ennuyeux quand nous n'avons pas besoin des blancs et que nous voulons seulement coller des cellules non vides. Dans ce cas, comment pouvons-nous copier et coller uniquement des cellules non vides dans Excel rapidement et facilement? Voici quelques astuces pour vous aider à le résoudre:

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

Copiez et collez uniquement des cellules non vides avec la fonctionnalité Filtrer

Copiez et collez uniquement des cellules non vides avec Array Formula

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

Copiez et collez uniquement des cellules non vides avec Kutools pour Excel bonne idée3


bonne idée2Sélectionnez les cellules non vides(Sélectionnez rapidement les cellules non vides d'une sélection ou d'une feuille entière.)

doc sélectionnez cellule non vide 1


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


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

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

doc-copy-only-nonblanks1

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

doc-copy-only-nonblanks1

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

doc-copy-only-nonblanks1

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

doc-copy-only-nonblanks1

5. Et puis copiez et collez les données à l'emplacement que vous souhaitez. Et seules les valeurs de cellules non vides ont été collées. Voir la capture d'écran:

doc-copy-only-nonblanks1

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


flèche bleue droite bulle Copiez et collez uniquement des cellules non vides avec la fonctionnalité Filtrer

Le Filtre fonctionnalité peut vous aider à filtrer les cellules non vides en premier, puis vous pouvez les copier et les coller dans une autre cellule selon vos besoins.

2. Cliquez Data > Filtre, voir capture d'écran:

doc copy only nonblanks6

3. Ensuite, cliquez 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-copy-only-nonblanks1

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

doc-copy-only-nonblanks1

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

Note: Les valeurs et les formules sont prises en compte de cette manière.


flèche bleue droite bulle Copiez et collez uniquement des cellules non vides avec Array Formula

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

formule Ne plus jamais avoir à vous soucier des longues formules longues dans Excel! Kutools for Excel's Texte automatique peut ajouter toutes les formules à un groupe
en tant que texte automatique, et libérez votre cerveau! Cliquez ici pour connaître le texte automatique Cliquez ici pour obtenir un essai gratuit

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-copy-only-nonblanks1

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

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

doc-copy-only-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.

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


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

Si le code VBA vous intéresse, vous pouvez exécuter le code suivant pour terminer cette tâche.

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

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

Code VBA: Copiez et collez uniquement des 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 Pour ouvrir 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-copy-only-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-copy-only-nonblanks1

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

Note: Ce code est uniquement disponible pour les constantes.


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

Yat-il un moyen beaucoup plus facile que ci-dessus? Bien sûr, Kutools for Excel's Sélectionnez Cellule non videL'utilitaire s peut vous aider à sélectionner les cellules non vides en premier, puis les copier et les coller.

Kutools for Excel, avec plus de 120 fonctions Excel pratiques, améliorez votre efficacité de travail et économisez votre temps de travail.

Après installation gratuite Kutools pour Excel, s'il vous plaît faire comme ci-dessous:

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

2. Ensuite, les cellules non vides sont sélectionnées, appuyez sur Ctrl + C pour les copier, puis allez sélectionner une cellule où vous voulez sortir le résultat pas- sé, appuyez sur Ctrl + V pour coller des cellules non vides sélectionnées. Voir la capture d'écran:
doc sélectionnez cellule non vide 3

flèche bleue droite bulle Copiez et collez la cellule non vide uniquement



Kutools pour Excel: 300 + fonctions que vous devez avoir dans Excel, Essai gratuit 60-day d'ici

Coller à la gamme visible (Copiez et collez des données dans des cellules visibles ou filtrées uniquement.)

Outil d&#39;ajout Excel pour coller des données dans des cellules filtrées uniquement et ignorer les cellules masquées

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 emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • 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 en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. 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 Essai gratuit du jour 30.
kte tab 201905

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

  • Activer l'édition par onglets et la lecture 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 le nombre de clics de souris pour vous chaque jour!
fond officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Mickael · 2 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 · 3 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 · 3 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 · 4 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 · 4 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 · 5 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 · 4 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 · 5 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)))))