excel vba 效率 for循环

For k = 5 To Cnum + 4
a = Worksheets("相关系数计算法").Cells(1, k)

With Worksheets("沪深300股票")

g = .[A1:KS1].Find(a, LookIn:=xlValues, searchDirection:=xlPrevious).Column

f = Split(Cells(1, g).Address, "$")(1)

End With

Sheets("沪深300股票").Select
Range("" & CStr(f) & "4:" & CStr(f) & "64").Select

Selection.Copy
Sheets("相关系数计算法").Select
Range("F200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
For i = 200 To 200 + 60 - 1
s = Application.Ln(Cells(i, 6) / Cells(i + 1, 6))
Cells(i - 194, k) = s
Next i
Next k

For i = 200 To 200 + 60 - 1
s = Application.Ln(Cells(i, 6) / Cells(i + 1, 6))
Cells(i - 194, k) = s
Next i
直接
For i = 200 To 259
s = Application.Ln(Cells(i, 6) / Cells(i + 1, 6))
Cells(i - 194, k) = s
Next i

excel vba一般有下面几种循环语句： 1、for ... next for i=1 to 100 cells(i,1)=i next 2、do until ... loop i=1 do until i=100 cells(i,1)=1 i=i+1 loop 3、do while ... loop i=1 do while i<=100 cells(i,1)=1 i=i+1 loop 可以根据情况选择使用