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

Πώς να ορίσετε τιμές επικόλλησης ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V στο Excel;

Κανονικά, στο Excel, όταν αντιγράφετε δεδομένα από ένα εύρος ή φύλλο εργασίας και επικολλάτε με Ctrl + V σε άλλο, η μορφοποίηση θα επικολληθεί επίσης από προεπιλογή. Ωστόσο, μερικές φορές, απλώς θέλετε να επικολλήσετε ως τιμές χωρίς καμία μορφοποίηση όταν επικολλήσετε τα δεδομένα. Εδώ, μπορώ να σας παρουσιάσω μια εύκολη μέθοδο για να ορίσετε τις τιμές επικόλλησης μόνο ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V στο Excel.

Ορίστε τιμές επικόλλησης ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V με κωδικό VBA


Ορίστε τιμές επικόλλησης ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V με κωδικό VBA

Όταν επικολλάτε τα δεδομένα μόνο ως τιμές, πρέπει να κάνετε κλικ στο μικρό τετράγωνο στη γωνία της επιλογής σας και να επιλέγετε Τιμές κάθε φορά μετά την επικόλληση των δεδομένων. Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να αλλάξετε τις προεπιλεγμένες τιμές επικόλλησης σε επικόλληση.

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Ορίστε τιμές επικόλλησης ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V

Sub PasteasValue()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

3. Στη συνέχεια, αποθηκεύστε και κλείστε τον κωδικό και πατήστε Alt + F8 για να ανοίξετε το Macro κουτί διαλόγου.

4. Στην Macro διαλόγου, επιλέξτε το όνομα της μακροεντολής που χρησιμοποιείται PasteasValue Και στη συνέχεια κάντε κλικ στο κουμπί Επιλογές κουμπί, δείτε το στιγμιότυπο οθόνης:

doc-paste-τιμές-προεπιλογή-1

5. Τότε στο Επιλογές μακροεντολών πλαίσιο διαλόγου, κάτω από το Πλήκτρο συντόμευσης ενότητα, παρακαλώ εισάγετε v , δείτε το στιγμιότυπο οθόνης:

doc-paste-τιμές-προεπιλογή-2

6. Και στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε το Επιλογές μακροεντολών διαλόγου και συνεχίστε το κλείσιμο του Macro διαλόγου.

Και τώρα, όταν επικολλάτε τα δεδομένα με Ctrl + V, τα δεδομένα θα επικολληθούν ως τιμές από προεπιλογή.


Σχετικό άρθρο:

Πώς να επικολλήσετε εξωτερικό περιεχόμενο στο Excel να ταιριάζει πάντα με τη μορφή προορισμού;


Επίδειξη: Ορίστε τιμές επικόλλησης ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V στο Excel

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

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

🤖 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 (24)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Saved module - called "module 2" but nothing shows up in macros - no 'PasteasValue'. Seems like a step is missing?
This comment was minimized by the moderator on the site
I want to learn if there is a way to work in a sheet, not in a module.

If not, is there a way to work in particular sheet I determine?
This comment was minimized by the moderator on the site
It is working but after pasting you cannot undo
This comment was minimized by the moderator on the site
Same here.
This comment was minimized by the moderator on the site
Hello, guys,
I am sorry, may be there is no other good way for solving this problem, if you have any other good ideas, please comment here.
Thank you!
This comment was minimized by the moderator on the site
Save as binary .xlsb,
Then you can use ctrl+z with macros.
This comment was minimized by the moderator on the site
what do you mean "save as binary. xlsb"?
This comment was minimized by the moderator on the site
I agree Graham, just tried this in Excel 2016. When I click the Run button in the Macro dialog, I get the error message:

Run-tme error '1004':
PasteSpecial method of Range class failed

which is a shame as this really would have helped me today. I also tried Dejvid's macro below, but nothing happened when pasting from one book to another.
This comment was minimized by the moderator on the site
Make sure you have something selected in copy mode. dont even bother entering his code
This comment was minimized by the moderator on the site
Unless I missed something (and the instructions are *very* good), this does not work in Excel 2016.
This comment was minimized by the moderator on the site
I use Microsoft office Standard 2016, at it works.
This comment was minimized by the moderator on the site
Thank You, Sir...
This comment was minimized by the moderator on the site
nice tip, but the macro should look like this, because the code above give you an error statement, if you push ctrl+v and you didn't previously select something with ctrl+c Sub PasteAsValues() On Error GoTo err_handler: Selection.PasteSpecial Paste:=xlPasteValues Exit Sub err_handler: End Sub
This comment was minimized by the moderator on the site
The solution from Mikael seems to nice replicate the 2013 solution offered by this page in a 2016-Excel-friendly way. Unfortunately, it also replicates the inability to undo (through Ctrl-Z or other "undo" actions) a paste action while this macro is enabled.
This comment was minimized by the moderator on the site
To get the undo function to work after you have use a macro is quite difficult unfortunately. Can't help you with that, sorry.
This comment was minimized by the moderator on the site
Hi, solution works great but control+z not working after pasting :( . any additional help?
This comment was minimized by the moderator on the site
This coding does not work with the latest version of Excel 2016. Running the script gives an error code for the line Paste:=xlPasteValues
This comment was minimized by the moderator on the site
Try using this code with Excel 2016: Sub Paste_Special() Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
This comment was minimized by the moderator on the site
Excellent solution
this code should be written directly into the VBA command box not in module box and I selected its place to be in the workbook so you make sure to END every sub opened, and ignore any message that pops up
This comment was minimized by the moderator on the site
Thanks Mikael, but your code didn't work. Microsoft must have changed the VBA coding language too much in their last update. Even the text "Paste:=" results in a compiling error. If there's an answer out there, it must be in a different generation of Excel VBA.
This comment was minimized by the moderator on the site
The macro i sent is recorded in the latest version of MS Excel 2016, so maybe the problem lies within your installation? Besides that the sub I wrote won't work without the "Selection.PasteSpecial" part.
This comment was minimized by the moderator on the site
I just ran into the same problem.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations