Мы уже рассмотрели введение в строковые функции в нашем руководстве по функциям строк и подстрок в VBA. Теперь мы рассмотрим, как объединить текстовые строки.
Объединить строки
Вы можете использовать оператор & в VBA для объединения текстовых строк.
| 1 | MsgBox «Объединить» и «Текст» |
Конкатенатные клетки
Вы также можете объединять ячейки вместе. Ниже у нас есть текстовые строки в A1 и B1:
В следующем коде показано, как объединить текстовые строки из ячеек A1 и B1 с помощью оператора & в ячейке C1:
| 1 | Диапазон ("C1"). Значение = Диапазон ("A1"). Значение и диапазон ("B1"). Значение |
Результат:
Объединить переменные
Это полная процедура объединения двух ячеек вместе с использованием строковых переменных.
| 1234567891011 | Sub ConcatenateStrings ()Dim StringOne as StringDim StringTwo as StringStringOne = Диапазон ("A1"). ЗначениеStringTwo = Range ("B1"). ЗначениеДиапазон ("C1"). Значение = StringOne & StringTwoКонец подписки |
Использование оператора & с пробелами
Если вы хотите включить пробелы, используйте & в сочетании с "". В следующем коде показано, как включить пробелы:
| 123456789101112 | Sub ConcatenatingStringsWithSpaces ()Dim StringOne As StringТусклая струна: два как струнаТусклая строка: Три как строкаStringOne = "Это"StringTwo = "текст"StringThree = StringOne & "" & StringTwoMsgBox StringThreeКонец подписки |
Результат MessageBox:
Использование оператора & для объединения кавычек
Допустим, ваша текстовая строка содержит кавычки, следующий код показывает вам, как включить кавычки в текстовую строку:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()Dim StringOne As StringТусклая струна: два как струнаТусклая строка: Три как строкаStringOne = "Это кавычка"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeКонец подписки |
Результат:
Размещение строк на новой строке
Допустим, у вас есть пять текстовых строк, вы можете поместить каждую текстовую строку в новую строку или абзац, используя функции vbNewLine, vbCrLf, vbCr или Chr. В следующем коде показано, как поместить каждую текстовую строку в новую строку:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Dim StringOne As StringТусклая струна: два как струнаТусклая строка: Три как строкаТусклая строка: четыре как строкаТусклая строка: пять как строкаStringOne = "Это первая строка"StringTwo = "Это вторая строка"StringThree = "Это третья строка"StringFour = "Это четвертая строка"StringFive = "Это пятая строка"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringThree & vbCr & StringFour & Chr (13) & StringFiveКонец подписки |
Результат:
