如何合并excel多个格子合并且保留所有数据?

2024年11月23日 06:07

有4个网友回答

网友（1）：

(1 )启动Excel 2013并打开工作表，在工作表的空白区域选择一个与需要合并的单元格区域大小相同的区域，然后在“开始”选项卡的“对齐方式”组中单击“合并后居中”按钮合并单元格，如图1所示。

提示：如果需要对多个行或列的单元格进行合并，按住“Ctrl”键分别单击选择这些行或列中的单元格后单击“合并后居中”按钮上的下三角按钮，在打开的下拉列表中选择“跨越合并”选项即可。

(2)在合并单元格被选择的情况下，在“开始”选项卡的“剪贴板”组中选择“格式刷”工具，对需要合并的单元格区域进行合并，如图2所示。

(3)此时，该单元格区域即被合并，Excel也没有给出提示删除单元格数据，所有的单元格数据都将保留。例如，在一个表格的空白单元格中输入公式引用已经合并的单元格，如图3所示。按“Enter”键后，合并前单元格中的数据仍然存在，如图4所示。

网友（2）：

数据在A列
B2输入=A1&A2

点B2,光标移到其右下角的小黑点上,光标变成实心十字形时,双击左键

这时,A列最后一个数据的后面,就是你要合并的数据
假设你的数据到A1:A10000,则B10000中,就是你要的

网友（3）：

我写了一个宏，测试可行！
只要选中需要合并的单元格，再执行这个宏就OK了！
要注意的是：你这有1万多行要合并，而Excel单元格内容（文本）的长度32767个字符。单元格中只能显示1024个字符；而编辑栏中可以显示全部32767个字符。

Sub 合并单元格并保持所有数据宏()
If MsgBox("确定要合并所选择的单元格吗？注意：合并后不能撤销！！", _
vbYesNo + vbQuestion, "合并单元格并保持所有数据宏") = vbNo Then Exit Sub
Dim strTmp As String, strTT As String, isFirst As Boolean
strTmp = ""
isFirst = True
For Each Mycells In Selection
strTT = Mycells.Text
If strTT <> "" Then
If Not isFirst Then
strTmp = strTmp & Chr(10) & Chr(13)
End If
strTmp = strTmp & strTT
isFirst = False
End If
Next
Application.DisplayAlerts = False
Selection.Merge
Application.DisplayAlerts = True
Selection.FormulaR1C1 = strTmp
End Sub

网友（4）：

b1输入:=a1
b2输入:=b1&a2
向下填充