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

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

Dim Sum as Integer
Sum = 0 

Dim I as Integer

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

编辑：有关将来的参考，请参阅Microsoft的MSDN部分

---

编辑：为了将来的参考，请参考Microsoft的MSDN部分

问题标记为VB6，因此：

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

---

问题的标签为VB6，因此：

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

---

这里有一个优化的方法。没有速度差，但这是一个很好的练习

使用long而不是整数，因为excel本机使用long

至少将循环展开一个级别

Dim Sum As Long
Dim i As Long

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

---

我希望这有帮助

这里有一个优化的方法。没有速度差，但这是一个很好的练习

使用long而不是整数，因为excel本机使用long

至少将循环展开一个级别

Dim Sum As Long
Dim i As Long

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

---

我希望这有帮助

谢谢，这真的很难。谢谢，这真的很难。@A:如果你真的不担心冗长，用

变量imusing to count with

而不是

i

我喜欢肛门保留冗长的倡导者，他只把自己的名字的首字母作为自己的名字。@Shog9:如果你真的不担心冗长，使用“我不知道这是否会尽可能有效”根据猜测它是否会创建超长变量名称保持以便从一个节点写入循环@A：如果你真的不担心冗长，使用

变量imusing to count to with

而不是

i

我喜欢肛门保留冗长的倡导者，他只使用自己名字的首字母。@Shog9:如果你真的不担心冗长，使用“i避免此操作是否能在基础猜测中尽可能有效地创建超长变量名称保持以便从一个节点写入循环”