Παρακολούθηση βίντεο - Επιλέξτε 500 κελιά/σειρές στο Excel (με ένα μόνο κλικ)
Πριν από λίγες ημέρες δούλευα με ένα σύνολο δεδομένων όπου είχα πολλά φύλλα γεμάτα δεδομένα. Έπρεπε να επιλέξω τα πρώτα 500 κελιά ταυτόχρονα από κάθε φύλλο εργασίας και να το αντιγράψω.
Στη συνέχεια έπρεπε να επικολλήσω αυτά τα δεδομένα σε ένα εργαλείο που χρησιμοποιούσα.
Τώρα δεν είναι δύσκολο να το κάνω αυτό με το χέρι, αλλά επειδή είχα πολλά φύλλα εργασίας, άρχισα να σκέφτομαι έναν πιο γρήγορο τρόπο να το κάνω αυτό.
Σε αυτό το σεμινάριο, θα σας δείξω δύο ταχύτερες μεθόδους για να το κάνετε αυτό (με και χωρίς VBA).
Επιλέξτε 500 σειρές/κελιά χρησιμοποιώντας το Όνομα πλαισίου
Υπάρχει ένα πλαίσιο ονομάτων στα αριστερά της γραμμής τύπων.
Εμφανίζει την αναφορά του ενεργού κελιού και μπορεί επίσης να χρησιμοποιηθεί για τη δημιουργία ονομάτων εύρους.
Μπορούμε επίσης να το χρησιμοποιήσουμε για να επιλέξουμε γρήγορα μια σειρά συνεχόμενων κελιών εισάγοντας απλώς την αναφορά εύρους.
Ακολουθούν τα βήματα για την επιλογή 500 κελιών με τη μία:
- Κάντε κλικ στο πλαίσιο Όνομα.
- Τύπος A1: A500.
- Πατήστε Enter.
Μόλις πατήσω το πλήκτρο Enter, θα επιλέξει τα πρώτα 500 κελιά στη στήλη.
Ακολουθούν μερικοί άλλοι τρόποι με τους οποίους μπορείτε να το χρησιμοποιήσετε:
- Για να επιλέξετε τις πρώτες 500 σειρές, χρησιμοποιήστε την αναφορά- 1: 500
- Για να επιλέξετε πρώτα 500 κελιά για τέσσερις στήλες - A1: D500
Επιλέξτε 500 σειρές/κελιά χρησιμοποιώντας VBA
Ενώ η παραπάνω μέθοδος είναι γρήγορη, με το VBA, μπορείτε εύκολα να την κάνετε δραστηριότητα με ένα κλικ.
Επιτρέψτε μου πρώτα να σας δώσω τον κωδικό που θα το κάνει αυτό:
Sub Select500Cells () Range (ActiveCell, ActiveCell.Offset (500, 0)). Επιλέξτε End Sub
Τώρα ας δούμε πού να βάλουμε αυτόν τον κώδικα και να το κάνουμε υπόθεση 1 κλικ.
- Αντιγράψτε τον παραπάνω κωδικό VBA.
- Μεταβείτε στην καρτέλα Προγραμματιστής.
- Κάντε κλικ στο Visual Basic.
- Στο πρόγραμμα επεξεργασίας VB, κάντε δεξί κλικ σε οποιοδήποτε από τα αντικείμενα του βιβλίου εργασίας.
- Μεταβείτε στην επιλογή Εισαγωγή και κάντε κλικ στην ενότητα.
- Στη μονάδα, επικολλήστε τον παραπάνω κώδικα VBA.
- Κλείστε το πρόγραμμα επεξεργασίας VB.
Ο κώδικας VBA είναι πλέον μέρος του βιβλίου εργασίας.
Εάν εκτελέσετε αυτόν τον κώδικα μακροεντολής τώρα, θα επιλέξει 500 κελιά (ξεκινώντας από το ενεργό κελί).
Τώρα για να απλοποιήσετε περαιτέρω αυτήν τη διαδικασία, μπορείτε να προσθέσετε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης (QAT).
Αυτό θα σας επιτρέψει να επιλέξετε 500 κελιά με ένα μόνο κλικ (ξεκινώντας από το ενεργό κελί).
Ακολουθούν τα βήματα για την προσθήκη της μακροεντολής VBA στο QAT:
- Κάντε κλικ στο εικονίδιο Customize Quick Access Toolbar.
- Επιλέξτε "Περισσότερες εντολές".
- Στο παράθυρο διαλόγου Επιλογές Excel, στο παράθυρο διαλόγου «Επιλογή εντολής από», επιλέξτε «Μακροεντολές».
- Κάντε κλικ στη μακροεντολή που θέλετε να προσθέσετε στο QAT.
- Κάντε κλικ στο κουμπί Προσθήκη.
- Κάντε κλικ στο OK.
Τα παραπάνω βήματα θα προσθέσουν τη μακροεντολή στο QAT.
Τώρα για να επιλέξετε 500 κελιά ταυτόχρονα, το μόνο που χρειάζεται να κάνετε είναι να επιλέξετε το πρώτο κελί και να κάνετε κλικ στη μακροεντολή στο QAT.
Ακολουθούν μερικές παραλλαγές του κώδικα μακροεντολής που μπορεί να είναι χρήσιμες.
Επιλέξτε 500 σειρές χρησιμοποιώντας VBA
Ο παρακάτω κώδικας θα επιλέξει 500 σειρές - ξεκινώντας από την ενεργή σειρά κελιού.
Sub Select500Rows () Range (ActiveCell, ActiveCell.Offset (500, 0)). EntireRow.Select End Sub
Επιλέξτε και αντιγράψτε 500 κελιά χρησιμοποιώντας VBA
Ο παρακάτω κώδικας θα αντιγράψει 500 κελιά - ξεκινώντας από το ενεργό κελί.
Sub Copy500Cells () Range (ActiveCell, ActiveCell.Offset (500, 0)). Copy End Sub
Επιλέξτε τα πρώτα 500 κελιά χρησιμοποιώντας VBA
Ο παρακάτω κώδικας θα επιλέξει πρώτα 500 κελιά - ξεκινώντας από το κελί Α1.
Sub SelectFirst500Cells () Range (Range ("A1"), Range ("A1"). Offset (500, 0)). Select End Sub
