用一个简单的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 |
|
来自: RichardLib > 《计算机》