在Excel VBA中对数字求和时如何计数到10？

Question

在VBA中对数字求和时如何计数到10？

Answer 1

Dim Sum as Integer
Sum = 0 

Dim I as Integer

For I = 1 to 10
    Sum = Sum + I
Next

编辑 ：供将来参考，请参阅Visual Basic for Applications（VBA）上的Microsoft MSDN部分

Answer 2

这个问题被标记为VB6，因此：

Dim Sum As Integer
Dim i As Integer
For i = 1 To 10
    Sum = Sum + i
Next i

Answer 3

这是一种优化的方法。 没有速度差异，但是了解是一个好习惯。

1. 由于Excel本身使用long，因此请使用long而不是整数

2. 将循环解开至少一级

    Dim Sum As Long Dim i As Long For i = 1 to 10 Step 2 Sum = Sum + i Sum = Sum + (i + 1) Next 

希望对您有所帮助！