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