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

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

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

Επικόλληση εξωτερικού περιεχομένου στο φύλλο εργασίας ταιριάζει πάντα με τη μορφή προορισμού με τις επιλογές του Excel

Επικόλληση εξωτερικού περιεχομένου στο φύλλο εργασίας ταιριάζει πάντα με τη μορφή προορισμού με τον κώδικα VBA


Επικόλληση εξωτερικού περιεχομένου στο φύλλο εργασίας ταιριάζει πάντα με τη μορφή προορισμού με τις επιλογές του Excel

Για να κάνετε το Excel να επικολλήσει τα δεδομένα με μορφοποίηση προορισμού, μπορείτε να προσθέσετε μια ειδική εντολή στο Γραμμή εργαλείων γρήγορης πρόσβασης.

1. Κλίκ Αρχεία > Επιλογές, και στο Επιλογές του Excel κουτί διαλόγου:

  • (1.) Κάντε κλικ Γραμμή εργαλείων γρήγορης πρόσβασης στο αριστερό παράθυρο.
  • (2.) Στη συνέχεια, επιλέξτε Όλες οι εντολές υπό Επιλέξτε εντολές από αναπτυσσόμενη λίστα
  • (3.) Και μετά μετακινηθείτε προς τα κάτω και επιλέξτε Επικόλληση και αντιστοίχιση μορφοποίησης προορισμού στο πλαίσιο λίστας ·
  • (4.) Στη συνέχεια κάντε κλικ Προσθήκη >> για να προσθέσετε αυτήν την εντολή στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης.

doc-match-destination-formatting-1

2. Αφού προσθέσετε αυτήν την εντολή, κάντε κλικ στο OK κουμπί για να κλείσετε αυτό το παράθυρο διαλόγου.

3. Και τώρα, το Επικόλληση και αντιστοίχιση μορφοποίησης προορισμού έχει προστεθεί στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης, δείτε το στιγμιότυπο οθόνης:

doc-match-destination-formatting-2

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

Σημείωση: Αυτή η μέθοδος δεν εφαρμόζεται στο Excel 2007.


Επικόλληση εξωτερικού περιεχομένου στο φύλλο εργασίας ταιριάζει πάντα με τη μορφή προορισμού με τον κώδικα VBA

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

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

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

Κωδικός VBA: Ορίστε τη Μορφοποίηση προορισμού αγώνα ως προεπιλεγμένη επικόλληση

Sub PasteWithDestinationFormatting()
ActiveCell.PasteSpecial (xlPasteValues)
End Sub

3. Και μετά αποθηκεύστε και κλείστε αυτό το παράθυρο διαλόγου και, στη συνέχεια, πατήστε Alt + F8 για να ανοίξετε το Macro διαλόγου. Στο Macro διαλόγου, επιλέξτε το όνομα κωδικού που δημιουργήσατε στο βήμα 2 και κάντε κλικ στο Επιλογές κουμπί, στη συνέχεια εμφανίστηκε Επιλογές μακροεντολών διαλόγου, εισάγετε v υπό Πλήκτρο συντόμευσης ενότητα, δείτε το στιγμιότυπο οθόνης:

doc-match-destination-formatting-3

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

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


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

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


Επίδειξη: Επικόλληση εξωτερικού περιεχομένου στο Excel ταιριάζει πάντα με τη μορφοποίηση προορισμού

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

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

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

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

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
On "Paste external content to worksheet always match destination formatting with VBA code". After "4. Then click OK in the Macro Options dialog, and close the Macro dialog box". The code would take effect only after saving/closing your worksheet.
This comment was minimized by the moderator on the site
Tried the close and save method. Still running into the same issue that Suneet was.
This comment was minimized by the moderator on the site
Hey, the macro for paste is not working. When I hit CTRL+v, it says: Run-time error '1004': PasteSpecial method of Range class failed
This comment was minimized by the moderator on the site
I'm getting this same error
This comment was minimized by the moderator on the site
Hello, guys,
If you want to paste the contents from website, you should apply the following VBA code.

Sub PasteWithDestinationFormatting()
Dim xRg As Range
Set xRg = Application.InputBox("Please select a cell to paste: ", "Kutools for Excel", , , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Range("A1").Activate
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon:=False
End Sub

After pasting this code into the code module, and then go to the Macro dialog box to set the shortcut.
From now, when pasting contents from other applications, such as Word, website, a prompt box will pop out to remind you select a cell to put the pasting contents, and the contents will be pasted as Match Destination Formatting by default.

Hope it can help you! Thank you!
This comment was minimized by the moderator on the site
What a dick
This comment was minimized by the moderator on the site
That worked, but now I have to double click, or else the Kutools message comes up. Any solution?
This comment was minimized by the moderator on the site
Works for me, just in case somebody needs it.

Sub PasteWithDestinationFormatting()
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon:=False
End Sub
This comment was minimized by the moderator on the site
it works thanks
This comment was minimized by the moderator on the site
The problem I see after enabling this macro, that works nicely btw,is that my Undo button is greyed out and CTRL+z doesn't work anymore...
This comment was minimized by the moderator on the site
Same, I also cannot use CTRL+Z or and the Undo button is grayed out after using control +Z. But CTRL +V works now to allow me to copy and paste from Google Docs to Excel and have it match the destination format, saving me hundreds of clicks. Thanks!
This comment was minimized by the moderator on the site
i dont know how to thank you for this. its finally solved THANKYOU SOMUCH
This comment was minimized by the moderator on the site
OH MY GOODNESS !!!! YOU LITERALLY ARE A LIFE SAVER!
This comment was minimized by the moderator on the site
This worked for me. Thanks. You just saved me a few hundred clicks a day.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations