中国开发网: 论坛: 程序员情感CBD: 贴子 677010
dead_lee: 随手写了个, 其实先录制,在改编很快的..
For Each vcell In Selection.Cells
Value = Value + vcell.FormulaR1C1
Next vcell

Selection.Merge
Selection.FormulaR1C1 = Value
当然警告信息还有, 不过懒得深究了, 应该也可以去掉.

相关信息:


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