今天来聊聊关于合并单元格的时候怎么能保留所有数据，合并单元格时保留每一个格的内容的文章，现在就为大家来简单介绍下合并单元格的时候怎么能保留所有数据，合并单元格时保留每一个格的内容，希望对各位小伙伴们有所帮助。
1、Sub 合并同类项() If Selection.Columns.Count > 1 Then MsgBox "只能对单列操作，请重新选择区域!": Exit Sub Selection.Offset(0, 1).EntireColumn.Insert With Selection For i = .Cells.Count To 2 Step -1 If .Cells(i) = .Cells(i - 1) Then Range(.Cells(i).Offset(0, 1), .Cells(i - 1).Offset(0, 1)).Merge Next Selection.Offset(0, 1).Copy .PasteSpecial xlPasteFormats .Offset(0, 1).EntireColumn.Delete End WithEnd Sub 对补充问题的回复：合并所有单元格好实现，不用判断内容是否相同即可。
2、Sub 合并() If Selection.Columns.Count > 1 Then MsgBox "只能对单列操作，请重新选择区域!": Exit Sub Selection.Offset(0, 1).EntireColumn.Insert With Selection.Offset(0, 1) .Merge .Copy .Offset(0, -1).PasteSpecial xlPasteFormats .EntireColumn.Delete End WithEnd Sub 菜单项或快捷键可以将代码保存在“个人宏工作簿”中为其指定快捷键，或为自定义的菜单项指定宏。
3、 BTW：分多少都行，但是千万别二百五...囧。
相信通过合并单元格时保留每一个格的内容这篇文章能帮到你，在和好朋友分享的时候，也欢迎感兴趣小伙伴们一起来探讨。