Excel怎么合并单元格内容按照前一列的合并格式来合并

作者: ricksteves 分类: 技术专栏 发布时间: 2019-07-25 14:02

答:可以使用VBA 来完成。参照我下方的图,代码从A2开始。

按ALT+F11组合键,打开VB窗口,执行”插入”-“模块”,复制下面代码进去,按F5运行程序即得到结果。

Sub Demo()
    Dim Rng As Range
    Dim TempStr As String
    Dim Cell As Range
    Application.DisplayAlerts = False
    Set Rng = Range("A2")
    Do Until IsEmpty(Rng)
        With Rng
            If .MergeCells Then
                For Each Cell In .Offset(0, 1).Resize(.MergeArea.Rows.Count, 1)
                    TempStr = TempStr & Cell & vbCrLf
                Next
                .Offset(0, 1).Resize(.MergeArea.Rows.Count, 1).Merge
                .Offset(0, 1) = Left(TempStr, Len(TempStr) - 1)
            End If
        End With
        TempStr = ""
    Set Rng = Rng.Offset(1, 0)
    Loop
    Application.DisplayAlerts = True
    MsgBox "合并完成"
End Sub

以下程序运行前后截图。

发表评论

电子邮件地址不会被公开。 必填项已用*标注