如何在 Excel 中合并多个单元格的内容而不丢失数据？

我们在 Microsoft Excel 中经常会合并单元格及其内容。但是，您是否找到了合并单元格内容的最简单方法呢？这里我们将讨论如何轻松快速地在 Excel 中合并单元格内容。

使用 VBA 代码将多个单元格合并为一个单元格
使用 Kutools for Excel 合并多个单元格为一个单元格且不丢失数据

使用 VBA 代码将多个单元格合并为一个单元格

以下 VBA 代码可以帮助您将多个单元格合并为一个单元格，并且您可以按照以下步骤应用该代码：

1. 点击 开发工具 > Visual Basic，会弹出一个新的 Microsoft Visual Basic for Applications 窗口，点击 插入 > 模块，并将以下代码输入到 模块 中：

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2然后点击 按钮执行代码。会弹出一个对话框，供您选择要与 VBA 一起使用的区域。请参见截图：

3. 点击 确定，另一个对话框会显示出来，供您指定分隔符。请参见截图：

4. 点击 确定，然后所选区域中的单元格内容将被合并到一个单元格中。请参见截图：

使用 Kutools for Excel 合并多个单元格为一个单元格且不丢失数据

如果您已安装 Kutools for Excel ，您可以方便地合并多列或多行的单元格内容，而无需使用公式。

1. 选择要合并数据的单元格。通过点击 Kutools > 合并与拆分 > 合并行/列/单元格并保留值 来应用此工具。

2. 在 合并列或行 对话框中，指定您需要的选项。请参见截图：

• （1）在 根据以下方式合并选中区域 下选择 合并到一个单元格；
• （2）为合并的数据指定分隔符。您可以使用空格、无字符、分号或特定文本分隔每个内容。您还可以在新的一行中显示合并后的内容。

3. 然后点击 确定 或 应用，所有多个单元格中的数据都将被合并到一个单元格中。请参见截图：

注意：此工具还可以帮助合并所选列的单元格。您可以将名字和姓氏合并到一个全名单元格中，如下图所示。

然后您可以看到名字和姓氏被合并并位于全名单元格中。

演示：合并/汇总多个单元格为一个且不丢失数据

相关文章

• 如何在 Excel 中合并列而不丢失数据？
• 如何在 Excel 中合并行而不丢失数据？