程序开始前，加上一句代码，不让Excel刷新即可
Application.screenupdating=FALSE
通常有下面一些循环语句：
1、For ... Next
如： For i=1 to 100
Cells(i,1)=1
Next
2、Do Until .... Loop
如： i=1
Do Until i=100
Cells(i,1)=i
i=i+1
Loop
3、Do Where ... Loop
如： i=1
Do Where i<=100
Cells(i,1)=i
i=i+1
Loop
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024