Makro VBA na zreťazenie stĺpcov údajov v Exceli

Súhrn

V Microsoft Exceli môžete pomocou makra zreťaziť údaje v dvoch susediacich stĺpcoch a zobraziť výsledok v stĺpci napravo od stĺpcov obsahujúcich údaje. Tento článok obsahuje vzorové makro (podprocedúra) programu Microsoft Visual Basic for Applications (VBA) na vykonanie tohto cieľa.

Ďalšie informácie

Spoločnosť Microsoft poskytuje príklady programovania len pre ilustráciu bez výslovnej alebo implicitnej záruky. To sa týka (okrem iného) aj implicitných záruk obchodovateľnosti alebo vhodnosti na konkrétny účel. Článok predpokladá, že poznáte predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci oddelenia podpory spoločnosti Microsoft vám môžu pomôcť vysvetliť funkčnosť konkrétneho postupu. Tieto príklady však nebudú upravovať, aby poskytovali pridané funkcie alebo vytvárať procedúry podľa vašich špecifických požiadaviek.

Ukážka makra programu 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: Príkaz ActiveCell.Offset(0, 1). Vzorec R1C1 možno nahradiť príkazom ActiveCell.Offset(0, 1). Vzorec. S rovnakým úspechom ich môžete použiť, ak používate len text a čísla (nie vzorce). R1C1 použitý na konci prvého príkazu odkazuje na riadok prvý a prvý stĺpec a ide o formu použitú v príkladoch Pomocníka.
 

Používanie makra v programe Microsoft Office Excel 2007

  1. Otvorte zošit, ktorý obsahuje údaje.

  2. Stlačte kombináciu klávesov ALT + F11 na spustenie editora jazyka Visual Basic.

  3. V ponuke Vložiť kliknite na položku Modul a vložte modul. Zadajte makro do okna s kódom modulu.

  4. V ponuke Súbor kliknite na položky Zavrieť a Vráťte sa do Microsoft Excelu.

  5. Vyberte hárok obsahujúci údaje, ktoré chcete zreťaziť.

  6. Kliknite na hornú bunku v pravom stĺpci údajov, ktoré chcete zreťaziť. Ak napríklad bunky A1:A100 a B1:B100 obsahujú údaje, kliknite na bunku B1.

  7. Kliknite na kartu Vývojár . Ak sa karta Vývojár nezobrazuje, postupujte takto:

    1. Kliknite na tlačidlo Microsoft Office a potom kliknite na položku Možnosti programu Excel.
    2. Kliknite na položku Obľúbené.
    3. Kliknutím vyberte začiarkavacie políčko Zobraziť kartu Vývojár na páse s nástrojmi .
    4. Kliknutím na tlačidlo OK zatvorte dialógové okno Excel – možnosti.

  8. V skupine Kód kliknite na položku Makrá.

  9. Vyberte makro ConcatColumns a potom kliknite na tlačidlo Spustiť.

Používanie makra v Microsoft Office Exceli 2003 a v predchádzajúcich verziách Excelu

  1. Otvorte zošit, ktorý obsahuje údaje.
  2. Stlačte kombináciu klávesov ALT + F11 na spustenie editora jazyka Visual Basic.
  3. V ponuke Vložiť kliknite na položku Modul a vložte modul. Zadajte makro do okna s kódom modulu.
  4. V ponuke Súbor kliknite na položky Zavrieť a Vráťte sa do Microsoft Excelu.
  5. Vyberte hárok obsahujúci údaje, ktoré chcete zreťaziť.
  6. Kliknite na hornú bunku v pravom stĺpci údajov, ktoré chcete zreťaziť. Ak napríklad bunky A1:A100 a B1:B100 obsahujú údaje, kliknite na bunku B1.
  7. V ponuke Nástroje ukážte na položku Makrá a potom kliknite na položku Makro. Vyberte makro ConcatColumns a potom kliknite na tlačidlo Spustiť.