引：

多个单元格的字符需要连接起来，平时我们都是用“&”，如果有成百上千的字符串需要连接，显得很麻烦。在此背景下，下面是一种常用的合并单元格方法，可以将选定的单元格范围拼接成一个字符串，并将拼接结果粘贴到指定单元格中。

效果如下：

演示效果

代码操作如下：

首先，要打开Excel中需要合并单元格的工作簿，并在其中打开一个新的工作表，用于进行合并单元格操作。

然后，在新建工作表中添加一个按钮，右键单击按钮，选择“查看代码”打开VBA编辑器。

在VBA编辑器中输入下面的代码，按F5运行，程序会弹出两个提示框，分别是需要拼接的单元格范围和需要粘贴的单元范围。在输入完范围之后，程序会自动开始拼接将结果粘贴到指定的单元格中。

Private SubButton1_Click() '字符串拼接

Dim joinChar As String

Dim selectedRange As Range

Dim pasteRange As Range

On Error Resume Next

Set selectedRange = Application.InputBox("请选择需要拼接的单元格范围:", "选择范围", Type:=8)

On Error GoTo 0

If selectedRange Is Nothing Then Exit Sub

joinChar = InputBox("请输入需要拼接的字符（如不输入，默认直接字符串拼接）：")

If Len(joinChar) = 0 Then joinChar = ""

Dim cell As Range

Dim result As String

For Each cell In selectedRange

result = result & cell & joinChar

Next cell

result = Left(result, Len(result) - Len(joinChar))

On Error Resume Next

Set pasteRange = Application.InputBox("请选择需要粘贴的单元格范围:", "粘贴到", Type:=8)

On Error GoTo 0

If pasteRange Is Nothing Then Exit Sub

pasteRange.Value = result

End Sub