excel怎麼快速批量重命名多個工作表

方法/步驟 首先，我們來準備新的名字，對應相應的工作表，從A2單元格開始，A1存放標題字段。 新名字全部準備好後，然後任意工作表標籤右擊，點擊查看代碼，或者ALT+F 11快捷鍵，調出VBE對話框。 進入VBE對話框後，右擊thisworkbook,選擇插入，然

平時使用Excel時一個一個地重命名工作表，是不是覺得麻煩，沒有效率。今天就給大家分享excel如何快速批量重命名多個工作表。

材料/工具

電腦Excel

方法/步驟 首先，我們來準備新的名字，對應相應的工作表，從A2單元格開始，A1存放標題字段。 新名字全部準備好後，然後任意工作表標籤右擊，點擊查看代碼，或者ALT+F 11快捷鍵，調出VBE對話框。 進入VBE對話框後，右擊thisworkbook,選擇插入，然

方法

雙擊打開安裝在桌面的Excel。

這個有兩個辦法，一個是使用vba，另外一個是使用 windows下的 cmd下的bat文件。 後者比較簡單(需要一定的dos知識)。 1、 使用cmd 進入命令行模式； 2、使用 cd 命令切換到存放excel工作簿的文件夾，參考 dir *.* >1.txt 獲得所有文件名稱的列表

進入主頁，在A1-A6依次輸入1月銷售表、2月銷售表、3月銷售表、4月銷售表、5月銷售表、6月銷售表。

代碼如下： Sub 宏1() for i=2 to Sheets.Count Sheets(i)=trim(i-1) next iEnd Sub

點擊“插入工作表”。

用ACDsee重命名也是比較方便的，先打開ACDsee軟件，找到並打開要重命名文件的文件夾，這時該文件夾內所有文件在中間的框中顯示，用鼠標選中要重命名的文件－打開菜單欄上的“工具”－“批量重命名”，可以點尋使用數字替換”或“使用字母替換”，“開始

目標是把Sheet1-Sheet6變成“1月銷售表-6月銷售表”。

既然本題中着重提出“快速”，對於手動的慢速更改就不再贅述， 最快速的方法唯VBA，可將需要更改的名字按照順序寫在一列單元格里，下述代碼以sheet1的A列爲例。 Sub tst()Dim i%For i = 1 To Sheets.CountSheets(i).Name = Sheet1.Cells(i, 1)Next

按下ALT+F11，打開VBA窗口。

