VBA Nối các chuỗi văn bản với nhau (& - Ký hiệu và)

Chúng ta đã xem qua phần giới thiệu về các hàm chuỗi trong hướng dẫn Hàm chuỗi và hàm con trong VBA của chúng tôi. Bây giờ chúng ta sẽ xem xét cách nối các chuỗi văn bản.

Kết nối chuỗi

Bạn có thể sử dụng toán tử & trong VBA để nối các chuỗi văn bản.

1 MsgBox "Hợp nhất" & "Văn bản"

Nối các ô

Bạn cũng có thể nối các ô với nhau. Dưới đây, chúng tôi có các chuỗi văn bản trong A1 và B1:

Đoạn mã sau chỉ cho bạn cách nối các chuỗi văn bản từ ô A1 và B1 bằng toán tử &, trong ô C1:

1 Phạm vi ("C1"). Giá trị = Phạm vi ("A1"). Giá trị & Phạm vi ("B1"). Giá trị

Kết quả là:

Nối các biến

Đây là quy trình đầy đủ để nối hai ô với nhau bằng cách sử dụng các biến chuỗi.

1234567891011 Sub ConcatenateStrings ()Dim StringOne as StringDim StringTwo dưới dạng chuỗiStringOne = Range ("A1"). Giá trịStringTwo = Phạm vi ("B1"). Giá trịPhạm vi ("C1"). Giá trị = StringOne & StringTwoKết thúc Sub

Sử dụng & Operator với Spaces

Khi bạn muốn bao gồm các khoảng trắng mà bạn sử dụng và kết hợp với ”“. Đoạn mã sau đây cho bạn biết bạn sẽ bao gồm khoảng trắng như thế nào:

123456789101112 Sub ConcatenatingStringsWithSpaces ()Dim StringOne As StringDim String Hai As StringDim String Ba As StringStringOne = "Đây là"StringTwo = "văn bản"StringThree = StringOne & "" & StringTwoMsgBox StringThreeKết thúc Sub

Kết quả MessageBox là:

Sử dụng toán tử & để ghép một dấu ngoặc kép

Giả sử chuỗi văn bản của bạn có chứa dấu ngoặc kép, đoạn mã sau cho bạn biết cách bao gồm dấu ngoặc kép trong chuỗi văn bản:

12345678910111213 Sub ConcatenatingAQuotationMark ()Dim StringOne As StringDim String Hai As StringDim String Ba As StringStringOne = "Đây là dấu ngoặc kép"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeKết thúc Sub

Kết quả là:

Đặt chuỗi trên một dòng mới

Giả sử bạn có năm chuỗi văn bản, bạn có thể đặt mỗi chuỗi văn bản trên một dòng hoặc đoạn mới, sử dụng Hàm vbNewLine, vbCrLf, vbCr hoặc Chr. Đoạn mã sau chỉ cho bạn cách đặt mỗi chuỗi văn bản trên một dòng mới:

123456789101112131415161718 Sub PuttingEachTextStringOnANewLine ()Dim StringOne As StringDim String Hai As StringDim String Ba As StringDim StringFour As StringDim StringFive As StringStringOne = "Đây là chuỗi đầu tiên"StringTwo = "Đây là chuỗi thứ hai"StringThree = "Đây là chuỗi thứ ba"StringFour = "Đây là chuỗi thứ tư"StringFive = "Đây là chuỗi thứ năm"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringThree & vbCr & StringFour & Chr (13) & StringFiveKết thúc Sub

Kết quả là:

wave wave wave wave wave