中国开发网: 论坛: 程序员情感CBD: 贴子 677016
haitao
我要的其实是“拆分,而且每个格都填原来的字符串”,借鉴你的例子实现了,但是同时对多个合并后的格子(每个都是几个格子合并成的),效果非预期
我要的其实是“拆分,而且每个格都填原来的字符串”,借鉴你的例子实现了,但是同时对多个合并后的格子(每个都是由几个格子合并成的),效果非预期

Sub tt() '合并
For Each vcell In Selection.Cells
Value = Value + vcell.FormulaR1C1
Next vcell

Selection.Merge
Selection.FormulaR1C1 = Value

End Sub


Sub ss() '拆分,只对一个格子(由几个格子合并成的)有效

s = Selection.FormulaR1C1

Selection.UnMerge

For Each vcell In Selection.Cells
vcell.FormulaR1C1 = s
Next vcell

'Selection.UnMerge
'Selection.FormulaR1C1 = Value

End Sub
我的blog:http://szhaitao.blog.hexun.com & http://www.hoolee.com/user/haitao
--以上均为泛泛之谈--
不尽牛人滚滚来,无边硬伤纷纷现 人在江湖(出来的),哪能不挨刀(总归是要的)
网络对话,歧义纷生;你以为明白了对方的话,其实呢?

您所在的IP暂时不能使用低版本的QQ,请到:http://im.qq.com/下载安装最新版的QQ,感谢您对QQ的支持和使用

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录