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

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

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

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