Ugrás a tartalomra

Hogyan lehet csak nem üres cellákat másolni és beilleszteni az Excelbe?

Szerző: Xiaoyang Utolsó módosítás: 2020-04-28

Legtöbben szenvedhetnek ezzel a problémával, amikor átmásolunk néhány üres cellát tartalmazó adatlistát, majd beillesztjük őket egy másik oszlopba, akkor az üres cellákat is beillesztjük. Ez nagyon bosszantó, amikor nincs szükségünk üres helyekre, és csak nem üres cellákat akarunk beilleszteni. Ebben az esetben hogyan tudnánk csak nem üres cellákat másolni és beilleszteni az Excelbe gyorsan és kényelmesen? Íme néhány gyors trükk a megoldáshoz:

Csak a nem üres cellákat másolja és illessze be a Ugrás a speciális paranccsal

Csak a nem üres cellákat másolja és illessze be a Filter funkcióval

Csak a nem üres cellákat másolja és illessze be az Array képlettel

Csak a VBA kóddal nem üres cellákat másolja és illessze be

Csak a nem üres cellákat másolja és illessze be a Kutools for Excel segítségével jó ötlet3


nyíl kék jobb buborék Csak a nem üres cellákat másolja és illessze be a Ugrás a speciális paranccsal

Aktivitáskövető Ugrás a különlegességre parancsot, először kiválaszthatja az összes adatot, majd átmásolhatja és beillesztheti őket egy másik helyre.

1. Válassza ki a használni kívánt adatok listáját.

doc-copy-only-nonblanks1

2. Ezután kattintson Kezdőlap > Keresés és kiválasztás > Ugrás a különlegességre, lásd a képernyőképet:

doc-copy-only-nonblanks1

3. Az Ugrás a különlegességre párbeszédpanelen ellenőrizze állandók opció, lásd a képernyőképet:

doc-copy-only-nonblanks1

4. Ezután kattintson OK, és csak az érték cellákat választotta ki a listából.

doc-copy-only-nonblanks1

5. Ezután másolja és illessze be az adatokat egy kívánt helyre. És csak a nem üres cellaértékeket illesztette be. Lásd a képernyőképet:

doc-copy-only-nonblanks1

Megjegyzések: Ez a módszer csak az állandók esetében áll rendelkezésre, a képletcellákra nem alkalmazható.


nyíl kék jobb buborék Csak a nem üres cellákat másolja és illessze be a Filter funkcióval

A Szűrő funkció segítségével először kiszűrheti a nem üres cellákat, majd szükség szerint másolhatja és beillesztheti őket egy másik cellába.

2. Kattints dátum > Szűrő, lásd a képernyőképet:

doc csak másolatlan nem másol6

3. Ezután kattintson a kijelölt lista cellájának jobb sarkában található legördülő gombra, és törölje a jelet Üresek opciót a legördülő menüben. Lásd a képernyőképet:
doc-copy-only-nonblanks1

4. Kattintson a gombra OK, az összes nem üres cellát kiszűrtük a következő képernyőkép szerint:

doc-copy-only-nonblanks1

5. Végül átmásolhatja a szűrt adatokat, és beillesztheti azokat bármely szükséges helyre.

Megjegyzések: Az értékek és a képletek egyaránt érvénybe lépnek.


Válassza ki a nem üres cellákat egyszerre

Kattintson az ingyenes, teljes értékű próbaverzióért 30 napon belül!
A kutools nem üres cellákat jelöl ki

nyíl kék jobb buborék Csak a nem üres cellákat másolja és illessze be az Array képlettel

Csak a nem üres cellák másolásához és beillesztéséhez alkalmazhatja a következő tömbképletet is.

1. Adatai mellett írja be a következő képletet egy üres cellába:

=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

Megjegyzések: A fenti képletben A1: A15 a használni kívánt adatlista. Megváltoztathatja igénye szerint.

2. Ezután nyomja meg a gombot Shift + Ctrl + Enter gombokat együtt, majd válassza ki a B1 cellát, és húzza át a kitöltő fogantyút arra a tartományra, amelyen ezt a képletet kívánja tartalmazni, és az összes nem üres cellaérték kibontásra került. Lásd a képernyőképet:

doc-copy-only-nonblanks1

3. Mivel képletekről van szó, amikor másolja őket, másolja és értékekként illessze be őket.

Megjegyzések: Ez a képlet csak az állandóknál érhető el, a képlet celláira nem alkalmazható.


nyíl kék jobb buborék Csak a VBA kóddal nem üres cellákat másolja és illessze be

Ha érdekli a VBA kód, a feladat befejezéséhez hajtsa végre az alábbi kódot.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Csak az üres cellákat másolja és illessze be az Excelbe

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, megjelenik egy felszólító mező, amely emlékezteti Önt a használni kívánt adattartomány kiválasztására. Lásd a képernyőképet:

doc-copy-only-nonblanks1

4. Kattintson a gombra OK, megjelenik egy újabb prompt doboz, amely lehetővé teszi, hogy kiválasszon egy cellát az adatok elhelyezéséhez.

doc-copy-only-nonblanks1

5. Kattints OK a kód befejezéséhez, és csak a nem üres cellák értékeit illesztette be a megadott pozícióba.

Megjegyzések: Ez a kód csak az állandók számára érhető el.


nyíl kék jobb buborék Csak a nem üres cellákat másolja és illessze be a Kutools for Excel segítségével

Van valami sokkal könnyebb módszer, mint fent? Természetesen, Kutools az Excel számára's Válassza a Nem üres cellátA segédprogram segítségével először kiválaszthatja a nem üres cellákat, majd másolhatja és beillesztheti azokat.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. Válassza ki a cellatartományt, majd kattintson a gombra Kutools > választ > Válassza a Nem üres cellák lehetőséget. Lásd a képernyőképet:
doc select nem üres cella 2

2. Ezután kijelöli a nem üres cellákat, nyomja meg a gombot Ctrl + C másoláshoz, majd válassza ki azt a cellát, ahová a pasettált eredményt ki szeretné adni, nyomja meg a gombot Ctrl + V beilleszteni a kijelölt nem üres cellákat. Lásd a képernyőképet:
doc select nem üres cella 3

nyíl kék jobb buborék Csak a nem üres cellákat másolja és illessze be

Kutools for Excel: 300+ funkció, amivel rendelkeznie kell az Excelben, 30 napos ingyenes próba innen

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations