通过Excel工作表进行迭代

这是我的代码。 我是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