Przejdź do głównej zawartości

Jak skopiować i wkleić tylko niepuste komórki w programie Excel?

Większość z nas może cierpieć z powodu tego problemu, gdy kopiujemy listę danych zawierającą puste komórki, a następnie wklejamy je do innej kolumny, puste komórki również zostaną wklejone. Jest to bardzo denerwujące, gdy nie potrzebujemy spacji i chcemy wkleić tylko niepuste komórki. W takim przypadku, jak moglibyśmy szybko i wygodnie skopiować i wkleić tylko niepuste komórki w programie Excel? Oto kilka szybkich sztuczek, aby go rozwiązać:

Skopiuj i wklej tylko niepuste komórki za pomocą polecenia Przejdź do specjalnego

Skopiuj i wklej tylko niepuste komórki z funkcją Filtruj

Skopiuj i wklej tylko niepuste komórki za pomocą formuły tablicowej

Skopiuj i wklej tylko niepuste komórki z kodem VBA

Skopiuj i wklej tylko niepuste komórki za pomocą Kutools for Excel dobry pomysł 3


strzałka niebieski prawy bąbelek Skopiuj i wklej tylko niepuste komórki za pomocą polecenia Przejdź do specjalnego

Z Przejdź do specjalnego polecenie, możesz najpierw zaznaczyć wszystkie dane, a następnie skopiować i wkleić je w inne miejsce.

1. Wybierz listę danych, których chcesz użyć.

dokument-tylko-kopiowanie-niepuste1

2. Następnie kliknij Strona główna > Znajdź i wybierz > Przejdź do specjalnegozobacz zrzut ekranu:

dokument-tylko-kopiowanie-niepuste1

3, w Przejdź do specjalnego okno dialogowe, zaznacz Stałe opcja, patrz zrzut ekranu:

dokument-tylko-kopiowanie-niepuste1

4. Następnie kliknij OK, a na liście zaznaczono tylko komórki wartości.

dokument-tylko-kopiowanie-niepuste1

5. Następnie skopiuj i wklej dane do wybranej lokalizacji. Wklejono tylko niepuste wartości komórek. Zobacz zrzut ekranu:

dokument-tylko-kopiowanie-niepuste1

Note: Ta metoda jest dostępna tylko dla stałych, nie jest stosowana do komórek formuły.


strzałka niebieski prawy bąbelek Skopiuj i wklej tylko niepuste komórki z funkcją Filtruj

Połączenia FILTRY Funkcja może pomóc najpierw odfiltrować niepuste komórki, a następnie możesz je skopiować i wkleić do innych komórek, zgodnie z potrzebami.

2. Kliknij Dane > FILTRYzobacz zrzut ekranu:

doc kopiuj tylko niepuste 6

3. Następnie kliknij przycisk rozwijany w prawym rogu komórki na wybranej liście i usuń zaznaczenie Puste opcja w menu rozwijanym. Zobacz zrzut ekranu:
dokument-tylko-kopiowanie-niepuste1

4. A następnie kliknij OK, wszystkie niepuste komórki zostały odfiltrowane, jak pokazano na poniższym zrzucie ekranu:

dokument-tylko-kopiowanie-niepuste1

5. W końcu możesz skopiować przefiltrowane dane i wkleić je w dowolnej lokalizacji.

Note: W ten sposób obowiązują zarówno wartości, jak i formuły.


Zaznacz niepuste komórki naraz

Kliknij, aby uzyskać bezpłatną, w pełni funkcjonalną wersję próbną w 30 dni!
doc kutools wybiera niepuste komórki

strzałka niebieski prawy bąbelek Skopiuj i wklej tylko niepuste komórki za pomocą formuły tablicowej

Aby skopiować i wkleić tylko niepuste komórki, możesz również zastosować następującą formułę tablicową.

1. Oprócz danych wprowadź następującą formułę do pustej komórki:

=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))

dokument-tylko-kopiowanie-niepuste1

Note: W powyższym wzorze, A1: A15 to lista danych, z której chcesz skorzystać, możesz ją zmienić według swoich potrzeb.

2. Następnie naciśnij Shift + Ctrl + Enter klucze razem, a następnie wybierz komórkę B1 i przeciągnij uchwyt wypełniania do zakresu, w którym chcesz zawrzeć tę formułę, a wszystkie niepuste wartości komórek zostały wyodrębnione. Zobacz zrzut ekranu:

dokument-tylko-kopiowanie-niepuste1

3. Ponieważ są to formuły, kopiując je w inne miejsce, należy je skopiować i wkleić jako wartości.

Note: Ta formuła jest dostępna tylko dla stałych, a nie jest stosowana do komórek formuły.


strzałka niebieski prawy bąbelek Skopiuj i wklej tylko niepuste komórki z kodem VBA

Jeśli interesuje Cię kod VBA, możesz wykonać następujący kod, aby zakończyć to zadanie.

1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: Skopiuj i wklej tylko niepuste komórki w programie 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. Następnie naciśnij F5 Aby uruchomić ten kod, pojawi się okno zachęty przypominające o wyborze zakresu danych, którego chcesz użyć. Zobacz zrzut ekranu:

dokument-tylko-kopiowanie-niepuste1

4. A następnie kliknij OK, pojawi się kolejne okno zachęty umożliwiające wybranie komórki do umieszczenia danych.

dokument-tylko-kopiowanie-niepuste1

5. Kliknij OK aby zakończyć ten kod, i tylko niepuste wartości komórek zostały wklejone w określone miejsce.

Note: Ten kod jest dostępny tylko dla stałych.


strzałka niebieski prawy bąbelek Skopiuj i wklej tylko niepuste komórki za pomocą Kutools for Excel

Czy jest dużo łatwiejszy sposób niż powyżej? Oczywiście, Kutools dla programu Excel's Wybierz niepustą komórkęNarzędzie s może pomóc najpierw wybrać niepuste komórki, a następnie je skopiować i wkleić.

Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. 

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. Wybierz zakres komórek i kliknij Kutools > Wybierz > Wybierz niepuste komórki. Zobacz zrzut ekranu:
doc wybierz niepustą komórkę 2

2. Następnie zaznaczone są niepuste komórki, naciśnij Ctrl + C aby je skopiować, a następnie przejdź do komórki, w której chcesz wydrukować pasetowany wynik, naciśnij Ctrl + V aby wkleić wybrane niepuste komórki. Zobacz zrzut ekranu:
doc wybierz niepustą komórkę 3

strzałka niebieski prawy bąbelek Skopiuj i wklej tylko niepustą komórkę

Kutools dla programu Excel: ponad 300 funkcji, które musisz mieć w programie Excel, 30-dniowy bezpłatny okres próbny stąd

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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