男士酒红色皮衣搭配:excel:关于工作簿和工作表

来源:百度文库 编辑:中财网 时间:2024/04/29 11:00:27
如何在一个工作薄中建立几千个工作表右击某个工作表标签,点"插入",选择"工作表",点"确定",然后按住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()))
将公式向下填充,直到出错为止,目录就生成了。