在这个工作薄的一个工作表中摁CTRL+F3，名称的位置输入aa，引用的位置输入以下公式
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,99)&T(NOW())
添加，确定
在空白单元格输入以下公式
=counta(aa)
PS:因为定义名称时引用了宏表函数get.workbook(1),所以工具，宏，安全性要设置为低或中
选中所有工作表，在一空单元格【如g1】输入1回车。
选任一工作表，输入=sum('*'!g1)+1即可得到工作表总个数。
可以用vba完成
按住ALT依次按F11,I,M
粘贴代码后按F5
Sub 工作表统计()
MsgBox "本工作簿中共有" & ThisWorkbook.Worksheets.Count & "个工作表"
End Sub
BTW：不建议将宏的安全性设置为低，会给病毒打开方便之门。
选菜单--文件--属性里有详细的统计资料.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024