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 Kutools for Excel 
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 Kezdőlap > 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 Kutools for Excel
Van valami sokkal könnyebb módszer, mint fent? Természetesen, Kutools for Excel'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 for Excel, 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+ függvény, amivel rendelkeznie kell az Excelben, 30napos ingyenes próbaverzió innen |
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos 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!
