作者：乔山办公网日期：
返回目录：excel表格制作
用VBA处理吧：抄
A列最后有内容的袭行数：知道
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
1行最后有内容的列数：
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
新建一个工作表放到工作簿的最后（避免公式重复引用），在你的工作表中的任意一个单元格填入公式=counta(sheet1:sheetN!A:A)-N即可复
其中sheet1是你工作簿中第一个表的名称，sheetN是你工作簿中最后一个表的名称，N是你的总表数。
例如你的工作簿中原来制共有100张表，工作表的名称依次是：客户、供应商……、联系人；那么公式为=counta(客户:联系人!A:A)-100。
此外，需要注意的是，该统计方法对于存在空白项或合并单元格时可能得不到你想要的结果，因为空白项会被忽略，合并单元格会被认为只有1行，因此，选择A列进行统计还是其他列zd，请根据需要替换。
实现的方法和详细的操作步骤如下：
1、首先，如果要在Excel中获取所有工作表页面的名称以创建目录，请“插入”一个工作表页面作知为目录表，然后填写“获取名称”和“列表目录”在A1和B1上，如下图所示，然后进入下一道步。
2、其次，完成上述步骤后，单击菜单栏中的回“公式”选项，单击“定义名称”选项。在名称中填写标识，在“引用位置”填写“
= get.wortbook（1）”，然后单击“确定”按钮以完成组合定义，如下图所示，然后进入下一步。
3、接着，完成上述步骤后，单击单元格A2，然后输入“=index(标识,row(a2))”，按鼠标左键单击单元格a2的右下角，鼠标变为“
+”，然后向下拖动鼠标。所有工作表页面名称都填充到列表里了，完成了工答作表名称的获取，如下图所示，然后进入下一步。
4、最后，完成上述步骤后，获得的列表名称带有文件名，并且该文件名需要删除。单击单元格B2，然后输入如下的公式以获取最终列表目录。选择此列中的所有名称，按键盘上的“ ctrl +
c”进行复制，右键单击并选择“值粘贴”选项以完成操作，如下图所示。
这样，问题就解决了。
VBA插入zhidao模块，代码如下：
Sub 总行数()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, "c") = Sheets(i).Name '在c列显示所有内工容作表名称
Cells(i, "d") = Sheets(i).UsedRange.Rows.Count '在d列显示所有工作表已用最大行数值
Next
End Sub