excel合并多列单元格并保留数据

Sub 合并多个单元格并保留数据()

    Dim rng As Range

    Dim val As String

    Dim cell As Range

    Set rng = Selection

    If rng.Cells.Count  "" Then

            val = val &amp服务器托管网; c服务器托管网ell.Value & vbNewLine

        End If

        Next cell

    With rng

        .Merge

        .Value = Trim(val)

        .WrapText = True

    End With

    Application.ScreenUpdating = True

    Application.DisplayAlerts = True

End Sub

在excel中可以启用宏【alt+F11】新建模块，选中所需单元格【alt+F8】完成多列单元格合并操作.

参考：如何在excel中插入和运行VBA

Excel技巧：如何合并多个单元格而不丢失数据？

根据需求更改了val = val & cell.Value & vbNewLine，合并后保持一列一换行的格式。

服务器托管，北京服务器托管，服务器租用 http://www.fwqtg.net

相关推荐: ES Serverless让日志检索更加便捷

前言 在项目中，或者开发过程中，出现bug或者其他线上问题，开发人员可以通过查看日志记录来定位问题。通过日志定位 bug 是一种常见的软件开发和运维技巧，只有观察日志才能追踪到具体代码。在软件开发过程中，开发人员会在代码中添加日志记录，以记录程序的运行情况和异…