EXCEL里一个工作簿里的工作表太多了,怎么添加工作表的目录表
相关主题
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
EXCEL里一个工作簿里的工作表太多了,怎么添加工作表
的目录表
用一个简单的vba程序就可以了
alt+F11打开vba编辑器然后点插入-模块-再把代码粘贴到右边空白的地方
然后回到excel界面按alt+F8 就会看到一个窗口看到“目录”运行即可
"sheet1"是要放目录的表的名字,可以根据实际情况更改Public Sub 目录()
i = 1
For Each sht In Worksheets
Sheets("sheet1").Cells(i, 1) = i
Sheets("sheet1").Cells(i, 2).FormulaR1C1 =
"=HYPERLINK(""#'" & & "'!A1"","""
& & """)"
i = i + 1
Next
End Sub