Hogyan használjuk az Excel VBA-ban az összekapcsolást (4 módszer)?

Hugh West

01-06-2023 Makrók &; Excel VBA
  • Ossza Meg Ezt
Hugh West

Az Excelben az összekapcsolás két karakterlánc összekapcsolása egyetlen karakterlánc kialakítására. Egyszerűen fogalmazva, ha van egy táblázatunk, amelynek egyik oszlopában a keresztnevek, a másikban pedig a vezetéknevek szerepelnek, akkor az összekapcsolási eljárással a másodperc töredéke alatt egy cellában összekapcsolhatjuk és egyesíthetjük őket. Az Excelben van egy függvényünk, az úgynevezett CONCATENATE () amely lehetővé teszi számunkra, hogy ezt az összekapcsolást elvégezzük. Azonban a VBA , ez a fajta függvény nem megengedett. Nem használhatjuk a CONCATENATE () a VBA kódban, mivel nem fog működni. VBA nem rendelkezik beépített függvényekkel, és nem tudjuk használni a táblázatkezelő függvényeket. Ezért ez a lecke bemutatja, hogyan használhatja a VBA az Excelben több cella, oszlop és sor összekapcsolásához.

Gyakorlati munkafüzet letöltése

Töltse le ezt a gyakorlati munkafüzetet, hogy gyakorolhasson, miközben ezt a cikket olvassa.

VBA Összekapcsolási függvény.xlsm

Bevezetés a VBA Konkatenate funkciójába

Amint említettük, hogy az Excel nem rendelkezik beépített funkcióval a VBA Concatenate számára, de különböző karakterláncok operátorokkal történő kombinálásával függvényként is működhet. Itt az erősítőjelet használjuk. (&) mint az üzemeltetőnk.

⟴ Szintaxis

String1 = " Első szöveg"

String2 = " Második szöveg"

⟴ Visszatérési érték

Return_value = String1 & String2

A VBA Concatenate funkció 4 különböző felhasználása az Excelben

Itt 4 különböző megközelítést fogunk használni a konkatenálási folyamat elvégzésére. Különböző operátorokat fogunk alkalmazni a következővel kombinálva VBA kódot, hogy ezt elérjük.

1. Az Ampersand (&) operátor használata a VBA Concatenate celláinak összekapcsolásához

Amint az alábbi képernyőképen látható, két oszlopos adatgyűjteményünk van, amelynek egyik oszlopában a keresztnevek, a másikban pedig a vezetéknevek vannak. A két oszlop összevonásával most már megkaphatjuk a teljes neveket. Mert VBA nem rendelkezik beépített metódussal az összekapcsoláshoz, ezért az ampersandet fogjuk használni. (&) az alábbi utasításokban részletezettek szerint.

1. lépés:

  • Először is, nyomja meg a Alt + F11 a Makróval támogatott munkalap.
  • Ezután kattintson a
  • Válassza ki a címet. Modul .

2. lépés:

  • Két cella egy cellává történő egyesítéséhez másolja ki és illessze be a következőket VBA 
 Sub Concatenate2() Dim String1 As String Dim String2 As String Dim full_string As String String String1 = Cells(5, 2).Value String2 = Cells(5, 3).Value Cells(5, 5).Value = String1 & String2 MsgBox (full_string) End Sub

Tessék,

  • String1 = Cells(5, 2).Value az első cella helye B5 , sor 5, és oszlop 2 .
  • String2 = Cells(5, 3).Value a második cella helye C5 , sor 5, és oszlop 3 .
  • Cells(5, 5).Value = String1 & String2 az eredménycellák helye E5 , sor 5 és oszlop 5 .
  • String1 & String2 a két húr, amelyet az erősítőjel köt össze. (&)

3. lépés:

  • Mentés és nyomja meg a F5 a program futtatásához.

Ezért az eredményt a E5 cellája az aktuális munkalapon.

4. lépés:

  • Kövesse és ismételje meg a lépéseket a többi cellánál, és kapja meg az alábbi képen látható eredményeket.

Megjegyzés. Futtatáshoz VBA kódot, minden alkalommal győződjön meg róla, hogy az Excel fájlját az Excel Makróval támogatott munkalap (xlsm.) formátum.

További információ: A VBA StrComp használata Excelben (5 általános példa)

2. Plusz (+) operátor használata a cellák összekapcsolásához a VBA Concatenate-ban

Az előző szakaszban leírtaknak megfelelően az erősítőjelet használtuk a (&) operátorral a cellák karakterláncainak összekapcsolására. Ugyanezt az eredményt kaphatjuk a plusz (+) jel helyett az erősítőjel (&) operátor. Ehhez kövesse az alábbi lépéseket.

1. lépés:

  • Megnyitni Makró az Excelben, nyomja meg a Alt + F11 .
  • Kattintson a címre. Beillesztés és válassza a
  • A programoldal megnyitása után illessze be a következőket VBA 
 Sub Concatenate2() Dim String1 As String Dim String2 As String Dim full_string As String String String1 = Cells(5, 2).Value String2 = Cells(5, 3).Value Cells(5, 5).Value = String1 + String2 MsgBox (full_string) End Sub

Tessék,

  • Cells(5, 5).Value = String1 + String2 ez a sor, amit használunk plusz (+) jel helyett az ampersand (&)

