Összefoglalás
A Microsoft Excelben makróval összefűzheti az adatokat két szomszédos oszlopban, és megjelenítheti az eredményt az adatokat tartalmazó oszlopoktól jobbra lévő oszlopban. Ez a cikk egy Minta Microsoft Visual Basic for Applications (VBA) makrót (Sub procedure) tartalmaz ennek végrehajtásához.
További információ
A Microsoft csak illusztrációkhoz kínál programozási példákat, kifejezett vagy hallgatólagos garancia nélkül. Ez magában foglalja, de nem kizárólagosan az egy adott célra való eladhatóságra vagy alkalmasságra vonatkozó vélelmezett garanciákat. Ez a cikk feltételezi, hogy ismeri a bemutatott programozási nyelvet, valamint az eljárások létrehozásához és hibakereséséhez használt eszközöket. A Microsoft támogatási szakemberei segíthetnek elmagyarázni egy adott eljárás működését. Azonban nem módosítják ezeket a példákat, hogy további funkciókat biztosítsanak, vagy eljárásokat építsenek ki az adott követelményeknek megfelelően.
Példa Visual Basic for Applications (VBA) makróra
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
MEGJEGYZÉS: Az ActiveCell.Offset(0, 1) utasítás. A FormulaR1C1 az ActiveCell.Offset(0, 1) utasítással helyettesíthető. Képlet. Ha csak szöveget és számokat használ (képleteket nem). Az első utasítás végén használt R1C1 az első sorra, az első oszlopra hivatkozik, és a súgóban példákban használt űrlap.
A makró használata a Microsoft Office Excel 2007-ben
-
Nyissa meg az adatokat tartalmazó munkafüzetet.
-
Az ALT+F11 billentyűkombinációt lenyomva indítsa el a Visual Basic Editor alkalmazást.
-
A Beszúrás menüben kattintson a Modul elemre egy modul beszúrásához. Írja be a makrót a modul kódablakában.
-
A Fájl menüben kattintson a Bezárás és visszatérés a Microsoft Excelbe elemre.
-
Jelölje ki az összefűzni kívánt adatokat tartalmazó munkalapot.
-
Kattintson az összefűzni kívánt adatok jobb oldali oszlopának felső cellájára. Ha például az A1:A100 és a B1:B100 cella tartalmaz adatokat, kattintson a B1 cellára.
-
Kattintson a Fejlesztőeszközök fülre. Ha a Fejlesztőeszközök lap nem jelenik meg, kövesse az alábbi lépéseket:
-
Kattintson a Microsoft Office gombra, majd Az Excel beállításai gombra.
-
Kattintson a Népszerű elemre.
-
Ide kattintva jelölje be a Fejlesztőeszközök lap megjelenítése a menüszalagon jelölőnégyzetet.
-
Az Excel beállításai párbeszédpanel bezárásához kattintson az OK gombra.
-
-
Kattintson a Makrók elemre a Kód csoportban.
-
Jelölje ki a ConcatColumns makrót, majd kattintson a Futtatás gombra.
A makró használata a Microsoft Office Excel 2003-ban és az Excel korábbi verzióiban
-
Nyissa meg az adatokat tartalmazó munkafüzetet.
-
Az ALT+F11 billentyűkombinációt lenyomva indítsa el a Visual Basic Editor alkalmazást.
-
A Beszúrás menüben kattintson a Modul elemre egy modul beszúrásához. Írja be a makrót a modul kódablakában.
-
A Fájl menüben kattintson a Bezárás és visszatérés a Microsoft Excelbe elemre.
-
Jelölje ki az összefűzni kívánt adatokat tartalmazó munkalapot.
-
Kattintson az összefűzni kívánt adatok jobb oldali oszlopának felső cellájára. Ha például az A1:A100 és a B1:B100 cella tartalmaz adatokat, kattintson a B1 cellára.
-
Az Eszközök menüben mutasson a Makrók pontra, majd kattintson a Makró parancsra. Jelölje ki a ConcatColumns makrót, majd kattintson a Futtatás gombra.
