分享

EXCEL里一个工作簿里的工作表太多了,怎么添加工作表的目录表

 RichardLib 2013-05-06
用一个简单的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(""#'" & sht.Name & "'!A1"",""" & sht.Name & """)"
i = i + 1
Next
End Sub

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多