Question

求一个EXCEL VBA程序：数据：1，2，3，4，5，6，7，8，9，10。要求从最大的值开始进行SUM运算，直到SUM

大于30时结束SUM运算，要输出最后的SUM。

Answer 1

Sub zjh()
Dim i%, sum%, mstr$
i = 10
Do While sum < 30
mstr = mstr & i & " + "
sum = sum + i
i = i - 1
Loop
MsgBox Left(mstr, Len(mstr) - 3) & " = " & sum
End Sub

追问

如果数据依次在EXCEL的第一行的A1：J1中，且要求计算结果输出到EXCEL的第一 行的K11中？