如何在EXCEL软件里自动生成目录清单?

Posted 2023-05-11

一、文档说明

1）以下面文档为例， 共有16个sheet页，其中sheet2~sheet16是有内容的，sheet1作为目录页。

2）修改sheet1，使其作为目录页。

二、写VBA处理

1）首先打开VBA开发环境（其实就是打开"开发工具"->"Visual Basic"），此处略去不说。

2）其次，复制以下代码到开发环境。

Sub getAllWorkSheets()

' 得到所有的sheet页名称，并加上超连接

    totalNum = Worksheets.Count

    Sheet1.Activate

    Range("B:B").Select

    Selection.NumberFormatLocal = "@"

    ' 从2开始就是不带“目录”Sheet页，如果要带，则从1开始

    For index_i = 2 To totalNum

        sheetName = Worksheets(index_i).Name

        Cells(index_i, 2) = sheetName

        tar_sheet = "'" & sheetName & "'"

        Cells(index_i, 2).Select

        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

        tar_sheet & "!A1", TextToDisplay:=sheetName

    Next index_i

End Sub

3）其中第四行的 Sheet1 需灵活设定。

4）复制上述代码后。

5）如果第四行不是Sheet1，打开此处查看Sheet名称，方式如下：

打开 视图->工程资源管理器 然后查看，参考图。

6）这里目录页是Sheet1。

三 运行VBA

1）在复制的代码中按 “F5”,或者在工具栏点击绿色三角，"运行子过程/用户窗体"。

2）最后，打开"目录"sheet页，OK，搞定。

参考技术A 我也想知道。。本回答被提问者采纳

excel表格里输入文字如何自动换行?

参考技术A

excel表格里输入文字自动换行的具体操作方法如下：

1.打开EXCEL表格

2.先打开excel表格，右击鼠标，弹出对话框，选择设置单元格格式。

3.进入后，点击对齐

4.对齐下方就会看到自动换行。

5.点击选择自动换行，再确认即可，这样自动换行就设置成功了。