Izgriezt, kopēt un ielīmēt no makro - VBA koda piemēri

Šajā apmācībā jūs uzzināsit vairākas dažādas metodes, kā kopēt un ielīmēt un izgriezt un ielīmēt, izmantojot VBA makro. Izlasiet papildu pamācību par vērtību ielīmēšanu un ielīmēšanu, lai iegūtu plašākas kopēšanas un ielīmēšanas iespējas.

Lai izmantotu šo kodu: atveriet Visual Basic redaktoru (Alt + F11), Ievietojiet jaunu moduli (Ievietot> Modulis) un nokopējiet un ielīmējiet vēlamo kodu modulī.

Kopējiet (izgrieziet) un ielīmējiet vienu šūnu

Šis piemērs kopē vai izgriež un ielīmē vienu šūnu, A1 uz B1:

123456789

Sub Paste_OneCell ()"Kopēt un ielīmēt vienu šūnuDiapazons ("A1"). Kopēt diapazonu ("B1")'Izgrieziet un ielīmējiet vienu šūnuDiapazons ("A1"). Izgriezuma diapazons ("B1")Beigu apakš

Kopēt atlasi

Ja vēlaties kopēt aktīvo atlasi, izmantojiet šo:

123456789101112

Sub CopySelection ()'Ielīmēt noteiktā diapazonāSelection.copy diapazons ("b1")'Ofseta ielīmēšana (kompensē 2 šūnas uz leju un 1 pa labiAtlase.kopijaAtlase. Nobīde (2,1). PastaApplication.CutCopyMode = NepareizsBeigu apakš

Kopējiet (izgrieziet) un ielīmējiet šūnu diapazonu

Šis piemērs kopē vai izgriež un ielīmē virkni šūnu, A1: A3 uz B1: B3:

123456789

Sub Paste_Range ()Kopējiet un ielīmējiet šūnu diapazonuDiapazons ("A1: A3"). Kopēšanas diapazons ("B1: B3")'Izgrieziet un ielīmējiet šūnu diapazonuDiapazons ("A1: A3"). Izgriezuma diapazons ("B1: B3")Beigu apakš

Kopējiet (izgrieziet) un ielīmējiet visu kolonnu

Tālāk mēs parādīsim pāris ātrus piemērus. Lai iegūtu detalizētus piemērus, skaidrojumus un variācijas, izlasiet mūsu rakstu par rindu un kolonnu kopēšanu un ielīmēšanu.

Šis piemērs kopē vai izgriež un ielīmē visu kolonnu no A līdz B:

12345678910

Sub PasteOneColumn ()'Kopēt un ielīmēt kolonnuDiapazons ("A: A"). Kopēt diapazonu ("B: B")'Izgriezt un ielīmēt kolonnuDiapazons ("A: A"). Izgriezuma diapazons ("B: B")Beigu apakš

Kopējiet (izgrieziet) un ielīmējiet visu rindu

Šis piemērs kopē vai izgriež un ielīmē visu rindu (no 1 līdz 2):

12345678910

Sub Paste_OneRow ()'Kopēt un ielīmēt rinduDiapazons ("1: 1"). Kopēt diapazonu ("2: 2")'Izgriezt un ielīmēt rinduDiapazons ("1: 1"). Izgriezuma diapazons ("2: 2")Beigu apakš

Kopējiet (izgrieziet) un ielīmējiet citā darblapā vai darbgrāmatā

1234567891011121314

Sub Paste_Other_Sheet_or_Book ()“Izgriezt vai kopēt un ielīmēt citā darblapāDarblapas ("lapa1"). Diapazons ("A1"). Kopēt darblapas ("lapa2"). Diapazons ("B1") 'KopētDarblapas ("lapa1"). Diapazons ("A1"). Izgriezt darba lapas ("lapa2"). Diapazons ("B1") 'Izgriezt“Izgriezt vai kopēt un ielīmēt citā darbgrāmatāDarbgrāmatas ("book1.xlsm"). Darblapas ("sheet1"). Diapazons ("A1"). Kopēt _Darbgrāmatas ("book2.xlsm"). Darblapas ("sheet1"). Diapazons ("B1") 'KopētDarbgrāmatas ("book1.xlsm"). Darblapas ("sheet1"). Diapazons ("A1"). Cut _Darbgrāmatas ("book2.xlsm"). Darblapas ("sheet1"). Diapazons ("B1") 'CutApplication.CutCopyMode = NepareizsBeigu apakš

Vērtības ielīmēšana

Parasti, kopējot un ielīmējot, ielīmējiet visas šūnas īpašības: formatējumu, formulas utt. … Vērtību ielīmēšana ļauj kopēt un ielīmēt šūnu vērtības un neko citu. Vienkāršākais veids, kā VBA vērtību ielīmēt, ir tieši noteikt šūnas vērtību:

123456789101112131415

Sub ValuePaste ()'Vērtības ielīmēšanas šūnasDiapazons ("B1"). Vērtība = Diapazons ("A1"). VērtībaDiapazons ("B1: B3"). Vērtība = Diapazons ("A1: A3"). Vērtība'Iestatiet vērtības starp darblapāmDarblapas ("lapa2"). Diapazons ("A1"). Vērtība = darblapas ("lapa1"). Diapazons ("A1"). Vērtība'Iestatiet vērtības starp darbgrāmatāmDarbgrāmatas ("book2.xlsm"). Darblapas ("sheet1"). Range ("A1"). Value = _Darbgrāmatas ("book1.xlsm"). Darblapas ("sheet1"). Range ("A1"). ValueApplication.CutCopyMode = NepareizsBeigu apakš

Īpaša ielīmēšana

Paste Special ļauj kopēt un ielīmēt šūnu īpašās īpašības (piemēri: formāti, vērtības, kolonnu platumi utt.). Tas arī ļauj veikt īpašas ielīmēšanas darbības (piemēri: izlaist sagataves, transponēt). Tālāk mēs aplūkosim vairākus piemērus, bet padziļināti izlasiet mūsu apmācību par vērtību ielīmēšanu un īpašu ielīmēšanu.

12345678910111213141516171819

Sub PasteSpecial ()'Veiciet vienu īpašu ielīmēšanas darbību:Diapazons ("A1"). Kopēt'Ielīmēt formātusDiapazons ("B1"). PasteSpecial Paste: = xlPasteFormats'Ielīmēt kolonnu platumusDiapazons ("B1"). PasteSpecial Paste: = xlPasteColumnWidths'Ielīmēt formulasDiapazons ("B1"). PasteSpecial Paste: = xlPasteFormulas“Veiciet vairākas ielīmēšanas īpašās darbības vienlaikus:Diapazons ("A1"). Kopēt'Ielīmēt formātus un transponētDiapazons ("B1"). PasteSpecial Paste: = xlPasteFormats, darbība: = xlNone, SkipBlanks: = _Nepareizi, transponēt: = TrueApplication.CutCopyMode = NepareizsBeigu apakš

Notīrīt starpliktuvi

Pēc kopēšanas un ielīmēšanas, iespējams, vēlēsities notīrīt starpliktuvi (mēs to darām dažos iepriekš minētajos koda piemēros). Lai notīrītu Excel starpliktuvi, mēs iestatām Application.CutCopyMode uz False:

1	Application.CutCopyMode = Nepareizs

Tas notīrīs Excel starpliktuvi. Tomēr tas netiks notīrīts Windows starpliktuvē. Lai notīrītu loga starpliktuvi, izpildiet šeit sniegtos norādījumus.