因你指定在 range 內 的 10 個數目加總, 所以不可能用內建的函數來解決, 一定要用 vba 寫 macro 來完成. 下面提供一個解決方案:
sub macro1()
i = 0
s = 0
j = 25
loop1:
if cells(2, j) > 0 then
s = s + cells(2, j)
i = i + 1
endif
if i >= 10 then
cells(2, 26) = s
end
endif
j = j - 1
if j >= 1 then goto loop1
end sub