VBA连接|如何在VBA中将字符串串联在一起？
串联意味着将两个值或两个字符串连接在一起，类似于excel，我们使用＆或也称为“＆”运算符来串联，两个串联我们使用＆运算符的两个字符串，例如String 1和String 2，现在要记住一个重要的事情，是在使用＆运算符时，我们需要提供空格，否则VBA会考虑较长的时间。
VBA连接字符串
VBA串联是我们用来将两个或多个值单元格值组合在一起的事情之一，如果我用简单的语言说它正在组合，它将两个或多个值连接在一起便具有完整的值。
我们在excel中有一个称为CONCATENATE的函数，它将两个或多个值或两个或多个单元格值组合在一起。
但是在VBA中，我们没有内置函数来将两个或多个值连接在一起。实际上，我们甚至没有访问工作表函数类来将VBA CONCATENATE函数作为工作表函数进行访问。
如何在VBA中连接字符串？
如果我们没有任何内置函数来连接值，甚至工作表函数都未与VBA集成。现在的挑战是我们如何结合价值？
即使没有内置功能，我们也可以使用“＆”符号在VBA中进行组合。
如果您定期关注我们的帖子，我们经常在代码中使用＆符号。
例如，如果您分别使用名字和姓氏，我们可以将两者结合起来并使其成为一个全名。请按照以下步骤自行编写VBA宏代码。
步骤1： 转到Visual Basic编辑器并创建一个VBA子过程。
第2步： 定义三个变量 作为字符串.
代码：
Sub Concatenate_Example（）以字符串Dim First_Name作为字符串Dim以字符串Last_Name作为字符串Dim以字符串Full_Name作为字符串End Sub
第三步： 现在分配 名和姓 到变量。
代码：
Sub Concatenate_Example（）以字符串Dim First_Name作为字符串Dim Last_Name作为字符串Dim Full_Name作为字符串First_Name =“ Sachin” Last_Name =“ Tendulkar” End Sub
第4步： 现在将这两个名称合并到变量中 全名 使用＆变量。
代码：
Sub Concatenate_Example（）以字符串Dim First_Name形式以字符串Dim Last_Name以字符串Dim形式Full_Name以字符串形式First_Name =“ Sachin” Last_Name =“ Tendulkar” Full_Name =姓氏和姓氏End Sub
步骤5： 现在，在 消息框。
代码：
Sub Concatenate_Example（）Dim First_Name作为字符串Dim Last_Name作为字符串Dim Full_Name作为字符串First_Name =“ Sachin” Last_Name =“ Tendulkar” Full_Name =名字和姓氏MsgBox Full_Name结尾Sub
现在运行代码，我们将在消息框中获得全名。
这个全名的问题是我们没有添加名字和姓氏分隔符字符空间，而是在组合名字和姓氏的同时还添加了空格字符。
代码：
Sub Concatenate_Example（）Dim First_Name作为字符串Dim Last_Name作为字符串Dim Full_Name作为字符串First_Name =“ Sachin” Last_Name =“ Tendulkar” Full_Name = First_Name＆“”＆Last_Name MsgBox Full_Name End Sub
这将给您一个适当的全名。
像这样使用＆符号，我们可以连接值。现在，我们将解决将“姓氏和名字”一起解析为全名的工作表问题。
由于我们需要组合许多名称，因此需要使用循环来组合名字和姓氏。以下代码将为您完成这项工作。
代码：
Sub Concatenate_Example1（）Dim i作为整数，当i = 2至9个Cells（i，3）.Value = Cells（i，1）＆“”＆Cells（i，2）下一个i结束Sub
就像我们的VBA串联功能一样，这将合并名字和姓氏。
Ampersand VBA串联中的常见错误
如果您注意到我的代码，我已经在值之间添加了空格字符和号。由于VBA编程的性质，这是必不可少的。
我们不能将值和＆符号组合在一起，否则将出现如下所示的Compile Error。
VBA使用JOIN函数连接
在VBA中，我们可以使用JOIN函数来组合值。首先，看一下VBA JOIN函数的语法。
- 数组 只不过是一个保存我们价值观的数组。例如，名字和姓氏。
- 定界符 就是什么，但每个数组值之间的分隔符是什么，在这种情况下为空格字符。
下面的代码将显示相同的示例。
代码：
Sub Concatenate_Example2（）将MyValues变体作为变体Dim Full_Name作为字符串MyValues = Array（“ Sachin”，“ Tendulkar”）Full_Name = Join（MyValues，“”）MsgBox Full_Name End Sub
