摘要： Excel宏代码片段： Private Sub Worksheet_Activate()
Dim sh As Worksheet
Dim a As Integer
Dim R As Integer
//在目录工作表激活时，自动创建工作簿中除“目录”工作表外所有工作表的目...
Excel宏代码片段：
Private Sub Worksheet_Activate()
Dim sh As Worksheet
Dim a As Integer
Dim R As Integer
//在目录工作表激活时，自动创建工作簿中除“目录”工作表外所有工作表的目录
R = Sheet1.[A65536].End(xlUp).Row
a = 2
If Sheet1.Cells(2， 1) <> "" Then//判断是否存在工作表目录
EXCEL视频动画教程大全
EXCEL视频动画教程大全 自动筛选 在Excel中字符替换 在Excel中直接编辑“宏” 在Excel中为导入外部数据 在Excel中行列快速转换 在Excel中运行“宏” 在Excel中添加说明文字 在Excel中数据分列整理 在Excel中数据合并 在Excel中添加常用文件夹 在Excel中添加多个视图 在Excel中设置打印区域
Sheet1.Range("A2:A" & R).ClearContents
End If
For Each sh In Worksheets
If sh.CodeName <> "Sheet1" Then
Sheet1.Cells(a， 1).Value = sh.Name
a = a 1
End If
Next
End Sub
提示：由于该功能是通过编辑宏代码实现的，因此一定要把编辑的工作簿以“Excel启用宏的工作簿(*.xlsm)”格式保存才行。下一次重新打开此工作簿时会警告宏已被禁用，单击警告栏中的“启用内容”即可。
这几个Excel函数，职场办公常用！
在职场办公中，对各种表格进行处理，常会使用到一些函数，下面为大家整理几个常用的Excel函数，相信你会用到！
