摘要： 查阅了相关资料现将方法分享给大家：打开你要创建，目录的表格按Alt+F11在谈出的对话框中点插入选择模块然后把下面的代码复制到模块中Sub mulu() On Error GoTo Tuichu Dim i As Integer Dim ShtCount As Integer Dim SelectionCell As Range ShtCount = Worksheets.Count If Sht... 阅读全文