如何拼接两个单元格区域？实现指定区域赋值为双区域内容拼接

你直接用Range(...).Value = Range(...).Value & Range(...).Value的写法行不通，因为VBA里对多单元格区域的Value操作时，返回的是二维数组，直接用&拼接两个数组只会得到数组的地址字符串，而不是对应单元格内容的拼接结果。

下面给你两种可行的实现方式：

方法1：逐个单元格循环（直观易懂） #

这种方式适合区域不大的情况，逻辑清晰，容易调试：

Dim col As Integer
' 遍历每个对应列的位置（15到25共11列，对应18到28也是11列）
For col = 0 To 10
    Cells(i, 15 + col).Value = Cells(k, 18 + col).Value & Cells(i, 15 + col).Value
Next col

通过循环偏移量col，让两个区域的单元格一一对应，把k行的对应单元格内容拼接到i行单元格内容的前面。

方法2：数组批量处理（高效快捷） #

如果你的区域比较大，用数组操作会比逐个单元格循环快很多，减少Excel和VBA之间的交互次数：

Dim sourceArr As Variant, targetArr As Variant
Dim colIdx As Integer

' 把两个区域的值读入数组
sourceArr = Range(Cells(k, 18), Cells(k, 28)).Value
targetArr = Range(Cells(i, 15), Cells(i, 25)).Value

' 遍历数组元素进行拼接（VBA数组是1-based索引）
For colIdx = 1 To UBound(sourceArr, 2)
    targetArr(1, colIdx) = sourceArr(1, colIdx) & targetArr(1, colIdx)
Next colIdx

' 把拼接后的数组一次性写回目标区域
Range(Cells(i, 15), Cells(i, 25)).Value = targetArr

先把两个行区域的值加载到二维数组里（因为是单行，数组第一维始终为1），循环数组列索引完成拼接，最后批量写回单元格，效率更高。

注意事项 #

• 确保两个区域的单元格数量一致：你这里目标区域是11列（15到25），源区域也是11列（18到28），刚好匹配；如果数量不一致，需要调整循环范围或区域选择。
• 如果单元格存在空值，拼接后会正常保留原内容（空字符串加原内容等于原内容），无需额外处理。

内容的提问来源于stack exchange，提问作者Francesco Bordignon