3

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

这是我的代码:

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

1 回答 1

5

试试这个(这只会激活每张纸):

Sub spellCheck()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    ' Do stuff...
Next
End Sub
于 2012-08-21T18:34:48.397 回答