Preskoči na glavno vsebino

Kako nastaviti vrednosti lepljenja kot privzeto pri uporabi Ctrl + V v Excelu?

Običajno se v Excelu, ko kopirate podatke iz enega obsega ali delovnega lista in prilepite s Ctrl + V v drugega, privzeto prilepi tudi oblikovanje. Toda včasih preprosto želite prilepiti podatke kot vrednosti brez kakršnega koli oblikovanja. Tu vam lahko predstavim preprost način, da nastavite vrednosti prilepitve samo kot privzeto pri uporabi Ctrl + V v Excelu.

Vrednosti lepljenja nastavite kot privzeto pri uporabi Ctrl + V s kodo VBA


Vrednosti lepljenja nastavite kot privzeto pri uporabi Ctrl + V s kodo VBA

Ko prilepite podatke samo kot vrednosti, morate klikniti mali kvadrat v kotu izbire in vsakič po lepljenju podatkov izbrati možnost Vrednosti. Naslednja koda VBA vam lahko pomaga spremeniti privzeto lepljenje na vrednosti.

1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: nastavite vrednosti lepljenja kot privzeto pri uporabi Ctrl + V

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

3. Nato shranite in zaprite kodo ter pritisnite Alt + F8 tipke za odpiranje Makro pogovorno okno.

4. v Makro izberite uporabljeno ime makra PasteasValue In nato kliknite možnosti gumb, glej posnetek zaslona:

doc-prilepi-vrednosti-privzeto-1

5. Nato v Možnosti makrov v pogovornem oknu pod Tipka za bližnjico vnesite razdelek v , glej posnetek zaslona:

doc-prilepi-vrednosti-privzeto-2

6. In nato kliknite OK zaprete Možnosti makrov pogovorno okno in nadaljujte z zapiranjem Makro dialog.

In zdaj, ko prilepite podatke z Ctrl + V, bodo podatki privzeto prilepljeni kot vrednosti.


Povezani članek:

Kako prilepiti zunanjo vsebino v Excel, se vedno ujema s ciljnim oblikovanjem?


Predstavitev: nastavite vrednosti prilepitve kot privzeto pri uporabi Ctrl + V v Excelu

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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