excel vba中 怎么数出一个workbook中有几个表，然后对这几个表进行循环处理？

Sub count()
Dim i As Integer
Dim j As Integer
j = ThisWorkbook.Sheets.count
For i = 1 To j
Sheets(i).Select
Next i
MsgBox "总共sheets数为" & j
End Sub

Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i)......
Next i

Dim i,j As Integer
i=ThisWorkbook.Sheets.Count
for j=1 to i
......Sheets(i)......
next j

在任务栏里面有相关的设置 去仔细找找就出来了 很显眼的