Preskoči na glavno vsebino

Kako kopirati in prilepiti samo neprazne celice v Excelu?

Večina nas lahko trpi zaradi te težave, ko kopiramo seznam podatkov, ki vsebujejo nekaj praznih celic, in jih nato prilepimo v drug stolpec, bodo tudi prazne celice prilepljene. To je zelo moteče, če ne potrebujemo praznih prostorov in želimo prilepiti samo neprazne celice. Kako bi lahko v tem primeru hitro in priročno kopirali in prilepili samo prazne celice v Excelu? Tukaj je nekaj hitrih trikov za njegovo rešitev:

Kopirajte in prilepite samo neprazne celice z ukazom Pojdi na posebno

Kopirajte in prilepite samo prazne celice s funkcijo filtra

Kopirajte in prilepite samo neprazne celice z Array Formula

Kopirajte in prilepite samo neprazne celice s kodo VBA

Kopirajte in prilepite samo neprazne celice s programom Kutools za Excel dobra ideja3


puščica modri desni mehurček Kopirajte in prilepite samo neprazne celice z ukazom Pojdi na posebno

Z Pojdi na posebno ukaz, lahko najprej izberete vse podatke, nato pa jih kopirate in prilepite na drugo mesto.

1. Izberite seznam podatkov, ki jih želite uporabiti.

doc-copy-only-nonblanks1

2. Nato kliknite HOME > Poiščite in izberite > Pojdi na posebno, glej posnetek zaslona:

doc-copy-only-nonblanks1

3. v Pojdi na posebno pogovorno okno, preverite Konstante možnost, glej posnetek zaslona:

doc-copy-only-nonblanks1

4. Nato kliknite OK, in na seznamu so bile izbrane samo celice vrednosti.

doc-copy-only-nonblanks1

5. Nato podatke kopirajte in prilepite na želeno mesto. Prilepljene so bile le vrednosti, ki niso prazne. Oglejte si posnetek zaslona:

doc-copy-only-nonblanks1

Opombe: Ta metoda je na voljo samo za konstante, ne uporablja se za celice formule.


puščica modri desni mehurček Kopirajte in prilepite samo prazne celice s funkcijo filtra

O filter Funkcija vam lahko pomaga najprej filtrirati neprazne celice, nato pa jih lahko po potrebi kopirate in prilepite v druge celice.

2. Kliknite datum > filter, glej posnetek zaslona:

doc kopiraj samo prazne6

3. Nato kliknite spustni gumb v desnem kotu celice na izbranem seznamu in počistite polje Blanks pod spustnim menijem. Oglejte si posnetek zaslona:
doc-copy-only-nonblanks1

4. In nato kliknite OK, so bile vse neprazne celice filtrirane, kot je prikazano na sliki spodaj:

doc-copy-only-nonblanks1

5. Končno lahko kopirajte filtrirane podatke in jih prilepite na poljubno mesto.

Opombe: Tako vrednosti začnejo učinkovati tako vrednosti kot formule.


Naenkrat izberite prazne celice

Kliknite za brezplačno popolno preizkusno različico v 30 dneh!
doc kutools izbere neprazne celice

puščica modri desni mehurček Kopirajte in prilepite samo neprazne celice z Array Formula

Če želite kopirati in prilepiti samo prazne celice, lahko uporabite tudi naslednjo formulo matrike.

1. Poleg svojih podatkov v prazno celico vnesite naslednjo formulo:

=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

Opombe: V zgornji formuli, A1: A15 je seznam podatkov, ki ga želite uporabiti. Lahko ga spremenite po svojih željah.

2. Nato pritisnite Shift + Ctrl + Enter nato izberite celico B1 in povlecite ročico za polnjenje do obsega, ki ga želite vsebovati v tej formuli, in vse neprazne vrednosti celice so bile izvlečene. Oglejte si posnetek zaslona:

doc-copy-only-nonblanks1

3. Ker so formule, jih kopirajte na drugo mesto in jih kopirajte in prilepite kot vrednosti.

Opombe: Ta formula je na voljo samo za konstante, ne velja za celice formule.


puščica modri desni mehurček Kopirajte in prilepite samo neprazne celice s kodo VBA

Če vas zanima koda VBA, lahko za dokončanje te naloge izvedete naslednjo kodo.

1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Kopirajte in prilepite samo neprazne celice v Excelu

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. Nato pritisnite F5 tipko za zagon te kode, se prikaže pozivno polje, ki vas opomni, da izberete obseg podatkov, ki ga želite uporabiti. Oglejte si posnetek zaslona:

doc-copy-only-nonblanks1

4. In nato kliknite OK, se bo odprlo novo pozivno polje, v katerem boste lahko izbrali celico za vnos podatkov.

doc-copy-only-nonblanks1

5. klik OK Če želite končati to kodo, so na vaš določen položaj prilepljene samo vrednosti, ki niso prazne.

Opombe: Ta koda je na voljo samo stalnicam.


puščica modri desni mehurček Kopirajte in prilepite samo neprazne celice s programom Kutools za Excel

Ali obstaja kakšen lažji način kot zgoraj? Seveda, Kutools za Excel's Izberite Nonblank CellPripomoček s vam lahko pomaga najprej izbrati prazne celice, nato pa jih kopirati in prilepiti.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite obseg celic in kliknite Kutools > Izberite > Izberite Neprazne celice. Oglejte si posnetek zaslona:
doc izberite prazno celico 2

2. Nato izberete neprazne celice in pritisnite Ctrl + C če jih želite kopirati, nato izberite celico, v katero želite prikazati pasetirani rezultat, pritisnite Ctrl + V da prilepite izbrane neprazne celice. Oglejte si posnetek zaslona:
doc izberite prazno celico 3

puščica modri desni mehurček Kopirajte in prilepite samo neprazne celice

Kutools za Excel: 300+ funkcij, ki jih morate imeti v Excelu, 30-dnevno brezplačno preskusno obdobje od tu

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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