excel表格怎么批量合并单元格并保留所有内容？

发布网友 发布时间：2022-02-21 14:45

我来回答

共5个回答

懂视网 时间：2022-02-21 19:06

Excel合并单元格的方法：

首先打开Excel表格，

方法一， 选中想要合并的单元格，

点击右键，选择[设置单元格格式]，

点击[合并单元格]确定即可。

方法二，选中想要合并的单元格，点击[格式]，选择[设置单元格格式]，点击[合并单元格]确定即可。

总结：

1.选中单元格

2.右键选择[设置单元格格式]

3.点击[合并单元格]确定

热心网友 时间：2022-02-21 16:14

用一个老前辈的话，你想实现这个表格效果，完全可以通过数据透视表。合并单元格是一件吃力不讨好的苦力活，一时解决了问题将来二次处理数据还是会痛不欲生。

---

但如果题主执意要用合并单元格，能告诉我后面有几列要做合并吗？感谢。

直接修改在这里方便查看吧。

---

在工作表按Alt+F11，跳出如图VBA窗口，在对应的工作表名称处双击，在右侧空白处粘贴以下代码：

Sub mMerge()

Application.DisplayAlerts = False

For Each Rng In Range("J2:J" & ActiveSheet.UsedRange.Rows.Count)

With Rng

If .MergeCells = True And .Row = .MergeArea.Row Then

For mRow = .MergeArea.Row To .MergeArea.Row + .MergeArea.Rows.Count - 1

mValue1 = mValue1 & Cells(mRow, 11) & Chr(10)

mValue2 = mValue2 & Cells(mRow, 12) & Chr(10)

Next

Range("K" & .MergeArea.Row & ":K" & .MergeArea.Row + .MergeArea.Rows.Count - 1).Merge

Range("K" & .MergeArea.Row).WrapText = True

Range("K" & .MergeArea.Row) = Left(mValue1, Len(mValue1) - 1)

mValue1 = Empty

Range("L" & .MergeArea.Row & ":L" & .MergeArea.Row + .MergeArea.Rows.Count - 1).Merge

Range("L" & .MergeArea.Row).WrapText = True

Range("L" & .MergeArea.Row) = Left(mValue2, Len(mValue2) - 1)

mValue2 = Empty

End If

End With

Next

Application.DisplayAlerts = True

End Sub

---

效果如图

热心网友 时间：2022-02-21 17:32

直接操作真不可以啊
要么你用函数提取后再操作合并单元格
要么你复制数据到记事本，变成文本后再复制过来操作粘贴
但是你的思路真不想说什么啊！不是Excel表格学习方向……追答只是打印效果的话，最简单的还是把中间的单元格线条设置成无即可
若非要想合并单元格操作，只好复制去记事本，操作后再复制过来，真的是折腾啊！

热心网友 时间：2022-02-21 19:07

Excel怎样快速处理合单元格列的邻列分行合并

热心网友 时间：2022-02-21 20:58

含有多个值不可以合并。