EXCEL中累计循环求和的VBA语句

EXCEL中累计循环求和的VBA语句

所先在界面上拉一个窗体，其标题改为累计
之后在其中加入以下代码
Sub 累计_单击()
Cells(1, 2) = Cells(1, 2) + Cells(1, 1)
......
End Sub
其中的Cells(1, 2) = Cells(1, 2) + Cells(1, 1)即为在B1中累计A1的数值
其余的请自己添加（因不清楚你具体要的是哪些单元），可以用热循环作业

写下如下代码，如果输入的是文本则被视为零进行处理：
Private Sub Worksheet_Change(ByVal target As Range)
For i = 1 To 100 Step 2
If target.Column = 1 Then
Call s
Exit For
End If
Next i
End Sub
Sub s()
For i = 2 To 100 Step 2 '工作表的前100列的数据进行处理
x = 0
For a = 1 To 500 Step 2 '工作表的前500行的数据进行处理
If Cells(1, i - 1) = 0 Then Exit For
a1 = Cells(a, i - 1): a2 = Cells(a + 1, i - 1)
If IsNumeric(a1) = False Then a1 = 0
If IsNumeric(a2) = False Then a2 = 0
x = x + a1 + a2
Cells(1, i) = x
Next a
Next i
End Sub