通过Excel工作表迭代

Question

这是我的代码。我是VBA的新手，所以我不确定如何遍历多个页面。

这是我的代码：

Dim ws As Worksheet
Sub spellCheck()
For Each ws In ActiveWorkbook.Worksheets
Cells.CheckSpelling
Next
End Sub

Answer 1

试试这个（这只会激活每张纸）：

Sub spellCheck()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    ' Do stuff...
Next
End Sub