excel：关于工作簿和工作表

如何在一个工作薄中建立几千个工作表

右击某个工作表标签,点"插入",选择"工作表",点"确定",然后按住Alt+Enter键不放,你要多少个你就按住多久不放,你会看到工作表数量在不断增加,几千个都没有问题。

 

 
如何知道一个工作薄中有多少个工作表

方法一：
点"工具"->"宏"->"VB编辑器"->"插入"->"模块",输入如下内容:
Sub sheetcount()
Dim num As Integer
num = ThisWorkbook.Sheets.Count
Sheets(1).Select
Cells(1, 1) = num
End Sub
运行该宏，在第一个(排在最左边的)工作表的A1单元格中的数字就是sheet的个数。

方法二：
按Ctrl+F3(或者点"插入"->"名称"->"定义"),打开"定义名称"对话框
定义一个X
"引用位置"输入:

=get.workbook(4)
点"确定"。
然后你在任意单元格输入=X
出来的结果就是sheet的个数。

一个工作薄中有许多工作表如何快速整理出一个目录工作表
    1、用宏3.0取出各工作表的名称，方法：
            Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：

=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
确定

             2、用HYPERLINK函数批量插入连接，方法：
             在目录工作表（一般为第一个sheet）的A2单元格输入公式：

=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))
将公式向下填充，直到出错为止，目录就生成了。