Μετάβαση στο κύριο περιεχόμενο

Πώς να αποεπιλέξετε γρήγορα κελιά από επιλεγμένες περιοχές στο Excel;

Ας υποθέσουμε ότι πρέπει να αποεπιλέξετε ορισμένα κελιά ή εύρη από τις τρέχουσες επιλογές, πρέπει να αποεπιλέξετε ολόκληρη την επιλογή και να επανεπιλέξετε ξανά, επειδή το Excel δεν προσφέρει έναν τρόπο για να αποεπιλέξετε τα κελιά μετά την επιλογή τους. Και αυτό το άρθρο θα παραθέσει κάποιες δύσκολες οδηγίες για την αποεπιλογή τμήματος κελιών ή περιοχών από την τρέχουσα επιλογή.

Αποεπιλέξτε μέρος κελιών ή εύρος από επιλογή με κωδικό VBA

Αποεπιλέξτε μέρος κελιών ή εύρος από την επιλογή με το Kutools για Excel

Για παράδειγμα, έχετε επιλέξει πολλά κελιά, αλλά τώρα διαπιστώνετε ότι υπάρχουν μερικά κελιά που δεν θέλετε. Επομένως, πρέπει να τα αποεπιλέξετε και να αφήσετε άλλα επιλεγμένα κελιά, δείτε τα ακόλουθα στιγμιότυπα οθόνης:


βέλος μπλε δεξιά φούσκα Αποεπιλέξτε μέρος κελιών ή εύρος από επιλογή με κωδικό VBA

Το VBA είναι ένας φανταστικός τρόπος αντιμετώπισης ορισμένων λειτουργιών στο Excel που δεν είναι εύκολο με τις εντολές του Excel. Το ίδιο ισχύει και για την αποεπιλογή κελιών ή εύρους.

Βήμα 1: Επιλέξτε το εύρος με το οποίο θα εργαστείτε.

Βήμα 2: Κάντε κλικ σε ένα κελί στην επιλογή που θέλετε να αποεπιλέξετε κρατώντας πατημένο το Ctrl κλειδί.

Βήμα 3: Κρατήστε πατημένο το άλλος + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

Βήμα 4: Κάντε κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο παράθυρο της ενότητας.

VBA για την αποεπιλογή ενεργού κελιού από την επιλογή

Sub UnSelectCell()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set DeleteRng = Application.InputBox("Delete Range", xTitleId, Type:=8)
For Each rng In InputRng
    If Application.Intersect(rng, DeleteRng) Is Nothing Then
        If OutRng Is Nothing Then
            Set OutRng = rng
        Else
            Set OutRng = Application.Union(OutRng, rng)
        End If
    End If
Next
OutRng.Select
End Sub

Βήμα 5: Πάτα το F5 κλειδί για την εκτέλεση αυτής της μακροεντολής. Στη συνέχεια, εμφανίζεται ένας διάλογος για να επιλέξετε ένα εύρος εργασίας. Δείτε στιγμιότυπα οθόνης:




Βήμα 6: Στη συνέχεια κάντε κλικ στο κουμπί OK, εμφανίζεται ένας άλλος διάλογος για να αποεπιλέξετε κελιά στην περιοχή. Και αν θέλετε να αποεπιλέξετε περισσότερα από ένα κελιά στο εύρος, μπορείτε να το κρατήσετε Ctrl κουμπί για να τα επιλέξετε ένα προς ένα. Δείτε το στιγμιότυπο οθόνης:




Βήμα 7: Κάντε κλικ OKκαι μπορείτε να δείτε το αποτέλεσμα:



βέλος μπλε δεξιά φούσκα Αποεπιλέξτε μέρος κελιών ή εύρος από την επιλογή με το Kutools για Excel

Εάν πρέπει να αποεπιλέξετε πολλά κελιά ή περιοχές από την επιλογή, το παραπάνω VBA δεν είναι καλός τρόπος. Έτσι, παρουσιάζουμε το ακόλουθο τέχνασμα, το Επιλέξτε Range Helper εργαλεία του Kutools για Excel. Μπορεί να σας βοηθήσει να αποεπιλέξετε οποιοδήποτε κελί ή να κυμαίνεται από την επιλογή εύκολα και γρήγορα.

Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.

Βήμα 1: Κάντε κλικ Kutools > Επιλέξτε Εργαλείο >> Επιλέξτε Range Helper….

Βήμα 2: Σε Επιλέξτε Range Helper πλαίσιο ελέγχου, ελέγξτε το Αποεπιλογή κελιών επιλογή και, στη συνέχεια, κάντε κλικ ή σύρετε το ποντίκι για να αποεπιλέξετε κελιά ή περιοχές από την επιλογή. Δείτε το στιγμιότυπο οθόνης:

Βήμα 3: Και τα κελιά που δεν θέλετε να καταργήθηκαν από την επιλογή. Στο τέλος, κλείστε το Επιλέξτε Range Helper κουτί διαλόγου.

Για περισσότερες πληροφορίες σχετικά με το Επιλέξτε Range Helper, Μπορείτε να επισκεφθείτε Επιλέξτε περιγραφή της δυνατότητας Range Helper.


Σχετικά άρθρα:

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

 

 

 

 

 

Comments (4)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
thank you so much
Rated 5 out of 5
This comment was minimized by the moderator on the site
Why can't Excel just allow users to deselect cells by holding down Ctrl like Google Sheets does?? It's ridiculous
This comment was minimized by the moderator on the site
This code you posted above in VBA for deselecting active cell from selection crashes on me when I X out of the input dialog box and the deselected cells once again become selected cells. How do we fix the code so after you use the VBA code you can get out of it and not loose what you deselected?

Thanks
This comment was minimized by the moderator on the site
After I have deselected the range of cells I want to deselect I get an error when I try to close the pop-up input box for another range. how do I fix that in the code provided above? Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations