Ми вже розглянули вступ до рядкових функцій у нашому підручнику VBA String and Substrings Functions. Зараз ми розглянемо, як об’єднати текстові рядки.
З’єднайте струни
Ви можете використовувати оператор & у VBA для з'єднання текстових рядків.
| 1 | Повідомлення "Злиття" та "Текст" |
З’єднайте клітини
Ви також можете об'єднати клітини разом. Нижче ми маємо текстові рядки в A1 та B1:
Наступний код показує, як об’єднати текстові рядки з клітинок A1 та B1 за допомогою оператора & у клітинці C1:
| 1 | Діапазон ("C1"). Значення = Діапазон ("A1"). Значення та діапазон ("B1"). Значення |
Результат такий:
Об’єднайте змінні
Це повна процедура об’єднання двох клітин разом за допомогою рядкових змінних.
| 1234567891011 | Sub ConcatenateStrings ()Dim StringOne як StringDim StringTwo як StringStringOne = Діапазон ("A1"). ЗначенняStringTwo = Діапазон ("B1"). ЗначенняДіапазон ("C1"). Значення = StringOne & StringTwoEnd Sub |
Використання & Оператора з Spaces
Якщо ви хочете додати пробіли, які використовуєте & разом із "". Наступний код показує, як ви повинні включити пробіли:
| 123456789101112 | Sub ConcatenatingStringsWithSpaces ()Dim StringOne As StringDim String: Два як рядокDim StringThree As StringStringOne = "Це"StringTwo = "текст"StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub |
Результат MessageBox такий:
Використання & Оператора для об'єднання лапок
Скажімо, ваш текстовий рядок містить лапки, наступний код показує, як включити лапки в текстовий рядок:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()Dim StringOne As StringDim StringTwo As StringDim StringThree As StringStringOne = "Це лапки"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub |
Результат такий:
Поміщення рядків у новий рядок
Скажімо, у вас є п’ять текстових рядків, ви можете помістити кожен текстовий рядок у новий рядок або абзац, використовуючи функції vbNewLine, vbCrLf, vbCr або Chr. Наступний код показує, як розмістити кожен текстовий рядок у новому рядку:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Dim StringOne As StringDim StringTwo As StringDim StringThree As StringDim String - чотири рядкиDim StringFive As StringStringOne = "Це перший рядок"StringTwo = "Це другий рядок"StringThree = "Це третій рядок"StringFour = "Це четвертий рядок"StringFive = "Це п'ятий рядок"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringThree & vbCr & StringFour & Chr (13) & StringFiveEnd Sub |
Результат такий:
