VBA makro Excelis andmeveergude ühendamiseks

Rakenduskoht
Excel 2010

Kokkuvõte

Microsoft Excelis saate makro abil ühendada andmed kahes külgnevas veerus ja kuvada tulemi teie andmeid sisaldavatest veergudest paremal asuvas veerus. See artikkel sisaldab microsoft Visual Basic for Applicationsi (VBA) makro (alamprotseduuri) näidist selle saavutamiseks.

Veel teavet

Microsoft pakub programmeerimise näiteid ainult illustreerimiseks, ilma et garantii oleks väljendatud või kaudselt. See hõlmab kaubastatavuse või kindlaks otstarbeks sobivuse kaudseid garantiisid, kuid mitte ainult. Selles artiklis eeldatakse, et olete tuttav kuvatava programmeerimiskeelega ja tööriistadega, mida kasutatakse protseduuride loomiseks ja silumiseks. Microsofti tugiteenuste insenerid saavad aidata selgitada konkreetse toimingu funktsionaalsust. Kuid need näited ei muuda neid näiteid, et pakkuda teie vajadustele vastavaid lisafunktsioone või koostada protseduure.

Visual Basic for Applicationsi (VBA) näidismakro


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

MÄRKUS. Lause ActiveCell.Offset(0; 1). FormulaR1C1 saab asendada lausega ActiveCell.Offset(0; 1). Valem. Neid saab kasutada võrdse eduga, kui kasutate ainult teksti ja arve (mitte valemeid). Esimese lause lõpus kasutatav R1C1 viitab esimesele reale, esimesele veerule ja on spikri näidetes kasutatav vorm.
 

Makro kasutamine rakenduses Microsoft Office Excel 2007

  1. Avage andmeid sisaldav töövihik.

  2. Visual Basic Editori käivitamiseks vajutage klahvikombinatsiooni ALT+F11.

  3. Mooduli lisamiseks klõpsake menüü Lisa nuppu Moodul . Tippige makro mooduli koodiaknasse.

  4. Klõpsake menüü Fail käsku Sule ja naaske Microsoft Excelisse.

  5. Valige tööleht, mis sisaldab ühendatavaid andmeid.

  6. Klõpsake parempoolses andmeveerus ülemist lahtrit, mille soovite ühendada. Kui näiteks lahtrid A1:A100 ja B1:B100 sisaldavad andmeid, klõpsake lahtrit B1.

  7. Klõpsake menüüd Arendaja . Kui menüüd Arendaja ei kuvata, tehke järgmist.

    1. Klõpsake Microsoft Office’i nuppu  ja siis nuppu Exceli suvandid.
    2. Klõpsake nuppu Populaarsed.
    3. Klõpsake lindil menüü Kuva arendaja märkimiseks.
    4. Dialoogiboksi Exceli suvandid sulgemiseks klõpsake nuppu OK.

  8. Klõpsake jaotises Kood nuppu Makrod.

  9. Valige makro ConcatColumns ja seejärel klõpsake nuppu Käivita.

Makro kasutamine rakenduses Microsoft Office Excel 2003 ja Exceli varasemates versioonides

  1. Avage andmeid sisaldav töövihik.
  2. Visual Basic Editori käivitamiseks vajutage klahvikombinatsiooni ALT+F11.
  3. Mooduli lisamiseks klõpsake menüü Lisa nuppu Moodul . Tippige makro mooduli koodiaknasse.
  4. Klõpsake menüü Fail käsku Sule ja naaske Microsoft Excelisse.
  5. Valige tööleht, mis sisaldab ühendatavaid andmeid.
  6. Klõpsake parempoolses andmeveerus ülemist lahtrit, mille soovite ühendada. Kui näiteks lahtrid A1:A100 ja B1:B100 sisaldavad andmeid, klõpsake lahtrit B1.
  7. Osutage menüü Tööriistad käsule Makrod ja seejärel klõpsake käsku Makro. Valige makro ConcatColumns ja seejärel klõpsake nuppu Käivita.