如何在 vba 中连接字符串（附示例）

您可以使用以下方法在 VBA 中连接字符串：

方法一：连接两个字符串

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

此示例将连接单元格A2和B2中的字符串并在单元格C2中显示结果。

方法2：用分隔符连接两个字符串

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

此示例将使用字符串之间的空格连接单元格A2和B2中的字符串，并将结果显示在单元格C2中。

方法 3：使用分隔符连接两列

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

此示例将使用字符串之间的下划线连接A2:A6和B2:B6范围内的字符串，并在单元格C2:C6中显示结果。

以下示例展示了如何在实践中使用每种方法。

示例 1：连接两个字符串

我们可以创建以下宏来连接两个字符串：

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，单元格A2和B2中的字符串已连接到单元格C2中。

示例 2：使用分隔符连接两个字符串

我们可以创建以下宏来连接两个字符串，并以空格作为分隔符：

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，单元格A2和B2中的字符串已通过它们之间的空格连接，结果显示在单元格C2中。

示例 3：使用分隔符连接两列

我们可以创建以下宏将字符串连接成两列，并使用下划线作为分隔符：

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，范围A2:A6和B2:B6中的字符串已通过下划线连接在一起，结果显示在范围C2:C6中。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何计算字符串中字符的出现次数
VBA：如何检查一个字符串是否包含另一个字符串
VBA：如何计算具有特定文本的单元格