用vba试一下吧！打开EXCEL，按：ALT+F11；ALT+I；ALT+M。然后把下面代码进行复制粘贴。按F5。OK。代码如下：Sub 工作表统计()MsgBox "此工作簿中共有" & ThisWorkbook.Worksheets.Count & "个工作表"End Sub
用宏 thisworkbook.worksheets.num
