Direkt zum Inhalt

Wie kopiere und füge ich nur nicht leere Zellen in Excel ein?

Die meisten von uns leiden möglicherweise unter diesem Problem. Wenn wir eine Liste von Daten kopieren, die einige leere Zellen enthalten, und diese dann in eine andere Spalte einfügen, werden auch die leeren Zellen eingefügt. Dies ist sehr ärgerlich, wenn wir die Leerzeichen nicht benötigen und nur nicht leere Zellen einfügen möchten. Wie können wir in diesem Fall schnell und bequem nur nicht leere Zellen in Excel kopieren und einfügen? Hier sind einige schnelle Tricks, mit denen Sie das Problem lösen können:

Kopieren Sie mit dem Befehl Gehe zu Spezial nur nicht leere Zellen und fügen Sie sie ein

Kopieren Sie nur nicht leere Zellen mit der Filterfunktion und fügen Sie sie ein

Kopieren Sie nur nicht leere Zellen mit der Array-Formel und fügen Sie sie ein

Kopieren Sie nur nicht leere Zellen mit VBA-Code und fügen Sie sie ein

Kopieren Sie mit Kutools for Excel nur nicht leere Zellen und fügen Sie sie ein gute Idee3


Pfeil blau rechte Blase Kopieren Sie mit dem Befehl Gehe zu Spezial nur nicht leere Zellen und fügen Sie sie ein

Mit der Gehe zu Spezial Mit diesem Befehl können Sie zuerst alle Daten auswählen und sie dann kopieren und an einer anderen Stelle einfügen.

1. Wählen Sie Ihre Liste der Daten aus, die Sie verwenden möchten.

doc-copy-only-nonblanks1

2. Dann klick Startseite > Suchen & Auswählen > Gehe zu Spezial, siehe Screenshot:

doc-copy-only-nonblanks1

3. In dem Gehe zu Spezial Dialogfeld überprüfen Konstante Option, siehe Screenshot:

doc-copy-only-nonblanks1

4. Dann klick OKund nur die Wertzellen wurden in der Liste ausgewählt.

doc-copy-only-nonblanks1

5. Kopieren Sie dann die Daten und fügen Sie sie an einem gewünschten Ort ein. Und nur die nicht leeren Zellenwerte wurden eingefügt. Siehe Screenshot:

doc-copy-only-nonblanks1

Note: Diese Methode ist nur für die Konstanten verfügbar und wird nicht auf die Formelzellen angewendet.


Pfeil blau rechte Blase Kopieren Sie nur nicht leere Zellen mit der Filterfunktion und fügen Sie sie ein

Der Filter Mit dieser Funktion können Sie zuerst die nicht leeren Zellen filtern und sie dann nach Bedarf kopieren und in andere Zellen einfügen.

2. Klicken Sie Datum > Filter, siehe Screenshot:

doc kopiere nur nonblanks6

3. Klicken Sie dann auf die Dropdown-Schaltfläche in der rechten Ecke der Zelle in der ausgewählten Liste und deaktivieren Sie das Kontrollkästchen Rohlinge Option unter dem Dropdown-Menü. Siehe Screenshot:
doc-copy-only-nonblanks1

4. Und dann klick OKwurden alle nicht leeren Zellen wie folgt herausgefiltert:

doc-copy-only-nonblanks1

5. Zuletzt können Sie die gefilterten Daten kopieren und an einer beliebigen Stelle einfügen.

Note: Auf diese Weise werden sowohl Werte als auch Formeln wirksam.


Wählen Sie sofort nicht leere Zellen aus

Klicken Sie hier für eine kostenlose Testversion mit vollem Funktionsumfang in 30 Tagen!
doc kutools wählt nicht leere Zellen aus

Pfeil blau rechte Blase Kopieren Sie nur nicht leere Zellen mit der Array-Formel und fügen Sie sie ein

Um nur die nicht leeren Zellen zu kopieren und einzufügen, können Sie auch die folgende Array-Formel anwenden.

1. Geben Sie neben Ihren Daten die folgende Formel in eine leere Zelle ein:

=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

Note: In der obigen Formel A1: A15 ist die Datenliste, die Sie verwenden möchten. Sie können sie nach Bedarf ändern.

2. Dann drücken Umschalt + Strg + Eingabetaste Geben Sie die Tasten zusammen und wählen Sie dann Zelle B1 aus. Ziehen Sie den Füllpunkt in den Bereich, in dem diese Formel enthalten sein soll. Alle nicht leeren Zellenwerte wurden extrahiert. Siehe Screenshot:

doc-copy-only-nonblanks1

3. Da es sich um Formeln handelt, sollten Sie sie beim Kopieren an einen anderen Ort kopieren und als Werte einfügen.

Note: Diese Formel ist nur für die Konstanten verfügbar, nicht für die Formelzellen.


Pfeil blau rechte Blase Kopieren Sie nur nicht leere Zellen mit VBA-Code und fügen Sie sie ein

Wenn Sie an VBA-Code interessiert sind, können Sie den folgenden Code ausführen, um diese Aufgabe abzuschließen.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Kopieren Sie nur nicht leere Zellen in Excel und fügen Sie sie ein

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. Dann drücken F5 Wenn Sie diesen Code ausführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie verwenden möchten. Siehe Screenshot:

doc-copy-only-nonblanks1

4. Und dann klick OKEin weiteres Eingabeaufforderungsfeld wird angezeigt, in dem Sie eine Zelle für die Daten auswählen können.

doc-copy-only-nonblanks1

5. Klicken Sie OK Um diesen Code zu beenden, wurden nur die nicht leeren Zellenwerte an der angegebenen Position eingefügt.

Note: Dieser Code steht nur den Konstanten zur Verfügung.


Pfeil blau rechte Blase Kopieren Sie mit Kutools for Excel nur nicht leere Zellen und fügen Sie sie ein

Gibt es einen viel einfacheren Weg als oben? Na sicher, Kutools for Excel's Wählen Sie Nicht leere ZelleMit dem Dienstprogramm können Sie zuerst die nicht leeren Zellen auswählen und sie dann kopieren und einfügen.

Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. 

Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1. Wählen Sie den Zellbereich aus und klicken Sie auf Kutoolen > Auswählen > Wählen Sie Nicht leere Zellen. Siehe Screenshot:
doc nicht leere Zelle auswählen 2

2. Wenn die nicht leeren Zellen ausgewählt sind, drücken Sie Ctrl + C Um sie zu kopieren, wählen Sie eine Zelle aus, in der Sie das paseted Ergebnis ausgeben möchten, und drücken Sie Strg + V um ausgewählte nicht leere Zellen einzufügen. Siehe Screenshot:
doc nicht leere Zelle auswählen 3

Pfeil blau rechte Blase Kopieren Sie nur nicht leere Zellen und fügen Sie sie ein

Kutools for Excel: Über 300 Funktionen, die Sie in Excel haben müssen, 30 Tage kostenlose Testversion von hier

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
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