Πώς να επιλέξετε μόνο ορατά κελιά στο excel. Αντιγράψτε φιλτραρισμένα δεδομένα στο Excel. Αντιγραφή χωρίς να καταστρέψει τη μορφοποίηση
Παβλόφ Νικολάι
Σε αυτό το άρθρο θα ήθελα να σας παρουσιάσω τις πιο αποτελεσματικές τεχνικές εργασίας Microsoft Excel, που έχω συλλέξει τα τελευταία 10 χρόνια εργασίας σε έργα και διεξαγωγής εκπαιδεύσεων σε αυτό το υπέροχο πρόγραμμα. Δεν υπάρχει περιγραφή των υπερσύνθετων τεχνολογιών εδώ, αλλά υπάρχουν τεχνικές για κάθε μέρα - απλές και αποτελεσματικές, που περιγράφονται χωρίς "νερό" - μόνο "ξηρά υπολείμματα". Τα περισσότερα από αυτά τα παραδείγματα θα σας χρειαστούν όχι περισσότερο από ένα ή δύο λεπτά για να τα κατακτήσετε, αλλά θα σας βοηθήσουν να εξοικονομήσετε πολύ περισσότερα.
Μεταβείτε γρήγορα στο επιθυμητό φύλλο
Τυχαίνει να συνεργάζεστε με Βιβλία εργασίας του Excelπου αποτελείται από μεγάλο αριθμό φύλλων; Εάν υπάρχουν περισσότερες από δώδεκα από αυτές, τότε κάθε μετάβαση στο επόμενο απαιτούμενο φύλλο γίνεται ένα μικρό πρόβλημα από μόνη της. Μια απλή και κομψή λύση σε αυτό το πρόβλημα είναι να κάνετε κλικ στην κάτω αριστερή γωνία του παραθύρου στα κουμπιά για την κύλιση των καρτελών των φύλλων όχι με το αριστερό, αλλά με το δεξί κουμπί του ποντικιού - θα εμφανιστεί ένας πίνακας περιεχομένων του βιβλίου με πλήρης λίσταόλα τα φύλλα και μπορείτε να μεταβείτε στο επιθυμητό φύλλο με μία κίνηση:
Αυτό είναι πολύ πιο γρήγορο από το να κάνετε κύλιση στις καρτέλες των φύλλων χρησιμοποιώντας τα ίδια κουμπιά για να αναζητήσετε αυτό που χρειάζεστε.
Αντιγραφή χωρίς να καταστρέψει τη μορφοποίηση
Πόσες εκατοντάδες (χιλιάδες;) φορές έχω δει αυτήν την εικόνα, να στέκεται πίσω από τους μαθητές μου κατά τη διάρκεια των προπονήσεων: ο χρήστης εισάγει έναν τύπο στο πρώτο κελί και στη συνέχεια τον «τεντώνει» σε ολόκληρη τη στήλη, παραβιάζοντας τη μορφοποίηση των παρακάτω σειρών, αφού αυτή η μέθοδος αντιγράφει όχι μόνο τον τύπο, αλλά και τη μορφή κελιού. Αντίστοιχα, θα πρέπει στη συνέχεια να διορθώσετε χειροκίνητα τη ζημιά. Ένα δευτερόλεπτο για να αντιγράψετε και μετά 30 για να επισκευάσετε ένα σχέδιο που έχει καταστραφεί από την αντιγραφή.
Ξεκινώντας με το Excel 2002, υπάρχει μια λύση σε αυτό το πρόβλημα που είναι απλή και κομψή. Αμέσως μετά την αντιγραφή (σύροντας) του τύπου σε ολόκληρη τη στήλη, πρέπει να χρησιμοποιήσετε μια έξυπνη ετικέτα - ένα μικρό εικονίδιο που εμφανίζεται προσωρινά στην κάτω δεξιά γωνία του εύρους. Κάνοντας κλικ σε αυτό θα εμφανιστεί μια λίστα πιθανές επιλογέςαντιγραφή, όπου μπορείτε να επιλέξετε Συμπλήρωση χωρίς μορφοποίηση. Σε αυτήν την περίπτωση, οι τύποι αντιγράφονται, αλλά η μορφοποίηση δεν είναι:
Αντιγραφή μόνο ορατών κελιών
Εάν εργάζεστε στο Microsoft Excel για περισσότερο από μία εβδομάδα, πρέπει να έχετε ήδη αντιμετωπίσει ένα παρόμοιο πρόβλημα: σε ορισμένες περιπτώσεις, κατά την αντιγραφή και επικόλληση κελιών, εισάγονται περισσότερα κελιά από αυτά που αντιγράφηκαν με την πρώτη ματιά. Αυτό μπορεί να συμβεί εάν το αντιγραμμένο εύρος περιλάμβανε κρυφές σειρές/στήλες, ομαδοποιήσεις, υποσύνολα ή φιλτράρισμα. Ας πάρουμε ως παράδειγμα μία από αυτές τις περιπτώσεις:
Σε αυτόν τον πίνακα, υπολογίζονται τα υποσύνολα και οι σειρές ομαδοποιούνται ανά πόλη - αυτό είναι εύκολο να γίνει κατανοητό από τα κουμπιά συν-πλην στα αριστερά του πίνακα και από τις διακοπές στην αρίθμηση των ορατών σειρών. Εάν επιλέξουμε, αντιγράψουμε και επικολλήσουμε δεδομένα από αυτόν τον πίνακα με τον συνηθισμένο τρόπο, θα καταλήξουμε σε 24 επιπλέον σειρές. Θέλουμε μόνο να αντιγράψουμε και να επικολλήσουμε τα αποτελέσματα!
Μπορείτε να λύσετε το πρόβλημα επιλέγοντας προσεκτικά κάθε σειρά των συνόλων κρατώντας πατημένο το πλήκτρο CTRL - όπως θα κάνατε για την επιλογή μη γειτονικών περιοχών. Τι γίνεται όμως αν δεν υπάρχουν τρεις ή πέντε τέτοιες γραμμές, αλλά αρκετές εκατοντάδες ή χιλιάδες; Υπάρχει ένας άλλος, πιο γρήγορος και πιο βολικός τρόπος:
Επιλέξτε το εύρος προς αντιγραφή (στο παράδειγμά μας είναι A1:C29)
Πατήστε το πλήκτρο F5 στο πληκτρολόγιό σας και μετά το κουμπί Επιλογή στο παράθυρο που ανοίγει.
Θα εμφανιστεί ένα παράθυρο που επιτρέπει στον χρήστη να επιλέξει όχι τα πάντα στη σειρά, αλλά μόνο τα απαραίτητα κελιά:
Σε αυτό το παράθυρο, επιλέξτε την επιλογή Visible cell only και κάντε κλικ στο OK.
Η επιλογή που προκύπτει μπορεί τώρα να αντιγραφεί και να επικολληθεί με ασφάλεια. Ως αποτέλεσμα, θα λάβουμε ένα αντίγραφο ακριβώς ορατά κύτταρακαι εισάγουμε αντί για τις περιττές 29 μόνο τις 5 γραμμές που χρειαζόμαστε.
Εάν υποψιάζεστε ότι θα πρέπει να εκτελείτε συχνά μια τέτοια λειτουργία, τότε είναι λογικό να προσθέσετε ένα κουμπί στη γραμμή εργαλείων του Microsoft Excel για να καλέσετε γρήγορα μια τέτοια λειτουργία. Αυτό μπορεί να γίνει μέσω του μενού Εργαλεία> Προσαρμογή, μετά μεταβείτε στην καρτέλα Εντολές, στην κατηγορία Επεξεργασία, βρείτε το κουμπί Επιλογή ορατών κελιών και σύρετέ το στη γραμμή εργαλείων με το ποντίκι:
Μετατροπή γραμμών σε στήλες και πάλι πίσω
Μια απλή λειτουργία, αλλά αν δεν ξέρετε πώς να το κάνετε σωστά, μπορείτε να αφιερώσετε μισή μέρα σύροντας μεμονωμένα κελιά με μη αυτόματο τρόπο:
Στην πραγματικότητα είναι απλό. Σε αυτό το τμήμα των ανώτερων μαθηματικών που περιγράφει πίνακες, υπάρχει η έννοια της μεταφοράς - μια ενέργεια που ανταλλάσσει γραμμές και στήλες σε έναν πίνακα μεταξύ τους. Στο Microsoft Excel, αυτό υλοποιείται σε τρία βήματα: Αντιγράψτε τον πίνακα
Κάντε δεξί κλικ σε ένα κενό κελί και επιλέξτε Ειδική επικόλληση.
Στο παράθυρο που ανοίγει, ελέγξτε τη σημαία Transpose και κάντε κλικ στο OK:
Προσθέστε γρήγορα δεδομένα σε ένα γράφημα
Ας φανταστούμε μια απλή κατάσταση: έχετε μια αναφορά για τον προηγούμενο μήνα με ένα οπτικό διάγραμμα. Ο στόχος είναι να προσθέσετε νέα αριθμητικά δεδομένα στο γράφημα για αυτόν τον μήνα. Ο κλασικός τρόπος για να το λύσετε αυτό είναι να ανοίξετε το παράθυρο προέλευσης δεδομένων για το γράφημα, όπου προσθέτετε μια νέα σειρά δεδομένων εισάγοντας το όνομά της και επισημαίνοντας το εύρος με τα επιθυμητά δεδομένα. Επιπλέον, αυτό είναι συχνά πιο εύκολο να ειπωθεί παρά να γίνει - όλα εξαρτώνται από την πολυπλοκότητα του διαγράμματος.
Ένας άλλος τρόπος - απλός, γρήγορος και όμορφος - είναι να επιλέξετε τα κελιά με νέα δεδομένα, να τα αντιγράψετε (CTRL+C) και να επικολλήσετε (CTRL+V) απευθείας στο γράφημα. Το Excel 2003, σε αντίθεση με τις νεότερες εκδόσεις, υποστηρίζει ακόμη και τη δυνατότητα μεταφοράς μιας επιλεγμένης περιοχής κελιών δεδομένων και απόθεσης απευθείας στο γράφημα χρησιμοποιώντας το ποντίκι!
Εάν θέλετε να ελέγξετε όλες τις αποχρώσεις και τις λεπτές αποχρώσεις, τότε μπορείτε να χρησιμοποιήσετε όχι μια κανονική, αλλά μια ειδική επικόλληση επιλέγοντας Επεξεργασία> Ειδική επικόλληση από το μενού. Σε αυτήν την περίπτωση, το Microsoft Excel θα εμφανίσει ένα παράθυρο διαλόγου που σας επιτρέπει να ρυθμίσετε πού και πώς ακριβώς θα προστεθούν τα νέα δεδομένα:
Ομοίως, μπορείτε εύκολα να δημιουργήσετε ένα γράφημα χρησιμοποιώντας δεδομένα από διαφορετικούς πίνακες από διαφορετικά φύλλα. Η εκτέλεση της ίδιας εργασίας με τον κλασικό τρόπο θα χρειαστεί πολύ περισσότερο χρόνο και προσπάθεια.
Γέμισμα κενών κελιών
Μετά τη λήψη αναφορών από ορισμένα προγράμματα σε μορφή Excel ή κατά τη δημιουργία συγκεντρωτικών πινάκων, οι χρήστες λαμβάνουν συχνά πίνακες με κενά κελιά σε ορισμένες στήλες. Αυτές οι παραλείψεις δεν σας επιτρέπουν να εφαρμόσετε οικεία και βολικά εργαλεία όπως το αυτόματο φίλτρο και η ταξινόμηση σε πίνακες. Φυσικά, υπάρχει ανάγκη να γεμίσουμε τα κενά με τιμές από κελιά υψηλότερου επιπέδου:
Φυσικά, με έναν μικρό όγκο δεδομένων, αυτό μπορεί να γίνει εύκολα με απλή αντιγραφή - σύροντας με μη αυτόματο τρόπο κάθε κελί κεφαλίδας στη στήλη Α προς τα κάτω στα κενά κελιά. Τι γίνεται αν ο πίνακας έχει αρκετές εκατοντάδες ή χιλιάδες σειρές και πολλές δεκάδες πόλεις;
Υπάρχει ένας τρόπος να λυθεί αυτό το πρόβλημα γρήγορα και όμορφα χρησιμοποιώντας έναν τύπο:
Επιλέξτε όλα τα κελιά σε μια στήλη με κενά κενά (δηλαδή εύρος A1:A12 στην περίπτωσή μας)
Για να διατηρήσετε μόνο κενά κελιά στην επιλογή, πατήστε το πλήκτρο F5 και στο παράθυρο πλοήγησης που ανοίγει, πατήστε το κουμπί Επιλογή. Θα δείτε ένα παράθυρο που σας επιτρέπει να επιλέξετε ποια κελιά θέλουμε να επιλέξουμε:
Ρυθμίστε το διακόπτη στο Blank και κάντε κλικ στο OK. Τώρα μόνο άδεια κελιά πρέπει να παραμείνουν στην επιλογή:
Χωρίς αλλαγή της επιλογής, π.χ. Χωρίς να αγγίξετε το ποντίκι, εισαγάγετε τον τύπο στο πρώτο επιλεγμένο κελί (A2). Πατήστε το σύμβολο ίσου στο πληκτρολόγιό σας και μετά το επάνω βέλος. Λαμβάνουμε έναν τύπο που αναφέρεται στο προηγούμενο κελί:
Για να εισαγάγετε τον τύπο που δημιουργήθηκε σε όλα τα επιλεγμένα κενά κελιά ταυτόχρονα, πατήστε όχι το πλήκτρο ENTER, αλλά το συνδυασμό CTRL + ENTER. Ο τύπος θα γεμίσει όλα τα κενά κελιά:
Τώρα το μόνο που μένει είναι να αντικαταστήσουμε τους τύπους με τιμές για την καταγραφή των αποτελεσμάτων. Επιλέξτε το εύρος A1:A12, αντιγράψτε το και επικολλήστε τις τιμές τους στα κελιά χρησιμοποιώντας την ειδική επικόλληση.
Αναπτυσσόμενη λίστα σε ένα κελί
Μια τεχνική που, χωρίς υπερβολές, πρέπει να γνωρίζουν όλοι όσοι εργάζονται στο Excel. Η χρήση του μπορεί να βελτιώσει σχεδόν κάθε τραπέζι, ανεξάρτητα από τον σκοπό του. Σε όλες τις προπονήσεις προσπαθώ να το δείξω στους μαθητές μου την πρώτη μέρα.
Η ιδέα είναι πολύ απλή - σε όλες τις περιπτώσεις που πρέπει να εισαγάγετε δεδομένα από οποιοδήποτε σύνολο, αντί να εισάγετε χειροκίνητα ένα κελί από το πληκτρολόγιο, επιλέξτε την επιθυμητή τιμή με το ποντίκι από την αναπτυσσόμενη λίστα:
Επιλέγοντας ένα προϊόν από τον τιμοκατάλογο, το όνομα του πελάτη από τη βάση δεδομένων πελατών, το πλήρες όνομα του υπαλλήλου από τον πίνακα προσωπικού κ.λπ. Υπάρχουν πολλές επιλογές για τη χρήση αυτής της λειτουργίας.
Για να δημιουργήσετε μια αναπτυσσόμενη λίστα σε ένα κελί:
Επιλέξτε τα κελιά στα οποία θέλετε να δημιουργήσετε μια αναπτυσσόμενη λίστα.
Εάν έχετε Excel 2003 ή παλαιότερο, επιλέξτε Data>Validation από το μενού. Εάν έχετε Excel 2007/2010, μεταβείτε στην καρτέλα Δεδομένα και κάντε κλικ στο κουμπί Επικύρωση δεδομένων.
Στο παράθυρο που ανοίγει, επιλέξτε την επιλογή Λίστα από την αναπτυσσόμενη λίστα.
Στο πεδίο Πηγή, πρέπει να καθορίσετε τις τιμές που πρέπει να βρίσκονται στη λίστα. Εδώ είναι οι πιθανές επιλογές:
Εισαγάγετε επιλογές κειμένου σε αυτό το πεδίο διαχωρισμένες με ερωτηματικά
Εάν το εύρος των κελιών με τις αρχικές τιμές βρίσκεται στο τρέχον φύλλο, πρέπει απλώς να το επιλέξετε με το ποντίκι.
Εάν βρίσκεται σε άλλο φύλλο αυτού του βιβλίου εργασίας, τότε θα πρέπει να του δώσετε ένα όνομα εκ των προτέρων (επιλέξτε κελιά, πατήστε CTRL+F3, εισαγάγετε το όνομα της περιοχής χωρίς κενά) και, στη συνέχεια, γράψτε αυτό το όνομα στο πεδίο
Εάν ορισμένα κελιά, σειρές ή στήλες σε ένα φύλλο εργασίας δεν είναι ορατά, μπορείτε να αντιγράψετε όλα τα κελιά (ή μόνο τα ορατά κελιά). Από προεπιλογή, το Excel αντιγράφει όχι μόνο ορατά κελιά, αλλά και κρυφά ή φιλτραρισμένα κελιά. Εάν θέλετε να αντιγράψετε μόνο ορατά κελιά, ακολουθήστε τα παρακάτω βήματα. Για παράδειγμα, μπορείτε να αντιγράψετε μόνο συνοπτικά δεδομένα από ένα δομημένο φύλλο εργασίας.
Ακολουθήστε τα παρακάτω βήματα.
Σημείωση:Όταν αντιγράφετε, οι τιμές εισάγονται διαδοχικά σε γραμμές και στήλες. Εάν η περιοχή επικόλλησης περιέχει κρυφές σειρές ή στήλες, ίσως χρειαστεί να τις αποκρύψετε για να δείτε όλα τα δεδομένα που αντιγράψατε.
Όταν αντιγράφετε και επικολλάτε ορατά κελιά σε μια περιοχή δεδομένων που περιέχει κρυφά κελιά ή στην οποία έχει εφαρμοστεί ένα φίλτρο, μπορεί να παρατηρήσετε ότι τα κρυφά κελιά επικολλούνται μαζί με τα ορατά κελιά. Δυστυχώς, δεν μπορείτε να αλλάξετε αυτήν τη ρύθμιση όταν αντιγράφετε και επικολλάτε μια σειρά κελιών στο Excel για τον ιστό, επειδή η επικόλληση μόνο ορατών κελιών δεν είναι διαθέσιμη.
Ωστόσο, εάν μορφοποιήσετε τα δεδομένα σας ως πίνακα και εφαρμόσετε ένα φίλτρο, μπορείτε να αντιγράψετε και να επικολλήσετε μόνο τα ορατά κελιά.
Εάν δεν χρειάζεται να μορφοποιήσετε τα δεδομένα ως πίνακα και να έχετε εγκαταστήσει το κλασικό εφαρμογή Excel, μπορείτε να ανοίξετε ένα βιβλίο εργασίας σε αυτό για να αντιγράψετε και να επικολλήσετε ορατά κελιά. Για να το κάνετε αυτό, κάντε κλικ στο κουμπί Ανοίξτε στο Excelκαι ακολουθήστε τα βήματα στην ενότητα Αντιγραφή και επικόλληση μόνο ορατών κελιών.
Επιπλέον πληροφορίες
Μπορείτε πάντα να κάνετε μια ερώτηση σε έναν ειδικό του Excel Tech Community, να ζητήσετε βοήθεια στην κοινότητα Απαντήσεις και επίσης να προτείνετε νέο χαρακτηριστικόή βελτίωση στον ιστότοπο
Επικόλληση μόνο σε ορατές γραμμές μέσαΠροέχωαριθμοί, τύποι, κείμενο μπορούν να γίνουν με διάφορους τρόπους. Όταν χρειάζεται να εισαγάγετε αριθμούς, τύπους, κείμενο όχι σε όλες τις σειρές του πίνακα, μπορείτε να χρησιμοποιήσετε ένα φίλτρο. Πώς να εγκαταστήσετε ένα φίλτρο και πώς να φιλτράρετε στο Excel, ανατρέξτε στο άρθρο "Φίλτρο στο Excel". Αλλά για να εισαγάγετε δεδομένα μόνο σε ορατά κελιά, χρειάζεστε τις δικές σας μεθόδους, ειδικά εάν υπάρχουν πολλές σειρές.
Ο πρώτος τρόπος είναισυνήθης .
Ας πάρουμε έναν τέτοιο πίνακα. Ο πίνακας θα είναι ίδιος για όλα τα παραδείγματα.
Ας χρησιμοποιήσουμε ένα φίλτρο για να αφαιρέσουμε όλα τα ψηφία 2 από τον πίνακα. Στα υπόλοιπα ορατά κελιά βάζουμε τον αριθμό 600. Στο κελί Β2 βάζουμε τον αριθμό 600 και μετά τον αντιγράφουμε στη στήλη (τραβήξτε την κάτω δεξιά γωνία του κελιού Β2). Οι τιμές αντιγράφηκαν μόνο σε ορατά κελιά. Μπορείτε επίσης να εισάγετε τύπους με τον ίδιο τρόπο. Γράφουμε τον παρακάτω τύπο στο κελί C2. =A2*10
Αποδείχθηκε έτσι. 
Ας ακυρώσουμε το φίλτρο. Το αποτέλεσμα είναι ένας πίνακας σαν αυτόν.
Ο τύπος και οι αριθμοί εισήχθησαν μόνο στις φιλτραρισμένες σειρές.
Δεύτερος τρόπος.
Θα φιλτράρουμε επίσης τα δεδομένα. Στο πρώτο κελί γράφουμε έναν αριθμό, τύπο, κείμενο κ.λπ. Τώρα, εάν υπάρχουν χιλιάδες σειρές, επιλέξτε τα κελιά ως εξής: πατήστε τα πλήκτρα "Ctrl" + "Shift" + το κουμπί κάτω βέλους (ή το κουμπί επάνω, ανάλογα με το πού θέλουμε να επιλέξουμε τα κελιά - κάτω ή πάνω το κελί στο οποίο γράφτηκε ο αριθμός) .
Τώρα, ή πατήστε το συνδυασμό πλήκτρων "Ctrl" + G ή το πλήκτρο F5. Θα εμφανιστεί το πλαίσιο διαλόγου Μετάβαση. Κάντε κλικ στο κουμπί "Επιλογή...". Και, στο νέο πλαίσιο διαλόγου "Επιλογή ομάδας κελιών", επιλέξτε το πλαίσιο δίπλα στις λέξεις "Μόνο ορατά κελιά".
Κάντε κλικ στο "OK". Στη συνέχεια τοποθετήστε ως συνήθως.
Ένας άλλος τρόπος για να εμφανίσετε το παράθυρο διαλόγου Επιλογή ομάδας κελιών.Στην καρτέλα "Αρχική σελίδα", στην ενότητα "Επεξεργασία", κάντε κλικ στο κουμπί "Εύρεση και επιλογή". Στη λίστα που εμφανίζεται, κάντε κλικ στη συνάρτηση «Επιλογή ομάδας κελιών».
Προς την γεμίστε ορατά κελιά σε επιλεγμένα Στήλες του Excel , πατήστε το συνδυασμό πλήκτρων "Ctrl" + D. Και όλες οι επιλεγμένες στήλες θα γεμίσουν με δεδομένα ή έναν τύπο, όπως στο πρώτο κελί. Στο παράδειγμά μας, γράψαμε τον αριθμό 800 στο κελί D2, στήλη D.
Τρίτος τρόπος.
Σε μια νέα στήλη (στο παράδειγμά μας, στήλη Ε), επιλέξτε τα κελιά. Πατήστε το πλήκτρο F5. Θα εμφανιστεί το πλαίσιο διαλόγου Μετάβαση. Κάντε κλικ στο κουμπί "Επιλογή...". Και, στο νέο πλαίσιο διαλόγου "Επιλογή ομάδας κελιών", επιλέξτε το πλαίσιο δίπλα στις λέξεις "Μόνο ορατά κελιά". Κάντε κλικ στο "OK". Τώρα, χωρίς να ακυρώσετε την επιλογή, στο πρώτο κελί της στήλης (το δικό μας είναι το E2), εισάγετε έναν τύπο, έναν αριθμό κ.λπ. Πατήστε το συνδυασμό πλήκτρων "Ctrl" + "Enter".
Λίστες και εύρη (5)
Μακροεντολές (διαδικασίες VBA) (63)
Διάφορα (39)
Σφάλματα και δυσλειτουργίες του Excel (4)
Πώς να επικολλήσετε τα αντιγραμμένα κελιά μόνο σε ορατά/φιλτραρισμένα κελιά
Σε γενικές γραμμές, το νόημα του άρθρου, νομίζω, είναι ήδη ξεκάθαρο από τον τίτλο. Απλά θα το επεκτείνω λίγο.
Δεν είναι μυστικό ότι το Excel σάς επιτρέπει να επιλέγετε μόνο ορατές σειρές (για παράδειγμα, εάν κάποια από αυτά είναι κρυφά ή έχει εφαρμοστεί φίλτρο).
Έτσι, εάν αντιγράψετε μόνο ορατά κελιά με αυτόν τον τρόπο, θα αντιγραφούν όπως αναμένεται. Αλλά όταν προσπαθείτε να επικολλήσετε κάτι που έχει αντιγραφεί σε μια φιλτραρισμένη περιοχή (ή που περιέχει κρυφές σειρές), το αποτέλεσμα της επικόλλησης δεν θα είναι ακριβώς αυτό που περιμένατε. Τα δεδομένα θα εισαχθούν ακόμη και σε κρυφές σειρές.
Αντιγράψτε ένα εύρος κελιών και επικολλήστε μόνο σε ορατά
Για να εισαγάγετε δεδομένα μόνο σε ορατά κελιά, μπορείτε να χρησιμοποιήσετε την ακόλουθη μακροεντολή:
| Επιλογή Ακριβές Dim rCopyRange As Range «Με αυτή τη μακροεντολή αντιγράφουμε τα δεδομένα Sub My_Copy() If Selection.Count > 1 Τότε ορίστε rCopyRange = Selection.SpecialCells(xlVisible) Else : Ορίστε rCopyRange = ActiveCell End If End Sub "Με αυτήν τη μακροεντολή εισάγουμε δεδομένα ξεκινώντας από το επιλεγμένο κελί Sub My_Paste() Εάν το rCopyRange δεν είναι τίποτα, τότε βγείτε από το Sub If rCopyRange.Areas.Count > 1 Τότε MsgBox "Το επικολλημένο εύρος δεν πρέπει να περιέχει περισσότερες από μία περιοχές!",vbCritical, "Μη έγκυρο εύρος": Έξοδος Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = rCpyolR = -4135 To .Columns.Count li = 0: lCount = 0: le = iCol - 1 Για κάθε rCell στο rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset (li, le).EntireRow.Hidden = False Στη συνέχεια rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop while lCount >= rCell.Row - rCopyRange.Cells(1 ).Σειρά Επόμενη rCell Next iCol Application.ScreenUpdating = True : Application.Calculation = iCalculation End Sub |
Option Explicit Dim rCopyRange As Range "Χρησιμοποιήστε αυτήν τη μακροεντολή για να αντιγράψετε τα δεδομένα Sub My_Copy() If Selection.Count > 1 then Set rCopyRange = Selection.SpecialCells(xlVisible) Else: Set rCopyRange = ActiveCell End If End Sub "Χρησιμοποιήστε αυτήν τη μακροεντολή για επικόλληση τα δεδομένα που ξεκινούν από τα επιλεγμένα κελιά Sub My_Paste() Εάν rCopyRange δεν είναι τίποτα, τότε Έξοδος Sub If rCopyRange.Areas.Count > 1 Τότε MsgBox "Το επικολλημένο εύρος δεν πρέπει να περιέχει περισσότερες από μία περιοχές!", vbCritical, "Invalid range": Exit Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 Για iCollumRsange = 1 έως r. .Count li = 0: lCount = 0: le = iCol - 1 για κάθε rCell στο rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset(li , le).EntireRow.Hidden = False Στη συνέχεια rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop while lCount >= rCell.Row - rCopyRange.Cells(1). Σειρά Επόμενη rCell Next iCol Application.ScreenUpdating = True: Application.Calculation = iCalculation End Sub
Για να ολοκληρώσετε την εικόνα, είναι προτιμότερο να αντιστοιχίσετε αυτές τις μακροεντολές σε πλήκτρα συντόμευσης (στους παρακάτω κωδικούς, αυτό γίνεται αυτόματα όταν ανοίγετε ένα βιβλίο με τον κωδικό). Για να το κάνετε αυτό, πρέπει απλώς να αντιγράψετε τους παρακάτω κωδικούς στη μονάδα Αυτό το βιβλίο (Αυτό το βιβλίο εργασίας) :
Ρητή επιλογή "Ακυρώστε την εκχώρηση πλήκτρων πρόσβασης πριν κλείσετε το βιβλίο εργασίας Ιδιωτικό δευτερεύον βιβλίο εργασίας_BeforeClose(Cancel As Boolean) Application.OnKey "^q": Application.OnKey "^w" End Sub "Εκχώρηση πλήκτρων πρόσβασης κατά το άνοιγμα του βιβλίου εργασίας Private Sub Workbookp_Open() .OnKey "^q", "My_Copy": Application.OnKey "^w", "My_Paste" End Sub
Τώρα μπορείτε να αντιγράψετε το επιθυμητό εύρος πατώντας τα πλήκτρα Ctrl + q και τοποθετήστε το στο φιλτραρισμένο - Ctrl + w .
Λήψη παραδείγματος
(46,5 KiB, 9.622 λήψεις)
Αντιγράψτε μόνο ορατά κελιά και επικολλήστε μόνο σε ορατά
Μετά από αίτημα των επισκεπτών του ιστότοπου, αποφάσισα να βελτιωθώ αυτή τη διαδικασία. Είναι πλέον δυνατή η αντιγραφή οποιωνδήποτε περιοχών: με κρυφές σειρές, κρυφές στήλες και επικόλληση αντιγραμμένων κελιών επίσης σε οποιεσδήποτε περιοχές: με κρυφές σειρές, κρυφές στήλες. Λειτουργεί ακριβώς το ίδιο με το προηγούμενο: πατώντας πλήκτρα Ctrl
+
q
αντιγράψτε το επιθυμητό εύρος (με κρυφές/φιλτραρισμένες γραμμές και στήλες ή μη κρυφές)και επικολλήστε με μια συντόμευση πληκτρολογίου Ctrl
+
w
. Η εισαγωγή πραγματοποιείται επίσης σε κρυφές/φιλτραρισμένες σειρές και στήλες ή χωρίς κρυφές.
Εάν η αντιγραμμένη περιοχή περιέχει τύπους, τότε για να αποφύγετε τη μετατόπιση αναφοράς, μπορείτε να αντιγράψετε μόνο τις τιμές κελιών - δηλ. Κατά την εισαγωγή τιμών, δεν θα εισαχθούν τύποι, αλλά το αποτέλεσμα του υπολογισμού τους. Ή εάν είναι απαραίτητο να διατηρηθούν οι μορφές των κελιών στα οποία γίνεται η εισαγωγή, θα αντιγραφούν και θα επικολληθούν μόνο οι τιμές των κελιών. Για να το κάνετε αυτό, πρέπει να αντικαταστήσετε τη γραμμή στον κώδικα (στο παρακάτω αρχείο):
| rCell.Copy rResCell.Offset(lr, lc) |
rCell.Copy rResCell.Offset(lr, lc)
σ 'αυτό:
| rResCell.Offset(lr, lc) = rCell.Value |
rResCell.Offset(lr, lc) = rCell.Value
Και οι δύο αυτές γραμμές υπάρχουν στο παρακάτω αρχείο, απλά πρέπει να αφήσετε αυτή που είναι πιο κατάλληλη για τις εργασίες σας.
Λήψη παραδείγματος:
(54,5 KiB, 7.928 λήψεις)
Δείτε επίσης:
[]
("Κάτω γραμμή":("textstyle":"static","textpositionstatic":"bottom","textautohide":true,"textpositionmarginstatic":0,"textpositiondynamic":"bottomleft","textpositionmarginleft":24," textpositionmarginright":24,"textpositionmargintop":24,"textpositionmarginbottom":24,"texteffect":"slide","texteffecteasing":"easeOutCubic","texteffectduration":600,"texteffectslidedirection":"αριστερά","texteffects" :30,"texteffectdelay":500,"texteffectseparate":false,"texteffect1":"slide","texteffectslidedirection1":"right","texteffectslidedistance1":120,"texteffecteasing1":"easeOutCubic,"texteffectslidedirection1"t "texteffectdelay1":1000,"texteffect2":"slide", "texteffectslidedirection2":"right", "texteffectslidedistance2":120,"texteffecteasing2":"easeOutCubic","texteffectduration2":600"texteffectslidedirection2":600"text textcss":"display:block; padding:12px; text-align:left;","textbgcss":"display:block; position:absolute; top:0px; left:0px; πλάτος:100%; ύψος:100% ; background-color:#333333; opacity:0.6; filter:alpha(opacity=60);","titlecss":"display:block; θέση:συγγενής; γραμματοσειρά:bold 14px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; color:#fff;","descriptioncss":"display:block; θέση:συγγενής; γραμματοσειρά:12px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; color:#fff; margin-top:8px;","buttoncss":"display:block; θέση:συγγενής; margin-top:8px;","texteffectresponsive":true,"texteffectresponsivesize":640,"titlecssresponsive":"μέγεθος γραμματοσειράς:12px;","descriptioncssresponsive":"display:none !important;","buttoncssresponsive" "","addgooglefonts":false,"googlefonts":"","textleftrightpercentforstatic":40))
Η επιλογή δεδομένων στο Excel πραγματοποιήθηκε με χρήση φίλτρου ή ταξινόμησης. Τώρα πρέπει να εκτυπωθούν ή να μετακινηθούν σε άλλη τοποθεσία. Αντιγραφή στο Excelέχει ρυθμιστεί έτσι ώστε να αντιγράφονται και τα κρυφά κελιά.
Ας εξετάσουμε δύο τρόπους, Προς την
Πώς να αντιγράψετε φιλτραρισμένες σειρές στο Excel.
Πρώτος τρόπος.
Υπάρχει μια εξαιρετική λειτουργία στο Excel - Επικόλληση ειδικής συνάρτησης στο Excel.
Έχουμε λοιπόν ένα τραπέζι.
Πώς να εγκαταστήσετε ένα φίλτρο, δείτε το άρθρο "Φιλτράρισμα στο Excel".
Χρησιμοποιούμε ένα φίλτρο για να αφαιρέσουμε όλα τα Ivanov από τη λίστα. Αποδείχθηκε έτσι.
Επιλέξτε τον πίνακα και κάντε κλικ στο «Αντιγραφή» στο μενού περιβάλλοντος. Κάντε αριστερό κλικ στο κελί A9 και επιλέξτε "τιμές" στο μενού περιβάλλοντος.
Κάντε κλικ στο "OK". Voila. Δεν αντιγράφηκε μόνο η τιμή των ορατών σειρών, αλλά και η μορφή των κελιών.
Υπάρχει μια απόχρωση- εισάγετε φιλτραρισμένα δεδομένα όχι στις σειρές όπου βρίσκεται το φίλτρο. Για παράδειγμα, στο παράδειγμά μας - όχι στις γραμμές 1-7, αλλά κάτω ή σε άλλο φύλλο κ.λπ. Αν εισάγουμε στις σειρές όπου βρίσκεται το φίλτρο, τότε τα φιλτραρισμένα δεδομένα θα εισαχθούν και στις σειρές που κρύβει το φίλτρο. Σε γενικές γραμμές, θα αποδειχθεί χάος. 
Δεύτερος τρόπος.
Ο πίνακας είναι ίδιος. Επιλέξτε τον πίνακα με φιλτραρισμένα δεδομένα. Στην καρτέλα "Αρχική σελίδα", κάντε κλικ στην ενότητα "Επεξεργασία". Εύρεση και επισήμανση συναρτήσεων στο Excel. Στη συνέχεια, κάντε κλικ στο κουμπί "Μετάβαση". Στο παράθυρο διαλόγου που εμφανίζεται, κάντε κλικ στο κουμπί "Επιλογή...". Στο παράθυρο "Επιλογή ομάδας κελιών", επιλέξτε το πλαίσιο δίπλα στο "μόνο ορατά κελιά". Κάντε κλικ στο "OK". Τώρα στον ίδιο επιλεγμένο πίνακα με το δεξί ποντίκι καλούμε κατάλογος συμφραζόμενων. Κάντε κλικ στη λειτουργία «Αντιγραφή». Σε μια νέα θέση (στο παράδειγμά μας, αυτό είναι το κελί A15), κάντε κλικ στην επιλογή "Εισαγωγή". Ολα. Αποδείχθηκε έτσι.
Πώς, χωρίς αντιγραφή, αμέσως εκτύπωση δεδομένων φίλτρου στο excel, δείτε το άρθρο "Σελιδοδείκτης Φύλλο Excel"Διάταξη σελίδας""
