Hoe alleen niet-lege cellen in Excel kopiëren en plakken?
De meesten van ons hebben waarschijnlijk al met dit probleem te maken gehad: wanneer we een lijst met gegevens kopiëren die enkele lege cellen bevat, en deze vervolgens naar een andere kolom plakken, worden de lege cellen ook geplakt. Dit is erg vervelend als we de lege cellen niet nodig hebben en alleen de niet-lege cellen willen plakken. In dit geval, hoe kunnen we dan snel en gemakkelijk alleen de niet-lege cellen in Excel kopiëren en plakken? Hier zijn enkele snelle trucs om dit probleem op te lossen:
Alleen niet-lege cellen kopiëren en plakken met het commando Speciale Selectie
Alleen niet-lege cellen kopiëren en plakken met Kutools voor Excel 
Alleen niet-lege cellen kopiëren en plakken met de Filterfunctie
Alleen niet-lege cellen kopiëren en plakken met Array-formule
Alleen niet-lege cellen kopiëren en plakken met VBA-code
Alleen niet-lege cellen kopiëren en plakken met het commando Speciale Selectie
Met het commando Ga naar Speciaal kunt u eerst alle gegevens selecteren en vervolgens kopiëren en plakken naar een andere locatie.
1. Selecteer uw lijst met gegevens die u wilt gebruiken.
2. Klik vervolgens op Start > Zoeken en selecteren > Ga naar Speciaal, zie screenshot:
3. Schakel in het dialoogvenster Ga naar Speciaal de optie Constanten in, zie screenshot:
4. Klik vervolgens op OK, en alleen de cellen met waarden zijn geselecteerd in de lijst.
5. Kopieer en plak vervolgens de gegevens naar de gewenste locatie. Alleen de waarden van de niet-lege cellen zijn geplakt. Zie screenshot:
Opmerking: Deze methode is alleen beschikbaar voor constanten, niet voor formulecellen.
Alleen niet-lege cellen kopiëren en plakken met Kutools voor Excel
Is er een veel eenvoudigere manier dan hierboven? Natuurlijk, het hulpprogramma Selecteer niet-lege cellen van Kutools voor Excel kan u helpen om eerst de niet-lege cellen te selecteren, en vervolgens kunt u ze kopiëren en plakken.
Na het gratis installeren van Kutools voor Excel, doe het volgende:
1. Selecteer het celbereik en klik Kutools > Selecteer > Selecteer niet-lege cellen. Zie screenshot:
2. De niet-lege cellen zijn nu geselecteerd, druk Ctrl + C om ze te kopiëren, ga vervolgens naar een cel waar u de geplakte resultaten wilt uitvoeren en druk Ctrl + V om de geselecteerde niet-lege cellen te plakken. Zie screenshot:
Alleen niet-lege cellen kopiëren en plakken met de filterfunctie
De filterfunctie kan u helpen om eerst de niet-lege cellen te filteren, en vervolgens kunt u ze naar andere cellen kopiëren en plakken zoals u nodig hebt.
2. Klik op Gegevens > Filter, zie screenshot:
3. Klik vervolgens op de vervolgkeuzeknop rechtsboven in de cel in de geselecteerde lijst, en vink de Blanks optie onder het vervolgkeuzemenu uit. Zie screenshot:
4. Klik vervolgens op OK, alle niet-lege cellen zijn gefilterd zoals in de volgende schermafbeelding wordt getoond:
5. Ten slotte kunt u de gefilterde gegevens kopiëren en plakken naar elke locatie die u nodig hebt.
Opmerking: Zowel waarden als formules worden hierdoor beïnvloed.
Alleen niet-lege cellen kopiëren en plakken met arrayformule
Om alleen de niet-lege cellen te kopiëren en te plakken, kunt u ook de volgende arrayformule toepassen.
1. Naast uw gegevens voert u 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)))))
Opmerking: In de bovenstaande formule is A1:A15 de gegevenslijst die u wilt gebruiken. U kunt dit aanpassen naar uw behoefte.
2. Druk vervolgens tegelijk op Shift + Ctrl + Enter, selecteer cel B1, en sleep de vulgreep over het bereik dat u deze formule wilt bevatten, en alle waarden van de niet-lege cellen zijn geëxtraheerd. Zie screenshot:
3. Omdat het om formules gaat, moet u bij het kopiëren ervan naar een andere plaats ze kopiëren en plakken als waarden.
Opmerking: Deze formule is alleen beschikbaar voor constanten, niet voor formulecellen.
Alleen niet-lege cellen kopiëren en plakken 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 toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.
VBA-code: Alleen niet-lege cellen kopiëren en plakken 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 de toets F5 om deze code uit te voeren, er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u wilt gebruiken. Zie screenshot:
4. Klik vervolgens op OK, er verschijnt een ander promptvenster waarin u een cel kunt kiezen om de gegevens in te plaatsen.
5. Klik op OK om deze code te voltooien, en alleen de waarden van de niet-lege cellen zijn geplakt op uw gespecificeerde positie.
Opmerking: Deze code is alleen beschikbaar voor constanten.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen