next i是否比next的执行效率低?

andysky

有人有这种说法
next i比next的执行效率低,即next后面尽量不写变量名
不知大家有什么看法

oobird

呵呵，个人也看过这个说法，但没验证出来有何差异。

leitiger

Sub IndexNameTest()
    Dim i As Long, j As Integer, tm As Date
    tm = Timer
    For i = 1 To 100000
        j = Sheets(1).Cells(1, 1).Value
    Next i
    Debug.Print "花费" & Format((Timer - tm), "0.00000") & "秒"
    tm = Timer
    For i = 1 To 100000
        j = Sheets(1).Cells(1, 1).Value
    Next
    Debug.Print "花费" & Format((Timer - tm), "0.00000") & "秒"
End Sub
1花费1.36012秒
2花费1.35950秒
3花费1.36012秒
4花费1.37512秒
5花费1.36000秒
6花费1.35938秒
7花费1.35975秒
8花费1.37575秒
9花费1.36025秒
10花费1.35962秒
11花费1.35950秒
12花费1.35988秒
13花费1.35988秒
14花费1.37587秒
单数是加i花的时间,双数是不加花的时间,差别很小,有上下浮动,基本上没什么区别.

mrjjq

改成for i=1 to 1000000
第一次运行
花费9.84462秒
花费10.01625秒

第二次运行
花费10.11000秒
花费10.01563秒

看来是没什么区别

[ 本帖最后由 mrjjq 于 2008-12-11 09:58 编辑 ]

andysky

还有一种说法
for each next  比for  next的效率更高
例如:
for each sh in sheets
debug.print sh.name
next
_____________________
for i = 1 to sheets.count
debug.print sheets(i).name
next

这种说法呢?

oobird

这个我也测试过，印象中似乎for  next比for each next  稍快一些些。总之每个人运行的环境都不同，片面之词不可尽信。

leitiger

Sub IndexNameTest()
    Dim i As Long, j As Integer, tm As Date, ws As Worksheet, n As Integer, y As Integer
    tm = Timer
    y = Sheets.Count
    For i = 1 To 10000
    For n = 1 To y
        j = Sheets(1).Cells(1, 1).Value
    Next n
    Next i
    Debug.Print "花费" & Format((Timer - tm), "0.00000") & "秒"
    tm = Timer
    For i = 1 To 10000
    For Each ws In Worksheets
        j = Sheets(1).Cells(1, 1).Value
    Next ws
    Next i
    Debug.Print "花费" & Format((Timer - tm), "0.00000") & "秒"
End Sub
1花费2.54738秒
2花费2.84413秒
3花费2.54738秒
4花费2.84413秒
5花费2.54738秒
6花费2.84413秒
for next 确实比for each next比,大概快10%左右.工作簿含20的工作表的时候.

[ 本帖最后由 leitiger 于 2008-12-11 14:42 编辑 ]

彭希仁

for each 慢,能不用最好不用

leitiger

用for each   next 的时候,不要声明变量类型可以把速度加快5%左右.有兴趣的可以试一试.
Sub IndexNameTest()
   Dim i As Long, j As Integer, tm As Date, ws As Worksheet, n As Integer, y As Integer
    y = Sheets.Count
    tm = Timer
    For i = 1 To 10000
    For Each ws In Worksheets
        j = Sheets(1).Cells(1, 1).Value
    Next ws
    Next i
    Debug.Print "花费" & Format((Timer - tm), "0.00000") & "秒"
    tm = Timer
    For i = 1 To 10000
    For Each wss In Worksheets
        j = Sheets(1).Cells(1, 1).Value
    Next wss
    Next i
    Debug.Print "花费" & Format((Timer - tm), "0.00000") & "秒"
End Sub

灰袍法师

差不了多少

影响计算速度的最重要因素（通常也是唯一值得考虑的因素）就是算法

语句优化是纯属无聊的时候再去考虑的