首页 > 关注 > 正文

环球最新:怎么把两个单元格合并成一个而且保留两个内容_合并单元格时保留每一个格的内容

2023-05-15 17:15:22   来源:科学教育网  


(资料图片仅供参考)

关 于 怎么把两个单元格合并成一个而且保留两个内容_合并单元格时保留每一个格的内容的知识大家了解吗?以下就是小编整理的关于怎么把两个单元格合并成一个而且保留两个内容_合并单元格时保留每一个格的内容的介绍,希望对大家有帮助!

今天小编肥嘟来为大家解答以上的问题。怎么把两个单元格合并成一个而且保留两个内容,合并单元格时保留每一个格的内容相信很多小伙伴还不知道,现在让我们一起来看看吧!

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:分多少都行,但是千万别二百五...囧。

关键词:

推荐内容

Copyright www.caikuang.dzwindows.com 版权所有
网站备案号:皖ICP备2022009963号-12
邮箱: 39 60 29 14 2@qq.com