合并单元格时保留每一个格的内容电子表格合并单元格并保留内容

文章插图
大家好,小跳来为大家解答以上的问题。电子表格合并单元格并保留内容，合并单元格时保留每一个格的内容这个很多人还不知道,现在让我们一起来看看吧！
1、Sub 合并同类项()If Selection.Columns.Count > 1 Then MsgBox "只能对单列操作，请重新选择区域!": Exit SubSelection.Offset(0, 1).EntireColumn.InsertWith SelectionFor i = .Cells.Count To 2 Step -1If .Cells(i) = .Cells(i - 1) Then Range(.Cells(i).Offset(0, 1), .Cells(i - 1).Offset(0, 1)).MergeNextSelection.Offset(0, 1).Copy.PasteSpecial xlPasteFormats.Offset(0, 1).EntireColumn.DeleteEnd WithEnd Sub 对补充问题的回复：合并所有单元格好实现，不用判断内容是否相同即可。
2、Sub 合并()If Selection.Columns.Count > 1 Then MsgBox "只能对单列操作，请重新选择区域!": Exit SubSelection.Offset(0, 1).EntireColumn.InsertWith Selection.Offset(0, 1).Merge.Copy.Offset(0, -1).PasteSpecial xlPasteFormats.EntireColumn.DeleteEnd WithEnd Sub 菜单项或快捷键可以将代码保存在“个人宏工作簿”中为其指定快捷键，或为自定义的菜单项指定宏。
3、 BTW：分多少都行，但是千万别二百五...囧。
【合并单元格时保留每一个格的内容电子表格合并单元格并保留内容】本文到此分享完毕，希望对大家有所帮助。

合并单元格时保留每一个格的内容 电子表格合并单元格并保留内容

合并单元格时保留每一个格的内容电子表格合并单元格并保留内容