dead_lee: 随手写了个, 其实先录制,在改编很快的.. [阅读: 300] 2008-10-09 13:20:19 For Each vcell In Selection.Cells Value = Value + vcell.FormulaR1C1 Next vcell Selection.Merge Selection.FormulaR1C1 = Value 当然警告信息还有, 不过懒得深究了, 应该也可以去掉.