Question

求EXCEL VBA 程序：在EXCEL的A1到J1里分别有数据1，3，4，4，6，9，7，5，2，3。在A2到J2里分别有数据1，2

，5，6，7，8，4，3，6，8。现要对A2到J2里的数据从最大的开始进行SUM运算，直到SUM大于25时结束SUM运算，要求输出参与SUM运算的数据对应的上面的数值（即A1到J1中的数据）。

Answer 1

Public Function iSumLarge(iRes, iRng As Range)
'VBA函数，iRng内，从大到小开始sum，到iRes为止，取得这些数据
Application.Volatile
If iRng.Cells.Count < 1 Then iSumLarge = "#iRng": Exit Function
Dim i&, iLgVal, tmp, s$, a
For i = 1 To iRng.Cells.Count
iLgVal = Application.WorksheetFunction.Large(iRng, i)
tmp = tmp + iLgVal
s = s & iLgVal & ","
If tmp > iRes Then Exit For
Next
iSumLarge = IIf(tmp < iRes, "<=" & iRes, Left(s, Len(s) - 1))
End Function

Answer 2

1 3 4 4 6 9 7 5 2 3
1 2 5 6 7 8 4 3 6 8
4 6 9 3
是否需要象上面的输出，是的话，再追问后给出宏代码！

追问

把第三行的4，6，9，3输到一个单元个里行吗格式为（4，6，9，3，）

追答

Hi 传给你！