Kuidas kasutada Exceli VBAs konkateerimist (4 meetodit)

Hugh West

01-06-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

Excelis on konkatenatsioon kahe stringi ühendamine üheks stringiks. Lihtsamalt öeldes, kui meil on tabel, kus ühes veerus on eesnimed ja teises veerus perekonnanimed, saame kasutada konkatenatsiooniprotseduuri, et neid sekundi murdosa jooksul ühte lahtrisse liita ja ühendada. Excelis on meil olemas funktsioon nimega CONCATENATE () mis võimaldab meil seda konkatenatsiooni teha. Siiski on in VBA , ei ole seda tüüpi funktsioon lubatud. Me ei saa kasutada CONCATENATE () VBA koodis, kuna see ei tööta. Kuna VBA puuduvad sisseehitatud funktsioonid ja me ei saa kasutada tabelarvutusfunktsioone. Nii et see õppetund näitab teile, kuidas kasutada VBA Konkateerimine, et ühendada mitu lahtrit, veergu ja rida Excelis.

Lae alla praktiline töövihik

Lae alla see harjutusvihik, et seda artiklit lugedes harjutada.

VBA Konkateerimisfunktsioon.xlsm

VBA konkateerimisfunktsiooni tutvustus

Nagu me mainisime, et Excelil ei ole VBA Concatenate jaoks ühtegi sisseehitatud funktsiooni, kuid me saame selle teha funktsioonina, kombineerides erinevaid stringisid operaatoritega. Siin kasutame ampersandi (&) kui meie operaator.

⟴ Süntaks

String1 = " Esimene tekst"

String2 = " Teine tekst"

⟴ Tagastusväärtus

Return_value = String1 & String2

4 VBA Concatenate-funktsiooni erinevat kasutamist Excelis

Siinkohal kasutame 4 erinevat lähenemist, et teostada konkatenatsiooniprotsessi. Me kasutame erinevaid operaatoreid koos VBA koodi, et seda saavutada.

1. Kasuta Ampersand (&) operaatorit lahtrite ühendamiseks VBA Concatenate'is

Nagu on näidatud allpool oleval ekraanipildil, on meil kahesambaline andmekogum, kus ühes veerus on eesnimed ja teises veerus perekonnanimed. Kahe veeru ühendamise teel saame nüüd kogu nimed. Kuna VBA ei ole ühtegi sisseehitatud meetodit ühendamiseks, kasutame ampersandi (&) operaator, nagu on üksikasjalikult kirjeldatud allpool olevates juhistes.

1. samm:

  • Kõigepealt vajutage Alt + F11 avada Makrofunktsiooniga tööleht.
  • Seejärel klõpsake
  • Valige Moodul .

2. samm:

  • Kahe lahtri ühendamiseks üheks lahtriks kopeeri ja kleebi sisse järgmine tekst 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

Siin,

  • String1 = Cells(5, 2).Value on esimese raku asukoht B5 , rida 5, ja veerg 2 .
  • String2 = Cells(5, 3).Value on teise raku asukoht C5 , rida 5, ja veerg 3 .
  • Cells(5, 5).Value = String1 & String2 on tulemuse lahtri asukoht E5 , rida 5 ja veerg 5 .
  • String1 & String2 on kaks stringi, mis on ühendatud ampersandiga (&)

3. samm:

  • Salvesta ja vajuta F5 programmi käivitamiseks.

Seetõttu saate tulemuse E5 lahtrisse oma praegusel töölehel.

4. samm:

  • Järgige ja korrake samme ülejäänud lahtrite puhul ning saate tulemused, nagu on näidatud alloleval pildil.

Märkus. Et käivitada VBA kood, veenduge iga kord, et teie Exceli fail on salvestatud Excelis Makrofunktsiooniga tööleht (xlsm.) formaat.

Loe edasi: Kuidas kasutada VBA StrCompi Excelis (5 tavalist näidet)

2. Kasuta pluss (+) operaatorit lahtrite ühendamiseks VBA Concatenate'is

Nagu eelmises lõigus kirjeldatud, oleme kasutanud ampersandi (&) operaatoriga, et ühendada lahtrite stringid. Sama tulemuse saad, kui kasutad pluss-operatorit plus (+) märk ampersandi asemel (&) operaator. Selle tegemiseks järgige järgmisi samme.

