对于带有To Variable

Question

我有一个稍微离奇的问题。

我有以下循环（只是一段代码，因为代码相当大）：

Dim WS_Count As Integer
Dim wsName As String
Dim A As Integer
Dim ExtraArray() As Variant

For I = 1 To WS_Count

     WS_Count = ActiveWorkbook.Worksheets.Count

     'Some Code'
     Sheets(wsName).Copy After:=Sheets(wsName)
     Sheets(wsName + " (2)").Name = ExtraArray(A, 2)
     I = I + 1

     WS_Count = ActiveWorkbook.Worksheets.Count

Next I

还有很多其他代码，但我不认为这是问题所在。

如果我在For循环中添加其他工作表并向I添加1并在For循环结束时和循环开始时重新计算WS_Count以确保它是正确的，理论上这应该有效吗？ / p>

或者vba不允许对For循环变量进行临时修改，在这种情况下是＆＃39; WS_Count＆＃39;。它只是看到了原始值吗？

我的循环一直工作到某个点（大致是WS_Count中保存的原始数字，然后我重置为0。

非常感谢任何帮助！