Question

在excel的VBA中，如何写：选择多个活动单元格（不连续，无规律）求和？

请高人指点：
在excel的VBA中，如何写：选择多个活动单元格（不连续，无规律）求和？

Answer 1

sub xx()
dim x as range
dim sum
for each x in selection
sum=sum +x
next x
msgbox sum
end sub

Answer 2

MsgBox Application.Sum(Selection)

追问

这种只能按住ctrl键连续选择后求和，如何设置，可以不用按ctil键？

追答

不用Ctrl，使用程序中的已知区域？
MsgBox Application.Sum(Range("A1"), Range("C2:D4"))

Answer 3

=sum([a1:c1],[d5],[k3].....)大概这个样子