---
title: "Excel+VBA – vložit jako text"
id: "144"
type: "post"
slug: "excelvba-vlozit-jako-text"
published_at: "2015-06-20T02:53:04+00:00"
modified_at: "2023-08-13T15:30:56+00:00"
url: "https://www.kapler.cz/excelvba-vlozit-jako-text/"
markdown_url: "https://www.kapler.cz/excelvba-vlozit-jako-text.md"
excerpt: "Asi to znáte – kopírujete odněkud text do Excelu a on se tam vloží i s formátováním. Jasně, můžete jít na Home / Paste / Paste special / Insert as Unicode, nebo Home / Paste / Paste values (podle toho,..."
taxonomy_category:
  - "Programování"
taxonomy_post_tag:
  - "Excel"
  - "Makro"
  - "VBA"
---

# Excel+VBA – vložit jako text

Asi to znáte – kopírujete odněkud text do Excelu a on se tam vloží i s formátováním. Jasně, můžete jít na Home / Paste / Paste special / Insert as Unicode, nebo Home / Paste / Paste values (podle toho, jestli vkládáte text z nějakého dokumentu, či jestli vkládáte hodnoty z nějaké excelové tabulky) –…

Uveřejněno

20. 6. 2015

Rubrika

[Programování](https://www.kapler.cz/category/programovani/)

Autor

Tomáš Kapler

Značky:

[Excel](https://www.kapler.cz/tag/excel/)
, [Makro](https://www.kapler.cz/tag/makro/)
, [VBA](https://www.kapler.cz/tag/vba/)

Asi to znáte – kopírujete odněkud text do Excelu a on se tam vloží i s formátováním. Jasně, můžete jít na *Home / Paste / Paste special / Insert as Unicode*, nebo *Home / Paste / Paste values* (podle toho, jestli vkládáte text z nějakého dokumentu, či jestli vkládáte hodnoty z nějaké excelové tabulky) – ale to je samozřejmě otravné a zdržující.

Takže pro tyto účely jsem si vytvořil toto makro, kterému jsem přiřadil myslím dobře zapamatovatelnou zkratku *CTRL+SHIFT+V*.

Makro nejdřív zkusí obsah schránky vložit jako Excelové hodnoty, když se nezadaří, tak to zkusí jako Unicode text, a když ani to nejde, tak prostě jen pípne.

```
Sub Vlozit_jako_text()
'
' Vlozit_jako_text Makro
'
' Klávesová zkratka: Ctrl+Shift+V
'
On Error GoTo unicode
 Selection.PasteSpecial Paste:=xlPasteValues
 Exit Sub
unicode:
 On Error GoTo finish
 'ActiveSheet.PasteSpecial Format:="Text v kódu Unicode"
 ActiveSheet.PasteSpecial Format:="Unicode Text"
 Exit Sub
finish:
 Beep
 
End Sub
```