Ga naar hoofdinhoud

Hoe kopieer en plak ik alleen niet-lege cellen in Excel?

De meesten van ons kunnen last hebben van dit probleem, wanneer we een lijst met gegevens kopiëren die enkele lege cellen bevatten en deze vervolgens in een andere kolom plakken, worden de lege cellen ook geplakt. Dit is erg vervelend als we de lege cellen niet nodig hebben en alleen niet-lege cellen willen plakken. Hoe kunnen we in dit geval alleen niet-lege cellen snel en gemakkelijk in Excel kopiëren en plakken? Hier zijn enkele snelle trucs om het op te lossen:

Kopieer en plak alleen niet-lege cellen met de opdracht Ga naar speciaal

Kopieer en plak alleen niet-lege cellen met de filterfunctie

Kopieer en plak alleen niet-lege cellen met matrixformule

Kopieer en plak alleen niet-lege cellen met VBA-code

Kopieer en plak alleen niet-lege cellen met Kutools voor Excel goed idee 3


pijl blauw rechts bel Kopieer en plak alleen niet-lege cellen met de opdracht Ga naar speciaal

Met de Ga naar speciaal opdracht, kunt u eerst alle gegevens selecteren en ze vervolgens kopiëren en op een andere locatie plakken.

1. Selecteer uw lijst met gegevens die u wilt gebruiken.

doc-copy-only-nonblanks1

2. Dan klikken Home > Zoek en selecteer > Ga naar speciaal, zie screenshot:

doc-copy-only-nonblanks1

3. In de Ga naar speciaal dialoogvenster, vink aan constanten optie, zie screenshot:

doc-copy-only-nonblanks1

4. Dan klikken OK, en alleen de waardecellen zijn in de lijst geselecteerd.

doc-copy-only-nonblanks1

5. En kopieer en plak de gegevens vervolgens naar een gewenste locatie. En alleen de niet-lege celwaarden zijn geplakt. Zie screenshot:

doc-copy-only-nonblanks1

Note: Deze methode is alleen beschikbaar voor de constanten en wordt niet toegepast op de formulecellen.


pijl blauw rechts bel Kopieer en plak alleen niet-lege cellen met de filterfunctie

Het FILTER functie kan u helpen de niet-lege cellen eerst te filteren en vervolgens kunt u ze naar behoefte kopiëren en in andere cellen plakken.

2. Klikken Data > FILTER, zie screenshot:

doc kopie alleen non-blanks6

3. Klik vervolgens op de vervolgkeuzeknop in de rechterhoek van de cel in de geselecteerde lijst en schakel het selectievakje uit blanks optie onder het vervolgkeuzemenu. Zie screenshot:
doc-copy-only-nonblanks1

4. En klik vervolgens op OK, zijn alle niet-lege cellen uitgefilterd zoals in de volgende schermafbeelding:

doc-copy-only-nonblanks1

5. Eindelijk kunt u de gefilterde gegevens kopiëren en op elke gewenste locatie plakken.

Note: Zowel waarden als formules worden op deze manier van kracht.


Selecteer niet-lege cellen in één keer

Klik voor een gratis proefversie met volledige functionaliteit binnen 30 dagen!
doc kutools selecteert niet-lege cellen

pijl blauw rechts bel Kopieer en plak alleen niet-lege cellen met matrixformule

Om alleen de niet-lege cellen te kopiëren en te plakken, kunt u ook de volgende matrixformule toepassen.

1. Voer naast uw gegevens de volgende formule in een lege cel in:

=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: In de bovenstaande formule, A1: A15 is de datalijst die u wilt gebruiken. U kunt deze naar wens aanpassen.

2. Druk vervolgens op Shift+Ctrl+Enter toetsen samen en selecteer vervolgens cel B1, en sleep de vulgreep naar het bereik waarin u deze formule wilt opnemen, en alle niet-lege celwaarden zijn geëxtraheerd. Zie screenshot:

doc-copy-only-nonblanks1

3. Omdat het formules zijn, moet u ze kopiëren en plakken als waarden wanneer u ze naar een andere plaats kopieert.

Note: Deze formule is alleen beschikbaar voor de constanten, niet van toepassing op de formulecellen.


pijl blauw rechts bel Kopieer en plak alleen niet-lege cellen met VBA-code

Als u geïnteresseerd bent in VBA-code, kunt u de volgende code uitvoeren om deze taak te voltooien.

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: kopieer en plak alleen niet-lege cellen in 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. Druk vervolgens op F5 toets om deze code uit te voeren, verschijnt er een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u wilt gebruiken. Zie screenshot:

doc-copy-only-nonblanks1

4. En klik vervolgens op OK, verschijnt er een ander promptvenster waarin u een cel kunt kiezen om de gegevens in te plaatsen.

doc-copy-only-nonblanks1

5. Klik OK om deze code te voltooien, en alleen de niet-lege celwaarden zijn op de door u opgegeven positie geplakt.

Note: Deze code is alleen beschikbaar voor de constanten.


pijl blauw rechts bel Kopieer en plak alleen niet-lege cellen met Kutools voor Excel

Is er een veel gemakkelijkere manier dan hierboven? Natuurlijk, Kutools for Excel's Selecteer Niet-lege celHet hulpprogramma kan u helpen om eerst de niet-lege cellen te selecteren en ze vervolgens te kopiëren en te plakken.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer het celbereik en klik op Kutools > kies > Selecteer niet-lege cellen. Zie screenshot:
doc selecteer niet-lege cel 2

2. Vervolgens worden de niet-lege cellen geselecteerd, druk op CTRL + C om ze te kopiëren, ga dan naar een cel selecteren waar u het gewenste resultaat wilt uitvoeren, druk op Ctrl + V om geselecteerde niet-lege cellen te plakken. Zie screenshot:
doc selecteer niet-lege cel 3

pijl blauw rechts bel Kopieer en plak alleen niet-lege cellen

Kutools for Excel: 300+ functies die u in Excel moet hebben, 30 dagen gratis proefperiode vanaf hier

Beste Office-productiviteitstools

Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

kte tabblad 201905


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
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