VBA makro Andmeveergude Excelis

Kokkuvõte

Microsoft Excel, saate makro concatenate kahe külgneva veeru andmed ja kuvab tulemi veerust paremale veerud, mis sisaldavad teie andmeid. See artikkel sisaldab proovi Microsoft Visual Basic for Applications (VBA) makro (alamprotseduur) selle saavutamiseks.

Lisateabe saamiseks

Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita. See hõlmab, kuid ei piirdu kaudseid garantiisid turustatavuse või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete demonstreeritava programmeerimiskeelega programmeerimise keel ning luua protseduuride ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri talitlust selgitada. Siiski ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure teie konkreetsetele nõuetele.

Proovi Visual Basic for Applications (VBA) makro

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 võib asendada lause ActiveCell.Offset (0, 1). Valem. Need saab kasutada võrdne edukalt, kui kasutate teksti ja numbreid ainult (mitte valemite). Kasutada esimese lause lõpus R1C1 viitab rida üks veerg, üks ja on kasutatud näited abi vormi.

Makro kasutamine Microsoft Office Excel 2007

  1. Avage töövihik, mis sisaldab andmeid.

  2. Vajutage klahvikombinatsiooni ALT + F11 Visual Basicu redaktori.

  3. Klõpsake menüü Lisa käsku moodul lisada moodul. Mooduli kood aknas tippige makro.

  4. Klõpsake menüü failsulgeda ja naasta Microsoft Excel.

  5. Valige töölehel, mis sisaldab andmeid, mida soovite liita.

  6. Klõpsake ülemist lahtrit parempoolses veerus andmed, mida soovite liita. Näiteks kui lahtrid A1: A100 ja B1:B100 sisaldavad andmeid, klõpsake lahtrisse B1.

  7. Klõpsake menüü arendaja . Kui vahekaart arendaja ei kuvata, toimige järgmiselt.

    1. Klõpsake Microsoft Office'i nuppuja seejärel käsku Exceli suvandid.

    2. Klõpsake nuppu populaarsed.

    3. Klõpsake valimiseks märkeruut Kuva Arendaja vahekaart lindil .

    4. Klõpsake nuppu OK , et sulgeda dialoogiboksi Exceli suvandid .

  8. Kood nuppu makrod .

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

Kuidas kasutada makro Microsoft Office Excel 2003 ja Exceli varasemates versioonides

  1. Avage töövihik, mis sisaldab andmeid.

  2. Vajutage klahvikombinatsiooni ALT + F11 Visual Basicu redaktori.

  3. Klõpsake menüü Lisa käsku moodul lisada moodul. Mooduli kood aknas tippige makro.

  4. Klõpsake menüü failsulgeda ja naasta Microsoft Excel.

  5. Valige töölehel, mis sisaldab andmeid, mida soovite liita.

  6. Klõpsake ülemist lahtrit parempoolses veerus andmed, mida soovite liita. Näiteks kui lahtrid A1: A100 ja B1:B100 sisaldavad andmeid, klõpsake lahtrisse B1.

  7. Menüü Tööriistad käsk makrodeja klõpsake makro. Valige ConcatColumns makro ja seejärel klõpsake nuppu Käivita.

Viited

Visual Basic for Applications kohta lisateabe saamiseks klõpsake Microsofti teabebaasi (Knowledge Base) artikli kuvamiseks järgmist artiklinumbrit:

226118 loend, mis on saadaval programmeerimiseks Visual Basic for Applications programmeerimine

Kas vajate veel abi?

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liitu Microsofti Insideri programmis osalejad

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×