Πώς να αντιγράψετε και να επικολλήσετε μόνο μη κενά κελιά στο Excel;
Οι περισσότεροι από εμάς ενδέχεται να υποφέρουν με αυτό το πρόβλημα, όταν αντιγράφουμε μια λίστα δεδομένων που περιέχουν ορισμένα κενά κελιά και στη συνέχεια επικολλά τα σε μια άλλη στήλη, τα κενά κελιά θα επικολληθούν επίσης. Αυτό είναι πολύ ενοχλητικό όταν δεν χρειαζόμαστε τα κενά και θέλουμε να επικολλήσουμε μόνο μη κενά κελιά. Σε αυτήν την περίπτωση, πώς θα μπορούσαμε να αντιγράψουμε και να επικολλήσουμε μόνο κενά κελιά στο Excel γρήγορα και εύκολα; Εδώ είναι μερικά γρήγορα κόλπα για να το λύσετε:
Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά με την εντολή Go To Special
Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά με δυνατότητα φίλτρου
Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά με τον τύπο Array
Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά με κώδικα VBA
Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά με Kutools for Excel 
Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά με την εντολή Go To Special
Με την Πηγαίνετε στο ειδικό εντολή, μπορείτε να επιλέξετε πρώτα όλα τα δεδομένα και, στη συνέχεια, να τα αντιγράψετε και να τα επικολλήσετε σε άλλη τοποθεσία.
1. Επιλέξτε τη λίστα δεδομένων που θέλετε να χρησιμοποιήσετε.
2. Στη συνέχεια κάντε κλικ στο κουμπί Αρχική σελίδα > Εύρεση & Επιλογή > Πηγαίνετε στο ειδικό, δείτε το στιγμιότυπο οθόνης:
3. Στην Πηγαίνετε στο ειδικό πλαίσιο διαλόγου, επιλέξτε Σταθερά επιλογή, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK, και μόνο τα κελιά τιμών έχουν επιλεγεί στη λίστα.
5. Και, στη συνέχεια, αντιγράψτε και επικολλήστε τα δεδομένα σε μια τοποθεσία που θέλετε. Και έχουν επικολληθεί μόνο οι μη κενές τιμές κελιών. Δείτε το στιγμιότυπο οθόνης:
Note: Αυτή η μέθοδος είναι διαθέσιμη μόνο για τις σταθερές, δεν εφαρμόζεται στα κελιά τύπου.
Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά με δυνατότητα φίλτρου
Η Φίλτρα Η δυνατότητα μπορεί να σας βοηθήσει να φιλτράρετε πρώτα τα μη κενά κελιά και, στη συνέχεια, μπορείτε να τα αντιγράψετε και να τα επικολλήσετε σε άλλα κελιά όπως χρειάζεστε.
2. Κλίκ ημερομηνία > Φίλτρα, δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια, κάντε κλικ στο αναπτυσσόμενο κουμπί στη δεξιά γωνία του κελιού στην επιλεγμένη λίστα και καταργήστε την επιλογή του Κενά επιλογή στο αναπτυσσόμενο μενού. Δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, όλα τα μη κενά κελιά έχουν φιλτραριστεί όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
5. Επιτέλους, μπορείτε να αντιγράψετε τα φιλτραρισμένα δεδομένα και να τα επικολλήσετε σε οποιαδήποτε τοποθεσία χρειάζεστε.
Note: Και οι δύο τιμές και οι τύποι εφαρμόζονται χρησιμοποιώντας αυτόν τον τρόπο.
Επιλέξτε μη κενά κελιά ταυτόχρονα |
| Κάντε κλικ για δωρεάν πλήρη δοκιμαστική έκδοση σε 30 ημέρες! |
 |
Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά με τον τύπο Array
Για να αντιγράψετε και να επικολλήσετε μόνο τα κενά κελιά, μπορείτε επίσης να εφαρμόσετε τον ακόλουθο τύπο πίνακα.
1. Εκτός από τα δεδομένα σας, εισαγάγετε τον ακόλουθο τύπο σε ένα κενό κελί:
=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))
Note: Στον παραπάνω τύπο, A1: A15 είναι η λίστα δεδομένων που θέλετε να χρησιμοποιήσετε. Μπορείτε να την αλλάξετε ανάλογα με τις ανάγκες σας.
2. Στη συνέχεια πατήστε Shift + Ctrl + Enter μαζί τα πλήκτρα και, στη συνέχεια, επιλέξτε το κελί B1 και σύρετε τη λαβή πλήρωσης στο εύρος που θέλετε να περιέχει αυτόν τον τύπο και έχουν εξαχθεί όλες οι μη κενές τιμές κελιών. Δείτε το στιγμιότυπο οθόνης:
3. Δεδομένου ότι είναι τύποι, όταν τα αντιγράφετε σε άλλο μέρος, θα πρέπει να τα αντιγράψετε και να τα επικολλήσετε ως τιμές.
Note: Αυτός ο τύπος είναι διαθέσιμος μόνο για τις σταθερές και δεν εφαρμόζεται στα κελιά τύπου.
Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά με κώδικα VBA
Εάν σας ενδιαφέρει ο κώδικας VBA, μπορείτε να εκτελέσετε τον ακόλουθο κώδικα για να ολοκληρώσετε αυτήν την εργασία.
1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά στο 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. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό, θα εμφανιστεί ένα πλαίσιο προτροπής που θα σας υπενθυμίζει ότι επιλέγετε το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε. Δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, θα εμφανιστεί ένα άλλο πλαίσιο προτροπής για να σας επιτρέψει να επιλέξετε ένα κελί για να βάλετε τα δεδομένα.
5. Πατήστε OK για να ολοκληρώσετε αυτόν τον κώδικα και μόνο οι μη κενές τιμές κελιών έχουν επικολληθεί στην καθορισμένη θέση σας.
Note: Αυτός ο κωδικός είναι διαθέσιμος μόνο στις σταθερές.
Αντιγράψτε και επικολλήστε μόνο μη κενά κελιά με Kutools for Excel
Υπάρχει πολύ πιο εύκολος τρόπος από πάνω; Φυσικά, Kutools for Excel's Επιλέξτε μη κενό κελίΤο βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να επιλέξετε πρώτα τα μη κενά κελιά και, στη συνέχεια, να τα αντιγράψετε και να τα επικολλήσετε.
| Kutools for Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. | ||
Μετά το δωρεάν εγκατάσταση Kutools for Excel, κάντε τα παρακάτω:
1. Επιλέξτε το εύρος κελιών και κάντε κλικ Kutools > Αγορά > Επιλέξτε μη κενά κελιά. Δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια, επιλέγονται τα μη κενά κελιά, πατήστε Ctrl + C για να τα αντιγράψετε και, στη συνέχεια, μεταβείτε για να επιλέξετε ένα κελί στο οποίο θέλετε να εξάγετε το αποτέλεσμα που έχει περάσει, πατήστε Ctrl + V για να επικολλήσετε επιλεγμένα μη κενά κελιά. Δείτε το στιγμιότυπο οθόνης:
Αντιγράψτε και επικολλήστε μόνο μη κενό κελί
| Kutools for Excel: 300+ λειτουργίες που πρέπει να έχετε στο Excel, Δωρεάν δοκιμή 30 ημερών από εδώ |
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με Kutools for Excel, και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Kutools for Excel Προσφέρει πάνω από 300 προηγμένες λειτουργίες για ενίσχυση της παραγωγικότητας και εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Office Tab Φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
