如何用VBA实现含合并单元格行的对应列值合并？

需求概述 #

当表格中某行存在合并单元格时，将对应其他列的多行值合并到单个单元格中，以换行符分隔内容。

原始脚本 #

用户初始编写的测试脚本如下：

Sub TestCopy()

Dim Src As Range
Set Src = Range("A1:A2")
   
Dim Dst As Range
Set Dst = Range("A5")

Dim DstRow As Range
Set DstRow = Range("A5:A6")
    
Dim myArray() As String
Dim intCount As Integer
Dim c As Range

ReDim myArray(Src.Rows.Count - 1)
intCount = 0
For Each c In Src
myArray(intCount) = c.Value
intCount = intCount + 1
'MsgBox Join(myArray, vbCrLf)
Next c

Dst = Join(myArray, vbCrLf)

End Sub

修改后的完整脚本 #

以下是添加了合并单元格判断与自动合并逻辑的VBA宏，可批量处理数据区域：

Sub MergeValuesForMergedCells()
    Dim ws As Worksheet
    Dim targetCol As Integer ' 需要合并值的目标列
    Dim checkCol As Integer ' 检查合并单元格的列
    Dim lastRow As Long
    Dim i As Long
    Dim mergeRows As Integer
    Dim valueArr() As String
    Dim idx As Integer
    Dim cell As Range
    
    ' 设置工作表、检查合并单元格的列、目标列（可根据实际修改）
    Set ws = ActiveSheet
    checkCol = 1 ' 第A列，用于检查是否存在合并单元格
    targetCol = 2 ' 第B列，需要合并值的列
    
    lastRow = ws.Cells(ws.Rows.Count, checkCol).End(xlUp).Row
    
    i = 1
    Do While i <= lastRow
        Set cell = ws.Cells(i, checkCol)
        ' 判断当前单元格是否属于合并区域
        If cell.MergeCells Then
            mergeRows = cell.MergeArea.Rows.Count
            ' 初始化数组，长度为合并区域的行数
            ReDim valueArr(mergeRows - 1)
            idx = 0
            ' 收集对应目标列的所有值
            For j = i To i + mergeRows - 1
                valueArr(idx) = ws.Cells(j, targetCol).Value
                idx = idx + 1
            Next j
            ' 将合并后的值写入目标列的第一个单元格
            ws.Cells(i, targetCol).Value = Join(valueArr, vbCrLf)
            ' 设置单元格自动换行
            ws.Cells(i, targetCol).WrapText = True
            ' 清除后续行的重复值
            For j = i + 1 To i + mergeRows - 1
                ws.Cells(j, targetCol).ClearContents
            Next j
            ' 跳过已处理的合并行
            i = i + mergeRows
        Else
            i = i + 1
        End If
    Loop
End Sub

关键逻辑说明 #

• 合并单元格判断：通过cell.MergeCells判断当前单元格是否属于合并区域，再用cell.MergeArea.Rows.Count获取合并区域的总行数，确定需要合并的目标列行数。
• 值收集与合并：根据合并区域的行数，遍历目标列对应行的单元格，将值存入数组，再用Join函数结合vbCrLf（换行符）将数组内容合并为单个字符串。
• 格式与清理：为目标单元格开启WrapText实现自动换行，同时清除合并区域内目标列后续行的重复值，避免冗余内容。

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