- Kopirajte (izrežite) i zalijepite jednu ćeliju
- Kopiraj odabir
- Kopirajte (izrežite) i zalijepite niz ćelija
- Kopirajte (izrežite) i zalijepite cijeli stupac
- Kopirajte (izrežite) i zalijepite cijeli niz
- Kopirajte (izrežite) i zalijepite na drugi radni list ili radnu knjigu
- Zalijepite vrijednost
- Posebno zalijepi
U ovom vodiču naučit ćete nekoliko različitih metoda kopiranja i lijepljenja te izrezivanja i lijepljenja pomoću VBA makronaredbe. Za naprednije mogućnosti kopiranja i lijepljenja pročitajte popratni vodič o Vrijednosnom lijepljenju i PasteSpecial.
Da biste koristili ovaj kôd: Otvorite Visual Basic Editor (Alt + F11), Umetnite novi modul (Umetni> Modul) i kopirajte i zalijepite željeni kôd u modul.
Kopirajte (izrežite) i zalijepite jednu ćeliju
Ovaj primjer kopira ili izrezuje i lijepi jednu ćeliju, A1 preko B1:
| 123456789 | Sub Paste_OneCell ()'Kopiraj i zalijepi jednu ćelijuRaspon ("A1"). Kopiraj raspon ("B1")'Izrežite i zalijepite jednu ćelijuRaspon ("A1"). Raspon rezanja ("B1")Kraj podm |
Kopiraj odabir
Ako želite kopirati aktivni odabir, upotrijebite ovo:
| 123456789101112 | Sub CopySelection ()'Zalijepi u definirani rasponRaspon odabira.kopiranja ("b1")'Offset Paste (pomakne 2 ćelije prema dolje i 1 udesnoIzbor.kopijaSelection.offset (2,1). PasteApplication.CutCopyMode = NetačnoKraj podm |
Kopirajte (izrežite) i zalijepite niz ćelija
Ovaj primjer kopira ili izrezuje i lijepi niz ćelija, A1: A3 preko u B1: B3:
| 123456789 | Pod Paste_Range ()'Kopirajte i zalijepite niz ćelijaRaspon ("A1: A3"). Raspon kopiranja ("B1: B3")'Izrežite i zalijepite niz ćelijaRaspon ("A1: A3"). Raspon rezanja ("B1: B3")Kraj podm |
Kopirajte (izrežite) i zalijepite cijeli stupac
U nastavku ćemo pokazati nekoliko brzih primjera. Pročitajte naš članak o Kopiranju i lijepljenju redaka i stupaca za detaljne primjere, objašnjenja i varijacije.
Ovaj primjer kopira ili izrezuje i lijepi cijeli stupac, od A do B:
| 12345678910 | Sub PasteOneColumn ()'Kopiraj i zalijepi stupacRaspon ("A: A"). Kopiraj raspon ("B: B")'Izreži i zalijepi stupacRaspon ("A: A"). Raspon rezanja ("B: B")Kraj podm |
Kopirajte (izrežite) i zalijepite cijeli niz
Ovaj primjer kopira ili izrezuje i lijepi cijeli red, 1 na 2:
| 12345678910 | Sub Paste_OneRow ()'Kopiraj i zalijepi redakRaspon ("1: 1"). Kopiraj raspon ("2: 2")'Izreži i zalijepi redRaspon ("1: 1"). Raspon izrezivanja ("2: 2")Kraj podm |
Kopirajte (izrežite) i zalijepite na drugi radni list ili radnu knjigu
| 1234567891011121314 | Sub Paste_Other_Sheet_or_Book ()'Izrežite ili kopirajte i zalijepite na drugi radni listRadni listovi ("list1"). Raspon ("A1"). Kopiraj radne listove ("list2"). Raspon ("B1") 'KopirajRadni listovi ("list1"). Raspon ("A1"). Izrežite radne listove ("list2"). Raspon ("B1") 'Izreži'Izrežite ili kopirajte i zalijepite u drugu radnu knjiguRadne bilježnice ("book1.xlsm"). Radni listovi ("list1"). Raspon ("A1"). Kopiraj _Radne bilježnice ("book2.xlsm"). Radni listovi ("list1"). Raspon ("B1") 'KopirajRadne bilježnice ("book1.xlsm"). Radni listovi ("list1"). Raspon ("A1"). Izrežite _Radne bilježnice ("book2.xlsm"). Radni listovi ("list1"). Raspon ("B1") 'IzrežiApplication.CutCopyMode = NetačnoKraj podm |
Zalijepite vrijednost
Obično, kada kopirate i zalijepite, zalijepite sva svojstva ćelije: oblikovanje, formule itd. … Zalijepljenje vrijednosti omogućuje vam kopiranje i lijepljenje vrijednosti ćelija i ništa drugo. Najjednostavniji način dodavanja vrijednosti u VBA je izravno definiranje vrijednosti ćelije:
| 123456789101112131415 | Sub ValuePaste ()'Vrijednost zalijepljenih ćelijaRaspon ("B1"). Vrijednost = Domet ("A1"). VrijednostRaspon ("B1: B3"). Vrijednost = Domet ("A1: A3"). Vrijednost'Postavljanje vrijednosti između radnih listovaRadni listovi ("list2"). Raspon ("A1"). Vrijednost = Radni listovi ("list1"). Raspon ("A1"). Vrijednost'Postavljanje vrijednosti između radnih knjigaRadne knjige ("book2.xlsm"). Radni listovi ("list1"). Raspon ("A1"). Vrijednost = _Radne knjige ("book1.xlsm"). Radni listovi ("list1"). Raspon ("A1"). VrijednostApplication.CutCopyMode = NetačnoKraj podm |
Posebno zalijepi
Posebno lijepljenje omogućuje kopiranje i lijepljenje određenih svojstava ćelija (primjeri: formati, vrijednosti, širine stupaca itd.). Također vam omogućuje izvođenje posebnih operacija lijepljenja (primjeri: preskakanje praznina, transponiranje). U nastavku ćemo pogledati nekoliko primjera, ali detaljno pročitajte naš vodič o Vrijednosnom lijepljenju i Posebnom lijepljenju.
| 12345678910111213141516171819 | Sub PasteSpecial ()'Izvršite jednu operaciju zalijepljenja:Raspon ("A1"). Kopiraj'Zalijepi formateRaspon ("B1"). PasteSpecial Paste: = xlPasteFormats'Zalijepite širine stupacaRaspon ("B1"). PasteSpecial Paste: = xlPasteColumnWidths'Zalijepite formuleRaspon ("B1"). PasteSpecial Paste: = xlPasteFormulas'Izvršite više operacija zalijepljenja odjednom:Raspon ("A1"). Kopiraj'Zalijepite formate i prenesiteRaspon ("B1"). PasteSpecial Paste: = xlPasteFormats, Operacija: = xlNone, SkipBlanks: = _Netačno, Transponiraj: = IstinaApplication.CutCopyMode = NetačnoKraj podm |
Očisti međuspremnik
Nakon kopiranja i lijepljenja možda biste htjeli očistiti međuspremnik (to činimo u nekim od gornjih primjera koda). Za brisanje međuspremnika Excel postavili smo Application.CutCopyMode na False:
| 1 | Application.CutCopyMode = Netačno |
Ovo će izbrisati međuspremnik programa Excel. Međutim, neće izbrisati međuspremnik sustava Windows. Za brisanje međuspremnika prozora slijedite upute ovdje.
