<em>excel</em> 的循环累计相加-for循环累加 excel,excel循环累加

累加是求和的意思吗？
如果是，直接引用工作函数即可
sub test ()
range("C1")=application.sum(columns(1))
end sub
这样就求得了A整列的和

菜单 工具--选项--重新计算，选择迭zd代，如下图设置

B2输入先输入500，C2输入公式：=C2+B2

注意：迭代设置后会回被保存，会影响其他EXCEL文件中公式的正常计算答。建议在使用这个文件时进行设置，用好后恢复默认设置。

以固定单元格，1对1写代码，这也太麻烦了，而且容易出错，不方便。 应该以科目代码为查询项，来写，不过得先设定科目属性。 要说的太多了，没办法一 一说明埃

写下如下代码，如果copy输入的是文本则被视为零进行处理：
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列的数据进zd行处理

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