Excel怎么合并单元格内容按照前一列的合并格式来合并
答:可以使用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
以下程序运行前后截图。