新建一個excel文件，按alt+F11，在左邊點右鍵，插入，模塊，雙擊模塊，粘貼下面的代碼。 然後按F5，運行新建宏。輸入張數， 很快就建立完成了。 Sub 新建() Dim arr, sh As Worksheet shtNum = Application.InputBox("請輸入複製工作表的張數",

單擊“插入——模塊”。

Sub t() Set nameRange = Sheets("sheet1").UsedRange For Each r In nameRange.Rows Debug.Print r.Address oldName = r.Cells(1) newName = r.Cells(2) Rename oldName, newName Next End Sub Sub Rename(ByVal oldName As String, ByVal newN

調出“代碼”輸入框，輸入如下代碼：

EXCEL中如何批量命名工作表的方法及具體操作步驟如下，以wps2019中的EXCEL爲例做演示。 1、在電腦的wps中找到需要批量命名的表格文件並將其打開，如下圖所示，進入下一步。 2、在這裏以用人名爲例做演示，將需要批量命名的內容選中後，點進文件

Sub 按A列數據修改表名稱()On Error Resume Next '忽略錯誤繼續執行VBA代碼,避免出現錯誤消息Application.Calculation = xlCalculationManual '手動重算Dim i%For i = 1 To Sheets.CountSheets(i).Name = Cells(i, 1).TextNextOn Error GoTo 0'恢復正常的錯誤提示Application.Calculation = xlCalculationAutomatic'自動重算End Sub

EXCEL中如何批量重命名工作表名稱_百度經驗 http://jingyan.baidu.com/article/e9fb46e176af787521f766dd.html

點擊“運行-運行子過程/用戶窗體”。

這樣就可以： SUB XXX() DIM I FOR I=1 TO SHEETS.COUNT SHEETS(I).NAME=I NEXT I END SUB

回到Excel，會發現成功批量重命名工作表。

一樓的稍有點小問題，現修改如下： Sub 命名 Dim i For i = 2 To 11 Sheets(i).name = Sheets(1).Cells(i-1, 1) Next i End Sub 方法如下： ALT F11 插入-模塊，然後將以上代碼粘貼，運行以上宏，或者在工作中做個按鈕。不懂的話再留言。另外需

擴展閱讀，以下內容您可能還感興趣。

如何excel 批量修改sheet名稱

方法/步驟

首先，我們來準備新的名字，對應相應的工作表，從A2單元格開始，A1存放標題字段。

新名字全部準備好後，然後任意zd工作表標籤右擊，點擊查看代碼，或者ALT+F 11快捷鍵，調出VBE對話框。

進入VBE對話框後，右擊thisworkbook,選擇插入，然後選擇模塊。版

雙擊模塊，進入代碼輸入框輸入一下代碼

Sub 重命名()

Dim i&

For i = 2 To Sheets.Count

Sheets(i).Name = Sheets(1).Cells(i, 1)

Next

End Sub

也可以記住，下次直接粘貼即可，代碼通用權。

然後點擊開發工具選項卡，在控件下面選擇按鈕控件（開發工具選項卡一般默認是沒有的，具體可參考我前面的經驗，有具體介紹如何調出）

在空白處，拖動鼠標，畫出一個大小適合的按鈕，然後右擊選擇制定宏。

選擇重命名，然後點擊確定。

excel工作表批量改名

這個只能用來VBA來實現了。

Alt+F11，打開VBA編輯器，插入－模塊，然後將以下源代百碼粘貼到右邊的大框中。

Sub 改工作表名稱()

Dim L As Integer

For L = 1 To 50

Sheets(L).Name = L

Next L

End Sub

關閉度VBA編輯器。然後工具－宏－宏，選中“問改工作表名稱”這個宏名，單擊執行。答

怎麼批量修改excel工作表名

方法/步驟

首先，我們來準備新的名字，對應相應的工作表知，從A2單元格開始，A1存放標題字段。

新名字全部準備好後，然後任意工作表標籤右擊，點擊查看代碼，或者ALT+F 11快捷鍵，調出VBE對話框。

進入VBE對話框後，右擊thisworkbook,選擇插入，然後選擇模塊。

雙擊模塊，進入代碼輸入框輸入一下代碼

Sub 重命名()

Dim i&

For i = 2 To Sheets.Count

Sheets(i).Name = Sheets(1).Cells(i, 1)

Next

End Sub

也可道以記住，下次直接粘貼即可，代碼通用。

然後點擊開發工具內選項卡，在控件下面選擇按鈕控件（開發工具選項卡一般默認是沒有的，具體可參考我前面的經驗，有具體介紹如何調出）

在空白處，拖動鼠標，畫出一個大小適合的按鈕，然後右擊選擇制定宏。容

選擇重命名，然後點擊確定。

8

最後點擊按鈕，看看效果吧，已經全部重命名。OK！小夥伴們，你們學會了嗎？

Excel 怎麼樣實現批量重命名工作薄

這個有兩個辦法，一個是使用vba，另外一個是使用 windows下的 cmd下的bat文件。

後者比較簡單百(需要一定的dos知識度)。

1、 使用cmd 進入命令行模式；

2、使問用 cd 命令切換到存放excel工作簿的文件夾，參考

dir *.* >1.txt

獲得所有文件名稱答的列表文件 1.txt

3、使用excel打開 1.txt文件 （複製粘貼也可以）

稍微處理下就能獲得 相應的 文件列表

4、在第一列輸入 ren 然後下拉回與第二列等行

在第二列將步驟3中獲得的名稱粘貼進去

在第三列放置答新文件名

5、將第四步獲得的內容 複製 粘貼到一個打開的txt 文件中，然後另存爲 xx.bat

6、將xx.bat文件放置在 excel工作簿所在目錄並運行它即可。

如何用VBA給excel工作表批量重命名？

代碼如下：

Sub 宏1()

    for i=2 to Sheets.Count

        Sheets(i)=trim(i-1)

    next i

End Sub追問試了，貌似沒有用呢？是我操作不對嗎？代碼保存之後，工作表名字並沒有改變。