Vystrihnúť, kopírovať a prilepiť z makra - príklady kódu VBA

V tomto návode sa naučíte niekoľko rôznych spôsobov kopírovania a prilepovania a vystrihovania a prilepenia pomocou makra VBA. Pokročilejšie možnosti kopírovania a vkladania nájdete v sprievodnom návode na tému Vkladanie hodnôt a PasteSpecial.

Ak chcete použiť tento kód: Otvorte editor jazyka Visual Basic (Alt + F11), Vložte nový modul (Vložiť> Modul) a skopírujte a prilepte požadovaný kód do modulu.

Skopírujte (vystrihnite) a prilepte jednu bunku

Tento príklad skopíruje alebo vystrihne a prilepí jednu bunku, A1 až B1:

123456789

Sub Paste_OneCell ()„Skopírujte a prilepte jednu bunkuRozsah („A1“). Rozsah kopírovania („B1“)„Vystrihnite a prilepte jednu bunkuRozsah („A1“). Rozsah rezu („B1“)Koniec pod

Kopírovať výber

Ak chcete skopírovať aktívny výber, použite toto:

123456789101112

Voľba vedľajšej kópie ()„Prilepte do definovaného rozsahuSelection.copy range ("b1")„Vložiť offset (odsadí 2 bunky nadol a 1 vpravoVýber.kopiaSelection.offset (2,1) .pasteApplication.CutCopyMode = FalseKoniec pod

Skopírujte (vystrihnite) a prilepte rozsah buniek

Tento príklad skopíruje alebo vystrihne a prilepí rozsah buniek, od formátu A1: A3 až po B1: B3:

123456789

Sub Paste_Range ()„Skopírujte a prilepte rozsah buniekRozsah („A1: A3“). Rozsah kopírovania („B1: B3“)„Vystrihnite a prilepte rozsah buniekRozsah („A1: A3“). Rozsah rezu („B1: B3“)Koniec pod

Skopírujte (vystrihnite) a prilepte celý stĺpec

Ďalej si ukážeme pár rýchlych príkladov. Prečítajte si náš článok o kopírovaní a vkladaní riadkov a stĺpcov, kde nájdete podrobné príklady, vysvetlenia a variácie.

Tento príklad skopíruje alebo vystrihne a prilepí celý stĺpec, od A do B:

12345678910

Sub PasteOneColumn ()„Skopírujte a prilepte stĺpecRozsah („A: A“). Rozsah kopírovania („B: B“)„Vystrihnite a prilepte stĺpecRozsah („A: A“). Rozsah rezu („B: B“)Koniec pod

Skopírujte (vystrihnite) a prilepte celý riadok

Tento príklad skopíruje alebo vystrihne a prilepí celý riadok, 1 až 2:

12345678910

Sub Paste_OneRow ()„Skopírujte a prilepte riadokRozsah („1: 1“). Rozsah kopírovania („2: 2“)„Vystrihnite a prilepte riadokRozsah („1: 1“). Rozsah rezu („2: 2“)Koniec pod

Skopírujte (vystrihnite) a prilepte do iného pracovného hárka alebo zošita

1234567891011121314

Sub Paste_Other_Sheet_or_Book ()„Vystrihnite alebo skopírujte a prilepte do iného pracovného hárkaPracovné listy („list1“). Rozsah („A1“). Kopírovať pracovné listy („list2“). Rozsah („B1“) „KopírovaťPracovné listy ("list1"). Rozsah ("A1"). Vystrihnite pracovné listy ("list2"). Rozsah ("B1") 'Vystrihnúť„Vystrihnite alebo skopírujte a prilepte do iného zošitaZošity ("kniha1.xlsm"). Pracovné listy ("list1"). Rozsah ("A1"). Kopírovať _Zošity ("book2.xlsm"). Pracovné listy ("list1"). Rozsah ("B1") 'KópiaZošity ("kniha1.xlsm"). Pracovné listy ("list1"). Rozsah ("A1"). Vystrihnúť _Pracovné zošity ("book2.xlsm"). Pracovné listy ("list1"). Rozsah ("B1") 'VystrihnúťApplication.CutCopyMode = FalseKoniec pod

Hodnota Paste

Bežne pri kopírovaní a prilepení prilepíte všetky vlastnosti bunky: formátovanie, vzorce atď.… Vkladanie hodnôt vám umožňuje kopírovať a prilepovať hodnoty buniek a nič iné. Najjednoduchší spôsob, ako vložiť hodnotu vo VBA, je priamo definovať hodnotu bunky:

123456789101112131415

Podhodnota Vložiť ()„Vložiť bunky s hodnotouRozsah („B1“). Hodnota = Rozsah („A1“). HodnotaRozsah („B1: B3“). Hodnota = rozsah („A1: A3“). Hodnota„Nastavte hodnoty medzi pracovnými listamiPracovné listy ("list2"). Rozsah ("A1"). Hodnota = pracovné listy ("list1"). Rozsah ("A1"). Hodnota„Nastavte hodnoty medzi zošitmiZošity ("book2.xlsm"). Pracovné listy ("list1"). Rozsah ("A1"). Hodnota = _Zošity ("kniha1.xlsm"). Pracovné listy ("list1"). Rozsah ("A1"). HodnotaApplication.CutCopyMode = FalseKoniec pod

Prilepiť špeciálne

Vložiť špeciálne vám umožňuje kopírovať a prilepiť konkrétne vlastnosti buniek (príklady: formáty, hodnoty, šírky stĺpcov atď.). Umožňuje tiež vykonávať špeciálne operácie vkladania (príklady: preskočiť medzery, transponovať). Pozrime sa na niekoľko nižšie uvedených príkladov, ale podrobnejšie si prečítajte náš návod na vkladanie hodnôt a špeciálne vkladanie.

12345678910111213141516171819

Sub PasteSpecial ()„Vykonajte jednu špeciálnu operáciu prilepenia:Rozsah („A1“). Skopírujte'Prilepiť formátyRozsah ("B1"). PasteSpecial Paste: = xlPasteFormats„Prilepte šírky stĺpcovRozsah („B1“). PasteSpecial Paste: = xlPasteColumnWidths„Prilepte vzorceRozsah („B1“). PasteSpecial Paste: = xlPasteFormulas„Vykonajte viacero operácií prilepenia naraz:Rozsah („A1“). Skopírujte„Prilepte formáty a transponujteRozsah ("B1"). PasteSpecial Paste: = xlPasteFormats, Prevádzka: = xlNone, SkipBlanks: = _Falošné, transponovať: = PravdaApplication.CutCopyMode = FalseKoniec pod

Prehľadná schránka

Po kopírovaní a vkladaní možno budete chcieť schránku vymazať (robíme to v niektorých príkladoch kódu vyššie). Na vymazanie schránky programu Excel nastavíme Application.CutCopyMode na False:

1	Application.CutCopyMode = False

Toto vymaže schránku programu Excel. Schránku systému Windows však nevymažete. Ak chcete vymazať schránku v okne, postupujte podľa týchto pokynov.