excel表格对一列数据自动分段求和,返回和值?
发布网友
发布时间：2022-04-25 16:20
共1个回答
热心网友
时间：2023-10-16 20:34
用宏来做：
Sub aa()
j = 0
k = 1
For i = 1 To 100
j = j + [a1].Offset(i - 1, 0)
If j + [a1].Offset(i, 0) >= 100 Then
[b1].Offset(k, 0) = i
[b1].Offset(k, 1) = j
j = 0
k = k + 1
End If
Next i
End Sub
