<大小土豆> 生成目录 虽然是个简单的东西! 但比较实用。 代码如下: Sub 目录() Dim x% On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets('目录').Delete '防错机制(工具箱) Application.DisplayAlerts = True Sheets.Add(before:=Sheets(1)).Name = '目录' For x = 1 To Sheets.Count Cells(x, 1) = '=hyperlink(''#'' & Sheets(x).Name & ''!A1'',''' & Sheets(x).Name & ''')' Next x Application.ScreenUpdating = True End Sub VBA完成 完全没有技术含量。 完了! 就是这么简单 点一下 修改了或者变化了再一点 操作简单才是硬道理! 有空常来群里玩! 加群链接: http://jq.qq.com/?_wv=1027&k=40CUwwP 作者 貓ゞ哥 一个让你有理由去爱上Excel的公众号 一个让你学会轻松处理Excel数据的公众号 |
|