Vložit VBA

VBA Paste funguje stejným způsobem jako kopírování / vyjímání a vkládání v Excelu. VBA Vložte automatizovanou verzi toho, co pravidelně děláme v pravidelné excelentní práci. Rutinním úkolem je vkládání dat do libovolného požadovaného umístění. Abychom mohli tuto aktivitu provést, musíme definovat místo, odkud data vybereme, a místo, kam je vložíme.

Jak používat Excel VBA Paste?

Naučíme se, jak používat VBA Paste s několika příklady v Excelu.

Tuto šablonu VBA Paste Excel si můžete stáhnout zde - VBA Paste Excel Template

VBA Paste - Příklad č. 1

Podívejme se na jakoukoli buňku v Excelu, která má nějaký text. Zde jsme ponechali text „ VBA Paste “ v buňce B3, jak je ukázáno níže.

Chcete-li použít VBA Paste, postupujte podle následujících kroků.

Krok 1: Nyní přejděte do okna VBA a otevřete nový modul z nabídky Vložit, jak je ukázáno níže.

Krok 2: Jakmile to uděláme, dostaneme prázdný modul. V tom začněte psát podkategorii. Doporučujeme zapsat podkategorii do názvu funkce, kterou provádíme.

Kód:

 Sub VBAPaste1 () End Sub

Krok 3: Nyní nejprve vyberte buňku Range, kde máme data, která musíme zkopírovat. Zde je naše buňka Range B3, následovaná funkcí .Copy . Tím se zkopírují data v buňce Range, kterou jsme vybrali.

Kód:

 Rozsah Sub VBAPaste1 () ("B3")

Krok 4: Nyní potřebujeme cílovou buňku, do které musíme vložit tuto zkopírovanou hodnotu. Pomocí příkazu Destination vyberte buňku Range. Zde jsme vybrali buňku D1, kde uvidíme hodnotu.

Kód:

 Rozsah Sub VBAPaste1 () ("B3"). Kopie Cíl: = Rozsah ("D1") End Sub

Krok 5: Jakmile je hotovo, zkompilujte kód a spusťte jej.

Uvidíme, že obsah buňky B3 je nyní zkopírován a vložen do buňky D3, jak je ukázáno výše.

VBA pasta - Příklad č. 2

Podívejme se na další příklad VBA Paste. Za tímto účelem přejděte do okna VBA a otevřete modul a postupujte podle níže uvedených kroků.

Krok 1: Začněte psát podkategorii jménem VBA Vložit nebo jiným názvem, jak je uvedeno níže.

Kód:

 Sub VBAPaste2 () End Sub

Krok 2: Zde vezmeme v úvahu stejná data nebo referenční buňku B3, jaké jsme viděli v příkladu 1. Vyberte buňku Range B3 a poté příkaz .Copy . Tím se data zkopírují.

Kód:

 Rozsah Sub VBAPaste2 () ("B3")

Krok 3: Nyní vyberte buňku rozsahu, do které musíme vložit zkopírovaná data. Zde vybíráme buňky Dl až D3 na rozdíl od výběru pouze jedné buňky, jak je ukázáno v příkladu-1.

Kód:

 Rozsah sub VBAPaste2 () ("B3"). Rozsah kopií ("D1: D3"). Vyberte End Sub

Krok 4: Jakmile jsme zkopírovali data a vybrali buňky, kde je potřeba vložit. Nyní vyberte příkaz Vložit pomocí funkce ActiveSheet . Tento Activesheet umožňuje kopírování buněk vložených do buněk rozsahu.

Kód:

 Rozsah sub VBAPaste2 () ("B3"). Rozsah kopií ("D1: D3"). Vyberte ActiveSheet.Paste End Sub

Krok 5: Nyní zkompilujte kód a spusťte jej. Uvidíme, že hodnota buňky z buňky B3 se vloží z buněk D1 do D3.

VBA pasta - Příklad č. 3

Další metodou VBA Paste je ruční postup, který děláme pro kopírování a vkládání.

Postupujte podle následujících kroků:

Krok 1: Napište podkategorii VBA Vložit, jak je ukázáno níže.

Kód:

 Sub VBAPaste3 () End Sub

Krok 2: Je lepší dát sekvenci podkategorii, pokud píšete více sad kódů do jednoho souboru. Abychom mohli cokoli vložit, musíme nejprve data zkopírovat. Zde jsme vybrali příkaz Kopírovat .

Kód:

 Sub VBAPaste3 () Selection.Copy End Sub

Krok 3: Nyní vyberte oblast nebo referenční buňku, kterou musíme zkopírovat a vložit. Zde máme buňku D3 s daty „VBA Paste“.

Kód:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Vyberte End Sub

