Lõika, kopeeri ja kleebi makrost - VBA koodi näited

Selles õpetuses saate teada mitmeid erinevaid meetodeid kopeerimiseks ja kleepimiseks ning lõikamiseks ja kleepimiseks VBA makro abil. Täpsemate kopeerimis- ja kleepimisvalikute jaoks lugege kaasõpetust väärtuste kleepimise ja kleepimise kohta.

Selle koodi kasutamiseks avage Visual Basic Editor (Alt + F11), Sisestage uus moodul (Lisa> Moodul) ja kopeerige ja kleepige soovitud kood moodulisse.

Ühe lahtri kopeerimine (lõikamine) ja kleepimine

See näide kopeerib või lõikab ja kleebib ühe lahtri A1 üle B1:

123456789

Sub Paste_OneCell ()'Kopeeri ja kleebi üks lahterVahemik ("A1"). Kopeeri vahemik ("B1")'Ühe lahtri lõikamine ja kleepimineVahemik ("A1"). Lõikevahemik ("B1")End Sub

Kopeeri valik

Kui soovite aktiivset valikut kopeerida, kasutage seda:

123456789101112

Sub CopySelection ()'Kleebi määratud vahemikkuSelection.copy range ("b1")'Offset Paste (nihutab 2 lahtrit alla ja 1 paremaleValik.koopiaValik.nihe (2,1) .pastaApplication.CutCopyMode = ValeEnd Sub

Kopeerige (lõigake) ja kleepige lahtrite vahemik

See näide kopeerib või lõikab ja kleebib hulga lahtreid, A1: A3 üle B1: B3:

123456789

Sub Paste_Range ()'Kopeerige ja kleepige lahtrite vahemikVahemik ("A1: A3"). Kopeeri vahemik ("B1: B3")'Lõika ja kleepige hulk lahtreidVahemik ("A1: A3"). Lõikevahemik ("B1: B3")End Sub

Kopeerige (lõigake) ja kleepige kogu veerg

Allpool toome paar kiiret näidet. Üksikasjalikke näiteid, selgitusi ja variatsioone leiate meie artiklist ridade ja veergude kopeerimise ja kleepimise kohta.

See näide kopeerib või lõikab ja kleebib terve veeru A -st B -ni:

12345678910

Sub PasteOneColumn ()„Kopeeri ja kleebi veergVahemik ("A: A"). Kopeeri vahemik ("B: B")„Lõika ja kleebi veergVahemik ("A: A"). Lõikevahemik ("B: B")End Sub

Kopeerige (lõigake) ja kleepige terve rida

See näide kopeerib, lõikab ja kleebib terve rea, 1 kuni 2:

12345678910

Sub Paste_OneRow ()'Kopeeri ja kleebi ridaVahemik ("1: 1"). Kopeeri vahemik ("2: 2")'Lõika ja kleebi ridaVahemik ("1: 1"). Lõikevahemik ("2: 2")End Sub

Kopeerige (lõigake) ja kleepige teisele töölehele või töövihikusse

1234567891011121314

Sub Paste_Other_Sheet_or_Book ()'Lõika või kopeeri ja kleebi teisele tööleheleTöölehed ("leht1"). Vahemik ("A1"). Töölehtede kopeerimine ("leht2"). Vahemik ("B1") 'KopeeriTöölehed ("leht1"). Vahemik ("A1"). Lõika töölehed ("leht2"). Vahemik ("B1") 'Lõika'Lõika või kopeeri ja kleebi teise töövihikusseTöövihikud ("book1.xlsm"). Töölehed ("leht1"). Vahemik ("A1"). Kopeeri _Töövihikud ("book2.xlsm"). Töölehed ("leht1"). Vahemik ("B1") 'KopeeriTöövihikud ("book1.xlsm"). Töölehed ("leht1"). Vahemik ("A1"). Lõika _Töövihikud ("book2.xlsm"). Töölehed ("leht1"). Vahemik ("B1") 'LõikaApplication.CutCopyMode = ValeEnd Sub

Väärtuse kleepimine

Tavaliselt kopeerides ja kleepides kleepite kõik lahtri omadused: vormindamine, valemid jne … Väärtuste kleepimine võimaldab teil kopeerida ja kleepida lahtrite väärtusi ja mitte midagi muud. Lihtsaim viis väärtuste kleepimiseks VBA -s on lahtri väärtuse otsene määratlemine:

123456789101112131415

AlamväärtusPaste ()'Väärtuskleebi lahtridVahemik ("B1"). Väärtus = Vahemik ("A1"). VäärtusVahemik ("B1: B3"). Väärtus = Vahemik ("A1: A3"). Väärtus'Määrake väärtused töölehtede vahelTöölehed ("leht2"). Vahemik ("A1"). Väärtus = Töölehed ("leht1"). Vahemik ("A1"). Väärtus„Määrake väärtused töövihikute vahelTöövihikud ("book2.xlsm"). Töölehed ("leht1"). Vahemik ("A1"). Väärtus = _Töövihikud ("book1.xlsm"). Töölehed ("leht1"). Vahemik ("A1"). VäärtusApplication.CutCopyMode = ValeEnd Sub

Kleebi spetsiaalne

Paste Special võimaldab kopeerida ja kleepida lahtrite spetsiifilisi omadusi (näited: vormingud, väärtused, veerulaiused jne). Samuti võimaldab see teha spetsiaalseid kleepimistoiminguid (näited: tühjade vahelejätmine, ülevõtmine). Vaatame allpool mitmeid näiteid, kuid põhjalikumaks lugege meie õpetust väärtuste kleepimise ja kleepimise kohta.

12345678910111213141516171819

Sub PasteSpecial ()'Tehke üks pasta erioperatsioon:Vahemik ("A1"). Kopeeri'Kleebi vormingudVahemik ("B1"). PasteSpecial Paste: = xlPasteFormats„Kleebi veeru laiusedVahemik ("B1"). PasteSpecial Paste: = xlPasteColumnWidths'Kleebi valemidVahemik ("B1"). PasteSpecial Paste: = xlPasteFormulas„Tehke korraga mitme kleepimise erioperatsioone:Vahemik ("A1"). Kopeeri„Vormingute kleepimine ja ülevõtmineVahemik ("B1"). PasteSpecial Paste: = xlPasteFormats, Operation: = xlNone, SkipBlanks: = _Vale, ülevõtmine: = tõsiApplication.CutCopyMode = ValeEnd Sub

Puhasta lõikelaud

Pärast kopeerimist ja kleepimist võiksite lõikepuhvri tühjendada (teeme mõned ülaltoodud koodinäited). Exceli lõikepuhvri kustutamiseks määrasime Application.CutCopyMode väärtuseks Väär:

1	Application.CutCopyMode = Vale

See kustutab Exceli lõikelaua. Siiski ei kustuta see Windowsi lõikelauda. Akna lõikepuhvri kustutamiseks järgige siin toodud juhiseid.