sub
合并单元格内容()
dim
c
as
range
dim
mystr
as
string
on
error
resume
next
'关闭错误开关
for
each
c
in
selection
'循环选定的单元格区域
mystr
=
mystr
&
--c.value
'连接文本
next
with
selection
.value
=
empty
'内容置空
.merge
'合并单元格
.value
=
mystr
'赋值
end
with
end
sub
、打开Excel工作表；
2、如果合并A1:B6单元格，直接选择“对齐”中的“合并单元格”，只能保留左上角的数据，而放弃其他值；
3、传统的方式合并单元格未能全部保留所有数据，因此如果需要保留所有数据到合并单元格，需要进行转换；
4、选择D1:E6单元格，在“开始”“对齐方式”的“合并”下拉选项中，选择“合并单元格”；
5、选择A1:B6单元格，按Ctrl+C，“复制”；
6、双击合并后的单元格D1:E6，使其进入编辑状态，然后点击剪贴板，并单击刚才复制的内容；
7、剪贴板中的复制数据被粘贴到了合并单元格；
8、按Enter键完成操作，光标进入下一个单元格，此时A1:B6单元格的数据全部保留在了合并单元格；
9、根据需要，删除原A1:B6，或者将D1:E6复制并粘贴到A1:B6区域，即可。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024