Krok 4: Nyní v Excelu vybereme buňky, do kterých musíme data vložit ručně nebo pomocí kláves Shift + Ctrl + nahoru / dolů. Zde také vybereme umístění buněk podle konce (xlUp) příkazem pro výběr rozsahu výstupních buněk.

Kód:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Vyberte Range (Selection, Selection.End (xlUp)). Vyberte End Sub

Krok 5: Nyní vyberte rozsah výstupních buněk, zde jsme vybrali buňky D1 až D3, kde uvidíme vložená data.

Kód:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Vyberte Range (Selection, Selection.End (xlUp)). Vyberte Range ("D1: D3"). Vyberte End Sub

Krok 6: Jako funkce, kterou musíme provést, je funkce vložení, takže musíme aktivovat příkaz vložit ve VBA příkazem ActiveSheet následovaným tečkou (.) Vložit.

Kód:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Vyberte Range (Selection, Selection.End (xlUp)). Vyberte Range ("D1: D3"). Vyberte ActiveSheet.Paste End Sub

Krok 7: Nyní konečně povolte aplikaci CutCopyMode jako FALSE, což znamená, že pouze kopírujete data namísto jejich vyjmutí z referenční buňky.

Kód:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Vyberte Range (Selection, Selection.End (xlUp)). Vyberte Range ("D1: D3"). Vyberte ActiveSheet.Paste Application.CutCopyMode = False End Sub

Krok 8: Před spuštěním kódu umístěte nejprve kurzor na buňku B3. Pak kompilujte kód a spusťte jej. Uvidíme, že se naše data zkopírují do buněk D1 až D3.

Vložit VBA - Příklad č. 4

Existuje další způsob, jak používat VBA Paste v jednom řádku kódu.

Postupujte podle následujících kroků:

Krok 1: Napište podkategorii do sekvence a názvu prováděné funkce.

Kód:

 Sub VBAPaste4 () End Sub

Krok 2: Použijte příkaz Listy a vyberte List, kde budeme pracovat. Zde je název našeho listu „Sheet1“. Místo toho můžeme použít Workbook.Sheet (1) také pro výběr “List1”.

Kód:

 Podsložky VBAPaste4 () ("List1"). End Sub

Krok 3: Vyberte buňku, ze které zkopírujeme data. Zde je naše buňka Range B3, která má stejná data, jaké jsme viděli ve výše uvedených příkladech.

Kód:

 Podvzorky VBAPaste4 () ("List1"). Rozsah ("B3"). End Sub

Krok 4: Nyní vložte tečku (.) Pro kopírování dat z vybrané buňky Range.

Kód:

 Pracovní listy Sub VBAPaste4 () ("List1"). Rozsah ("B3").

Krok 5: Nyní pomocí příkazu Cíl vyberte umístění, kam vložíme zkopírovaná data. U tohoto listu vyberte List jako „List1“, který jsme provedli na začátku tohoto příkladu, a vyberte buňky Range kdekoli ve stejném listu. Zde jsme vybrali Range výstupní buňky od D1 do D3.

Kód:

 Sub VBAPaste4 () Pracovní listy ("List1"). Rozsah ("B3"). Kopie Cíl: = Pracovní listy ("List1"). Rozsah ("D1: D3") End Sub

Krok 6: Nyní zkompilujte a spusťte. Text „VBA Paste“ z buňky B3 se zkopíruje a vloží do buněk D1 až D3, jak je ukázáno níže.

Výhody aplikace Excel VBA Paste

  • Použití prvních 2 příkladů je nejjednodušší a nejrychlejší způsob, jak aplikovat VBA Paste.
  • U obrovských dat, kde je obtížné provádět více činností, bychom automatizovali tento druh malých funkcí, což by ušetřilo obrovský čas na manuální práci.
  • Neexistuje žádný limit pro kopírování a vkládání dat.

Co si pamatovat

  • Použijte podkategorii tak, že pokud používáte více modulů, vložte sekvenci, která usnadní sledování a výběr správného makra.
  • Uložte soubor Excel do formátu Enable Makro, aby byl napsaný kód uchován pro další použití.
  • Pokud píšete více řádků kódu, doporučuje se zkompilovat řádek po řádku, abyste zjistili, zda se v něm vyskytla chyba.
  • Pokud používáte příklad 3, doporučujeme umístit kurzor na buňku B3.

Doporučené články

Toto byl průvodce VBA Paste. Zde jsme diskutovali o VBA Paste a jak používat Excel VBA Paste spolu s praktickými příklady a stahovatelnou šablonou Excel. Můžete si také prohlédnout naše další doporučené články -

  1. VBA Match | Jak používat?
  2. Excel TRANSPOSE vzorec
  3. Rozsah VBA | Snadná makra Excelu
  4. Vnořený IF vzorec v Excelu

Kategorie:

VBA