Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-listy-sheet » kopirovani-bunek-excel-vba
Microsoft Excel logo

Kopírování buněk - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak na kopírování dat v buňkách (oblastech) využitím VBA v Excel.

Úvodem do kopírování pomocí VBA

Potřebujete-li ve VBA využít kopírování dat z buňky (oblasti). Jak na to prakticky se dozvíte v tomto článku. Z důvodu přehlednosti a možnosti rozšiřování a doplňování je rozdělen na jednotlivé kapitoly:


Načíst a vložit hodnotu

Načíst a vložit hodnotu. Což je mnohdy nejjednodušší a nejrychlejší možnost. Samozřejmě že můžete kromě Value využít i jiné vlastnosti (Value2, Text ...), ale to předpokládám, že už znáte z článku: Načíst hodnotu z buňky.

Základ z buňky do buňky

Pro zopakování a otestování předpokládám dva listy, jeden zdrojový s názvem Zdroj (obsahuje data, ale to asi připomínat nemusím) a druhý cílový s názvem Cil

Worksheets("Cil").Range("A1").Value = Worksheets("Zdroj").Range("A1").Value

Základ oblast do oblasti

Pokud máte oblast můžete využít a nakopírovat do oblasti do které potřebujete:

Worksheets("Cil").Range("A1:H1").Value = Worksheets("Zdroj").Range("A1:H1").Value

Pozor odkážete-li se jen do cílové buňky (a neudáte oblat) vloží se jen tato jedna hodnota

' jen jedna hodnota Worksheets("Cil").Range("A1").Value = Worksheets("Zdroj").Range("A1:H1").Value

Využít metodu Copy

Chcete-li využít metodu Copy

Jedna buňka

Využitím Copy a Destination

Worksheets("Zdroj").Range("A1").Copy Destination:=Worksheets("Cil").Range("A1")

Využitím Copy a bez Destination (Destination je volitelné)

Worksheets("Zdroj").Range("A1").Copy Worksheets("Cil").Range("A1")

Oblast využítím copy

Využitím Copy a Destination pro oblast

Worksheets("Zdroj").Range("A1:H1").Copy Destination:=Worksheets("Cil").Range("A1:H1")

lze v cílí zadat jen pravou horní buňku (samozřejmě se nakopíruje celá oblast):

Worksheets("Zdroj").Range("A1:H1").Copy Destination:=Worksheets("Cil").Range("A1")

Bez použití Destination

Worksheets("Zdroj").Range("A1:H1").Copy Worksheets("Cil").Range("A1:H1")

a jen udána "počáteční" buňka cíle

Worksheets("Zdroj").Range("A1:H1").Copy Worksheets("Cil").Range("A1")

Oblast v jiném sešitu využitím copy

Ze sešitu do sešitu

Workbooks("Sesit1.xlsx").Worksheets("List1").Range("A1").Copy _ Workbooks("Sesit2.xlsx").Worksheets("Lisst1").Range("A1")

Kopírovat přes Select

Pokud máte označenou oblast využitím Select, můžete použít:

Worksheets("Zdroj").Activate Worksheets("Zdroj").Range("A1").Select Selection.Copy Worksheets("Cil").Range("A1")

Nebo využít Paste v Select

Range("A1:B10").Copy Range("E1").Select ActiveSheet.Paste

Kopírovat přes PasteSpeciál

Pokud potřebujete speciálně vkládat, například jen formát ;) :

Základ

vložení pouze hodnot

Worksheets("Zdroj").Range("A1:H1").Copy Worksheets("Cil").Range("A1").PasteSpecial xlPasteValues

Formáty

Worksheets("Zdroj").Range("A1:H1").Copy Worksheets("Cil").Range("A1").PasteSpecial xlPasteFormats

Hodnoty pro PasteSpecial

Seznam konstant pro PasteSpecial:

  • xlPasteAll
  • xlPasteAllExceptBorders
  • xlPasteAllMergingConditionalFormats
  • xlPasteAllUsingSourceTheme
  • xlPasteColumnWidths
  • xlPasteComments
  • xlPasteFormats
  • xlPasteFormulas
  • xlPasteFormulasAndNumberFormats
  • xlPasteValidation
  • xlPasteValues
  • xlPasteValuesAndNumberFormats

Vyjmout Cut

Metodu vyjmout, proberu ještě v samostatném článku.

Range("A:A").Cut Range("B:B") Application.CutCopyMode = False
Microsoft Excel VBA - stahuj logo

Ke stažení

Soubor ke stažení zdarma. Soubor je v přípravě.


Závěrem

Něco co zde chybí? Můžete doplnit v komentářích.

Článek byl aktualizován: 06.11.2017 10:56

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2000 (od 2004 ne této doméně) - Roku 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici také na on-line videích pro SEDUO. Školím a konzultuji, učím na MUNI. Hlavně tvořím tento web. Je zde k dispozici přes 1.000 návodu, tipů a triků včetně stovek různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2017 | 371

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.