2. lépés:

  • A beillesztés után mentse el és nyomja meg a F5 A program futtatásához. Következésképpen, látni fogja a cellák változását. E5 .

  • A végleges eredmények eléréséhez töltse ki a szükséges cellákat az előző lépések ismételt elvégzésével.

Bővebben: A VBA StrConv funkció használata (5 példa)

Hasonló olvasmányok:

  • Hogyan hívhat egy alprogramot a VBA-ban az Excelben (4 példa)
  • Érték visszaadása a VBA-funkcióban (tömb és nem tömb értékek)
  • A VBA DIR funkció használata az Excelben (7 példa)
  • A VBA UCASE funkció használata Excelben (4 példa)
  • Az InStr függvény használata a VBA-ban (3 példa)

3. Több oszlop hozzáadása a VBA Concatenate használatával

Az előző két megközelítésben azt tárgyaltuk, hogyan lehet két cellát kombinálni. Ha azonban az egész oszlopra szeretnénk alkalmazni, akkor az egyesével történő hozzáadás sokáig tart. Megtanítjuk, hogyan lehet több oszlopot teljesen összeadni a következővel VBA kódot erre.

1. lépés:

  • Először is, hogy megnyissa Makró sajtó Alt + F11
  • Válassza ki a címet. Modul a Beillesztés lap
  • Ezután illessze be a következőket VBA 
 Sub ConcatCols() 'B & C oszlopok összekapcsolása az E oszlopban Dim LastRow As Long With Worksheets("Sheet3") LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row With .Range("E5:E" & LastRow) .Formula = "=B5&C5" .Value = .Value End With End End With End Sub

Tessék,

  • With Worksheets("Sheet3") az aktuális munkalap neve.
  • LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row az első oszlop neve.
  • With .Range("E5:E" & LastRow) az eredmény visszatérési cellatartomány.
  • .Formula = "=B5&C5" a tartomány első cellájához való csatlakozás képlete.

2. lépés:

  • Végül mentse el és nyomja meg a F5 a program futtatásához.

Ennek eredményeképpen az eredményeket teljes egészében egy oszlopban kapja meg.

További információ: A VBA Rnd használata Excelben (4 módszer)

4. Több sor összekapcsolása a VBA Concatenate használatával

A több oszlop hozzáadásán kívül alkalmazhatjuk a VBA kódot, hogy több sort egy sorba kapcsoljon össze. Ahogy az alábbi képernyőképen látható, három sort szeretnénk egy sorba kapcsolni. A sorok összekapcsolásához kövesse az alábbi egyszerű lépéseket.

1. lépés:

  • Aktiváláshoz Makró az Excelben, nyomja meg a Alt + F11 .
  • Ezután válassza a Modul a Beillesztés
  • A sorok összekapcsolásához illessze be a VBA 
 Sub vba_concatenate() Dim rng As Range Dim i As String Dim SourceRange As Range Set SourceRange = Range("B5:D5") For Each rng In SourceRrange i = i & rng & " " Next rng Range("B8").Value = Trim(i) End Sub

Tessék,

  • Set SourceRange = Range("B5:D5") a forráscella tartománya.
  • Range("B8").Value = Trim(i) a visszatérő cella száma.

2. lépés:

  • Végül mentse a programot, és nyomja meg a F5 futni.

Így a három sor összekapcsolásának végeredménye a következő cellában jelenik meg B8 .

Bővebben: A felső sorok elrejtésének megszüntetése az Excelben (7 módszer)

Következtetés

Összefoglalva, remélem, hogy ez a bejegyzés egyértelmű utasításokat adott arra vonatkozóan, hogyan lehet használni a VBA az Excelben különböző módon összekapcsolni. Mindezeket a technikákat meg kell tanulni és alkalmazni az adatokon. Vizsgálja meg a gyakorlókönyvet, és alkalmazza az újonnan szerzett tudását. Az Önök kedves támogatásának köszönhetően motiváltak vagyunk, hogy továbbra is ilyen workshopokat hozzunk létre.

Kérjük, ne habozzon kapcsolatba lépni velünk, ha bármilyen kérdése van. Kérjük, ossza meg velünk véleményét az alábbi megjegyzés rovatban.

A Exceldemy A csapat folyamatosan válaszol a kérdéseire.

Előző poszt Hogyan másolhat vízszintes és függőleges beillesztés az Excelben
Következő bejegyzés Hogyan illesszünk be egy 3D-s klaszterezett oszlopdiagramot az Excelben (egyszerű lépésekkel)?

Hugh West nagy tapasztalattal rendelkező Excel-oktató és elemző, több mint 10 éves tapasztalattal az iparágban. Számvitel és pénzügy szakos alapdiplomát, valamint üzleti adminisztrációból mesterképzést szerzett. Hugh szenvedélye a tanítás, és egyedülálló tanítási megközelítést dolgozott ki, amely könnyen követhető és érthető. Az Excelben szerzett szakértői tudása világszerte több ezer diáknak és szakembernek segített abban, hogy készségeiket és karrierjüket kiválóan teljesítsék. Hugh blogján keresztül megosztja tudását a világgal, ingyenes Excel-oktatóanyagokat és online képzéseket kínálva, hogy segítse az egyéneket és a vállalkozásokat teljes potenciáljuk kibontakoztatásában.