兩種方法實現工作薄中的所有工作表名字取在一個工作表中（如何將一個工作薄中的工作表設為另一個工作薄）

兩種方法實現工作薄中的所有工作表名字取在一個工作表中（如何將一個工作薄中的工作表設為另一個工作薄）

所有工作表的名字取在一個工作表中，你是否弄明白這個這是什么個意思，它或許只是一個技巧，沒有實際的用處，但是，喜歡VBA的朋友可不能放棄這次的學習哦！藝多不壓身，藝高人膽大。

方法一：宏

筆者以Excel 2013為例，同樣的操作步驟適用于Excel 97~2016。

假定工作薄中已經有三個工作表（實際上，有幾個都行）。我們新建一個工作表，新工作表的名稱是Sheet4。

Ctrl+N是新建工作薄Shift+F11是新建工作表，小技巧，大速度。

按Alt+F11快捷鍵，出現”Microsoft Visual Basic for Application“窗口。

ALT+F11在EXCEL窗口打開Visual Bcsic編輯器窗口，在Visual Bcsic編輯器窗口回到EXCEL窗口ALT+SHIFT+F11打開Microsoft 編輯器

在左上角的”工程-VBAProject“樹狀列表中，雙擊Sheet4。右邊出現一個代碼窗口。

把以下VBA代碼復制粘貼到代碼窗口中：

Private Sub ListSheets()

Dim sh As Worksheet

Dim rng As Range

Dim i As Integer

Set rng = ActiveSheet.Range("A1")

For Each sh In ThisWorkbook.Sheets

rng.Offset(i, 0).Value = sh.Name

i = i + 1

If i = ThisWorkbook.Sheets.Count - 1 Then Exit For

Next sh

End Sub

按F5快捷鍵，運行這個過程。然后切換回Excel窗口，看看Sheet4工作表的A列，是不是已經把所有工作表的名稱列出來了？

這個F5除了有定位功能還可以運行VBA代碼，當然這要依據您當前使用的環境。

方法二：抽取文字

右擊某個工作表，選擇“移動或復制”，彈出“移動或復制工作表”對話框。在這里有個列表框，叫作““下列選定工作表之前”，它列出了當前工作簿中所有工作表的名稱。

這個移動或復制工作表的功能還不小來，不僅可以設置工作表的順序，還可以復制工作表，并命名。

用截圖軟件SnagIt的”截取文字“功能，把這個列表框截下來，SnagIt會抽取里面的文字，也就是每個工作表的名稱。復制粘貼到Excel中即可。調用這款軟件的最終目的還是為了截取里面的文字以便使用。

以上便是為大家介紹的有關工作薄中的所有工作表的名字取在一個工作表中的兩種方法，感興趣的朋友可以看看，以備不時之需哦。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。