通过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