導(dǎo)讀Hello,大家好，今天跟大家分享下如何制作excel的工作表目錄，特別適合工作表比較多的同學(xué)，我們采用的是vba加函數(shù)的方式進(jìn)行目錄的設(shè)置，使用vba獲取....

Hello,大家好，今天跟大家分享下如何制作excel的工作表目錄，特別適合工作表比較多的同學(xué)，我們采用的是vba加函數(shù)的方式進(jìn)行目錄的設(shè)置，使用vba獲取工作表名稱，然后利用函數(shù)制作超鏈接，非常簡(jiǎn)單，下面就跟我來一起操作下吧，下面我們就來聊聊關(guān)于excel怎么在同一工作簿新建工作表?接下來我們就一起去了解一下吧!

excel怎么在同一工作簿新建工作表

Hello,大家好，今天跟大家分享下如何制作excel的工作表目錄，特別適合工作表比較多的同學(xué)，我們采用的是vba加函數(shù)的方式進(jìn)行目錄的設(shè)置，使用vba獲取工作表名稱，然后利用函數(shù)制作超鏈接，非常簡(jiǎn)單，下面就跟我來一起操作下吧

1.新建工作表

首先我們需要新建一個(gè)工作表將它放在excel文件的第一個(gè)位置，并將A1單元格的值命名為目錄

2.輸入代碼

點(diǎn)擊開發(fā)工具，然后點(diǎn)擊visual basic打開vba編輯器，我們點(diǎn)擊后面括號(hào)里面有工作薄名稱的工程，然后點(diǎn)擊插入，選擇插入模塊，然后雙擊模塊，輸入如下代碼，然后按F5運(yùn)行提取工作表名稱

Sub 提取工作表名稱()

Dim i As Integer 將i定義為整數(shù)

For i = 2 To Sheets.Count 將i賦值讓他等于2到工作表個(gè)數(shù)

Cells(i, 1) = Sheets(i).Name 讓單元格的值等于工作表名稱的值

Next 結(jié)束循環(huán)

End Sub

3.創(chuàng)建連接

輸入公式：=HYPERLINK("#"&A2&"!A1",A2)

公式解析

第一參數(shù)："#"&A2&"!A1"

# 表示引用的工作表在當(dāng)前工作簿中

"&A2&"! 表示 A2 對(duì)應(yīng)的工作表，就是提取的工作表名稱

A1 表示的是每個(gè)工作表對(duì)應(yīng)的A1單元格。Hyperlink 函數(shù)必須要具體鏈接到工作表中的某一單元格

第二參數(shù)：A2，返回工作表名稱

設(shè)置完成后直接向下填充即可,然后我們隱藏掉提取的目錄名稱即可