1. samm:

  • Avamine Makro Excelis, vajutage Alt + F11 .
  • Klõpsake Sisesta ja valige
  • Pärast programmi lehekülje avamist kleepige järgmine tekst sisse 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

Siin,

  • Cells(5, 5).Value = String1 + String2 on see rida, mida me kasutame pluss (+) märk ampersandi asemel (&)

2. samm:

  • Pärast kleepimist salvestage ja vajutage F5 programmi käivitamiseks. Sellest tulenevalt näete muutust lahtris E5 .

  • Lõplike tulemuste saamiseks täitke nõutavad lahtrid, sooritades eelmised sammud uuesti.

Loe edasi: Kuidas kasutada VBA StrConv funktsiooni (5 näidet)

Sarnased lugemised:

  • Kuidas kutsuda VBA allprogramme Excelis (4 näidet)
  • VBA-funktsioonis väärtuse tagastamine (nii massiivi kui ka mitte-massiivi väärtused)
  • Kuidas kasutada VBA DIR-funktsiooni Excelis (7 näidet)
  • Kasutage VBA UCASE funktsiooni Excelis (4 näidet)
  • Kuidas kasutada funktsiooni InStr VBAs (3 näidet)

3. Mitme veeru lisamine VBA Concatenate abil

Kahes eelmises lähenemisviisis arutasime, kuidas ühendada kaks lahtrit. Kui aga tahame seda rakendada kogu veeru suhtes, võtab ükshaaval lisamine kaua aega. Õpetame, kuidas lisada mitu veergu täielikult koos VBA kood selle jaoks.

1. samm:

  • Esiteks, et avada Makro vajutage Alt + F11
  • Valige Moodul alates Sisesta vahekaart
  • Seejärel kleepige järgmine tekst VBA 
 Sub ConcatCols() 'ühendame veerud B & C veerus E 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 With End Sub

Siin,

  • With Töölehed("Sheet3") on teie praeguse töölehe nimi.
  • LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row on esimese veeru nimi.
  • With .Range("E5:E" & LastRow) on tulemuse tagastamise lahtri vahemik.
  • .Formula = "=B5&C5" on valem, millega ühendatakse vahemiku esimene lahter.

2. samm:

  • Seejärel salvestage ja vajutage F5 programmi käivitamiseks.

Selle tulemusena saate tulemused täielikult veerus.

Loe edasi: Kuidas kasutada VBA Rnd-i Excelis (4 meetodit)

4. Mitme rea ühendamine VBA Concatenate abil

Lisaks mitme veeru lisamisele saame ka rakendada VBA kood mitme rea ühendamiseks üheks. Nagu allpool oleval ekraanipildil on näidatud, tahame ühendada kolm rida üheks. Ridade ühendamiseks järgige alljärgnevaid lihtsaid samme.

1. samm:

  • Aktiveerimiseks Makro Excelis, vajutage Alt + F11 .
  • Seejärel valige Moodul alates Sisesta
  • Ridade ühendamiseks kleepige rida 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 SourceRange i = i & rng & " " Next rng Range("B8").Value = Trim(i) End Sub

Siin,

  • Set SourceRange = Range("B5:D5") on lähtekärgede vahemik.
  • Range("B8").Value = Trim(i) on tagasiside lahtri number.

2. samm:

  • Lõpuks salvestage programm ja vajutage F5 käivitada.

Seega kuvatakse kolme rea ühendamise lõpptulemus lahtris B8 .

Loe edasi: Kuidas eemaldada Exceli ülemised read (7 meetodit)

Kokkuvõte

Kokkuvõtteks loodan, et see postitus on andnud selged juhised, kuidas kasutada VBA liita Excelis erinevatel viisidel. Kõik need tehnikad tuleks ära õppida ja kasutada oma andmete peal. Uurige praktikaraamatut ja rakendage oma uusi teadmisi. Tänu teie lahkele toetusele oleme motiveeritud jätkama selliste töötubade loomist.

Palun võtke meiega ühendust, kui teil on küsimusi. Palun andke meile oma arvamust allpool olevas kommentaariumis teada.

The Exceldemy Meeskond vastab pidevalt teie küsimustele.

Eelmine postitus Kuidas kopeerida horisontaalne ja kleepida vertikaalne Excelis
Järgmine postitus Kuidas sisestada Exceli 3D klastreeritud veergude diagrammi (lihtsate sammudega)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.