VBA združite besedilne nize skupaj (& - Ampersand)

V uvodu o funkcijah nizov in podnizov VBA smo že preučili uvod v funkcije nizov. Zdaj bomo pogledali, kako združiti besedilne nize.

Združite strune

Za združevanje besedilnih nizov lahko uporabite operator & v VBA.

1	MsgBox "Združi" in "Besedilo"

Združite celice

Celice lahko tudi povežete skupaj. Spodaj so besedilni nizi v A1 in B1:

Naslednja koda prikazuje, kako se z operaterjem & v celici C1 pridružijo besedilni nizi iz celic A1 in B1:

1	Razpon ("C1"). Vrednost = Razpon ("A1"). Vrednost in obseg ("B1"). Vrednost

Rezultat je:

Združite spremenljivke

To je celoten postopek združevanja dveh celic skupaj s spremenljivkami niza.

1234567891011

Sub ConcatenateStrings ()Dim StringOne kot nizZatemni niz dva kot nizStringOne = Obseg ("A1"). VrednostStringTwo = Obseg ("B1"). VrednostRazpon ("C1"). Vrednost = StringOne & StringTwoEnd Sub

Uporaba & Operator s Spaces

Ko želite vključiti presledke, ki jih uporabljate & v povezavi z »«. Naslednja koda prikazuje, kako vključite presledke:

123456789101112

Sub ConcatenatingStringsWithSpaces ()Dim StringOne As StringZatemni niz Dva kot nizDim StringTri As StringStringOne = "To je"StringTwo = "besedilo"StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub

Rezultat MessageBox je:

Uporaba & Operatorja za povezovanje narekovaja

Recimo, da vaš besedilni niz vsebuje narekovaje, naslednja koda pa vam pokaže, kako v besedilni niz vključite narekovaje:

12345678910111213

Sub ConcatenatingAQuotationMark ()Dim StringOne As StringZatemni niz Dva kot nizDim StringTri As StringStringOne = "To je narekovaj"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub

Rezultat je:

Postavitev nizov v novo vrstico

Recimo, da imate pet besedilnih nizov, vsak besedilni niz lahko postavite v novo vrstico ali odstavek z uporabo funkcij vbNewLine, vbCrLf, vbCr ali Chr. Naslednja koda prikazuje, kako vsak besedilni niz postaviti v novo vrstico:

123456789101112131415161718

Sub PuttingEachTextStringOnANewLine ()Dim StringOne As StringZatemni niz Dva kot nizDim StringTri As StringZatemni niz Štiri kot nizDim StringFive As StringStringOne = "To je prvi niz"StringTwo = "To je drugi niz"StringThree = "To je tretji niz"StringFour = "To je četrti niz"StringFive = "To je peti niz"MsgBox StringOne & vbNovin & StringTwo & vbCrLf & StringTree & vbCr & StringFour & Chr (13) & StringFiveEnd Sub

Rezultat je: