Souhrn
V aplikaci Microsoft Excel můžete makro zřetězit data ve dvou sousedících sloupců a zobrazení výsledku ve sloupci vpravo od sloupce, které obsahují data. Tento článek obsahuje ukázkový Microsoft Visual Basic pro Applications (VBA) makro (procedura Sub) k tomuto účelu.
Další informace
Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci bez žádné záruky výslovně uvedené nebo odvozené. To zahrnuje, ale není omezen pouze na předpokládané záruky obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předmětem ukázky a s nástroji, které slouží k vytvoření a ladění skriptu. Pracovníci podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu. Nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků.
Ukázkové makro Visual Basic for Applications (VBA)
Sub ConcatColumns()
Do While ActiveCell <> "" 'Loops until the active cell is blank.
'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.
ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Poznámka: příkaz ActiveCell.Offset (0, 1). FormulaR1C1 lze nahradit příkaz ActiveCell.Offset (0, 1). Vzorec. Bylo možné s stejný úspěch používáte-li text a pouze čísla (nikoli vzorce). R1C1 použit na konci první příkaz odkazuje řádek, sloupců jeden a je formulář použitá v příkladech v nápovědě.
Použití makra v aplikaci Microsoft Office Excel 2007
-
Otevřete sešit, který obsahuje data.
-
Stiskněte ALT + F11 spusťte Editor jazyka Visual Basic.
-
V nabídce Vložit klepněte na modul vložit modulu. V okně kódu modulu zadejte makro.
-
V nabídce soubor klepněte na tlačítko Zavřít a návrat do aplikace Microsoft Excel.
-
Vyberte list obsahující data, která chcete sloučit.
-
Klepněte na buňku nahoře v pravém sloupci dat, který chcete sloučit. Například pokud buňky a1: A100 a B1:B100 obsahují data, klepněte na buňku B1.
-
Klepněte na kartu Vývojář . Pokud není zobrazena karta Vývojář , postupujte takto:
-
Klepněte na Tlačítko Microsoft Officea potom klepněte na tlačítko Možnosti aplikace Excel.
-
Klepněte na tlačítko populární.
-
Klepnutím zaškrtněte políčko Zobrazit kartu Vývojář na pásu karet .
-
Klepněte na tlačítko OK zavřete dialogové okno Možnosti aplikace Excel .
-
-
Klepněte na tlačítko makra ve skupině kód .
-
Vyberte makro ConcatColumns a na příkaz Spustit.
Použití makra v aplikaci Microsoft Office Excel 2003 a v dřívějších verzích aplikace Excel
-
Otevřete sešit, který obsahuje data.
-
Stiskněte ALT + F11 spusťte Editor jazyka Visual Basic.
-
V nabídce Vložit klepněte na modul vložit modulu. V okně kódu modulu zadejte makro.
-
V nabídce soubor klepněte na tlačítko Zavřít a návrat do aplikace Microsoft Excel.
-
Vyberte list obsahující data, která chcete sloučit.
-
Klepněte na buňku nahoře v pravém sloupci dat, který chcete sloučit. Například pokud buňky a1: A100 a B1:B100 obsahují data, klepněte na buňku B1.
-
V nabídce Nástroje přejděte na příkaz makraa klepněte na příkaz makra. Vyberte makro ConcatColumns a na příkaz Spustit.
Odkazy
Další informace o Visual Basic for Applications klepněte na následující číslo článku databáze Microsoft Knowledge Base:
226118 seznam zdrojů, které jsou k dispozici, které vám pomohou získat jazyka Visual Basic for Applications programming
