如何在excel中用VBA代码实现有条件的累加,变量是数组的，循环结束后一次性将结果返回到表里

Question

如果初始值是A2，那么B2的值等于A2的值；那么B3的值有以下两种可能。
1。A3的值等于A2，那么B3的值就等于A3+B2
2。A3的值不等于A2，那么B3的值就等于A3
以此类推。

Answer 1

假设表1从A2到A102有101行数据

Sub mypro()
Dim arrA(100) As Single rem 定义数组arrA 来储存A列的数据
Dim arrB(100) As Single rem 定义数组arrB 来储存将要返回到B列的数据
Dim i As Integer
For i = 0 To 100
arrA(i) = Sheet1.Cells(i + 2, 1).Value rem 数组arrA赋值
Next

arrB(0) = arrA(0) rem B2的值等于初始值A2的值
For i = 1 To 100
If arrA(i) = arrA(i - 1) Then
arrB(i) = arrA(i) + arrB(i - 1) rem A3的值等于A2，那么B3的值就等于A3+B2
Else
arrB(i) = arrA(i) rem A3的值不等于A2，那么B3的值就等于A3
End If
Next

For i = 0 To 100
Sheet1.Cells(i + 2, 2).Value = arrB(i) rem 循环结束后一次性将结果返回到表里
End Sub