VBA-Loop 和一些工作表

我是一个初学者，我想在我的 Excel 文件的所有工作表中进行循环，除了第一个工作表。然而，下面的代码仅适用于第二个。您能解释一下这段代码有什么问题吗？

非常感谢

Sub MobileTCalculation()
'MobileTCalculation Macro
Dim i As Integer

For i = 1 To 40
Worksheets(1 + 1).Select
Range("A20").Select
On Error Resume Next
Next i

End Sub

如果您想跳过第一张纸，请如下所示更改循环。Worksheets(i + 1)如果您的工作簿中只有 40 张工作表，则会出现错误；）

Use this

Sub MobileTCalculation()
    Dim i As Integer

    For i = 2 To 40
        Worksheets(i).Range("A20").Select
    Next i

End Sub

还有两件事。

1) Use of On Error Resume Next是邪恶的；）仅在必要时使用它。

2)不要使用.SELECT它会减慢你的代码速度。而是直接执行该操作。例如

Sub MobileTCalculation()
    Dim i As Integer

    For i = 2 To 40
        With Worksheets(i).Range("A20")
            Debug.Print .Value
        End With
    Next i

End Sub

HTH

Sid