Hogyan lehet csak nem üres cellákat másolni és beilleszteni az Excelbe?
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 programba 
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.
2. Ezután kattintson FŐOLDAL > Keresés és kiválasztás > Ugrás a különlegességre, lásd a képernyőképet:
3. Az Ugrás a különlegességre párbeszédpanelen ellenőrizze állandók opció, lásd a képernyőképet:
4. Ezután kattintson OK, és csak az érték cellákat választotta ki a listából.
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:
Megjegyzések: Ez a módszer csak az állandók esetében áll rendelkezésre, a képletcellákra nem alkalmazható.
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:
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:
4. Kattintson a gombra OK, az összes nem üres cellát kiszűrtük a következő képernyőkép szerint:
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ó megtekintéséhez 30 napok! |
 |
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)))))
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:
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ó.
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:
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.
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.
Csak a nem üres cellákat másolja és illessze be a Kutools for Excel programba
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 az alábbiak szerint:
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:
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:
Csak a nem üres cellákat másolja és illessze be
| Kutools for Excel: 300+ funkcióval kell rendelkeznie az Excelben, 30napos ingyenes próbaverzió innen |
A legjobb irodai termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
Az Office fül a füles felületet hozza 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!
