前面发了一篇利用数据透视表快速将excel表拆分成多个工作表,而实际工作中的数据统计分析会不泳脱硭嗓停的需要引用这些工作表内容,如何快速定位到工作表,经过摸索决定鲽判砦吟制作一个目录链接,这样就省去了来回滑动工具条寻找工作表的时间了,而且制作只需3步!
工具/原料
电脑
excel2010
方法/步骤
1、打开需要建立目录的excel表格文件,按快捷组合键ALT+F11,调出VBA开发平台,点击插入——模块,
2、复制代码Submulu()OnErrorGoToTuichuDimiAs咯悝滩镞IntegerDimShtCountAsInteger肛舀辨乔DimSelectionCellAsRangeShtCount=Worksheets.CountIfShtCount=0OrShtCount=1ThenExitSubApplication.ScreenUpdating=FalseFori=1ToShtCountIfSheets(i).Name="目录"ThenSheets("目录").MoveBefore:=Sheets(1)EndIfNextiIfSheets(1).Name<>"目录"ThenShtCount=ShtCount+1Sheets(1).SelectSheets.AddSheets(1).Name="目录"EndIfSheets("目录").SelectColumns("B:B").DeleteShift:=xlToLeftApplication.StatusBar="正在生成目录…………请等待!"Fori=2ToShtCountActiveSheet.Hyperlinks.AddAnchor:=Worksheets("目录").Cells(i,2),Address:="",SubAddress:=_"'"&Sheets(i).Name&"'!R1C1",TextToDisplay:=Sheets(i).NameNextSheets("目录").SelectColumns("B:B").AutoFitCells(1,2)="目录"SetSelectionCell=Worksheets("目录").Range("B1")WithSelectionCell.HorizontalAlignment=xlDistributed.VerticalAlignment=xlCenter.AddIndent=True.Font.Bold=True.Interior.ColorIndex=34EndWithApplication.StatusBar=FalseApplication.ScreenUpdating=TrueTuichu:EndSub黏贴到模块里,保存
3、按F5或点击图标运行,即可生成这样一份工作表名称目录,点击相应的名称即可跳转到相应的工作表。