不相邻单元格数据求和如何直接粘贴？

wawbt

各位大侠：
     由于需要，经常需要点选多个不相邻单元格，想把其选上单元格的和直接粘贴到另一个单元格里面，请问如何能做到？

99253415

手工选中的所有单元格之和，弄到剪贴板上？

这个貌似要VBA代码来实现吧。

[ 本帖最后由 99253415 于 2011-3-12 08:55 编辑 ]

wawbt

最好是快捷键，一下就搞定，不知论坛里有没有没集成工具箱的东西。

佛山小老鼠

回复楼主，可以实现，看一下符合的要求不，用法看动画，
代码如下
Sub test()
     Dim rg As Range
     Dim m As Range
     For Each rg In Selection
          s = s + rg
     Next rg
     Set m = Application.InputBox("请用鼠标选择求和之后的结果放入的单元格", , , , , , , 8)
     m.Value = s
End Sub

wawbt

谢谢楼上的解答！！很好。

chinabao

努力看贴，充电。