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

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

材料/工具

電腦Excel

方法/步驟 首先，我們來準備新的名字，對應相應的工作表，從A2單元格開始，A1存放標題字段。 新名字全部準備好后，然后任意工作表標簽右擊，點擊查看代碼，或者ALT+F 11快捷鍵，調(diào)出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軟件，找到并打開要重命名文件的文件夾，這時該文件夾內(nèi)所有文件在中間的框中顯示，用鼠標選中要重命名的文件－打開菜單欄上的“工具”－“批量重命名”，可以點尋使用數(shù)字替換”或“使用字母替換”，“開始

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

既然本題中著重提出“快速”，對于手動的慢速更改就不再贅述， 最快速的方法唯VBA，可將需要更改的名字按照順序?qū)懺谝涣袉卧窭铮率龃a以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，運行新建宏。輸入張數(shù)， 很快就建立完成了。 Sub 新建() Dim arr, sh As Worksheet shtNum = Application.InputBox("請輸入復制工作表的張數(shù)",

單擊“插入——模塊”。

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

調(diào)出“代碼”輸入框，輸入如下代碼：

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

Sub 按A列數(shù)據(jù)修改表名稱()On Error Resume Next '忽略錯誤繼續(xù)執(zhí)行VBA代碼,避免出現(xiàn)錯誤消息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中如何批量重命名工作表名稱_百度經(jīng)驗 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，會發(fā)現(xiàn)成功批量重命名工作表。

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

擴展閱讀，以下內(nèi)容您可能還感興趣。

如何excel 批量修改sheet名稱

方法/步驟

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

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

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

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

Sub 重命名()

Dim i&

For i = 2 To Sheets.Count

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

Next

End Sub

也可以記住，下次直接粘貼即可，代碼通用權(quán)。

然后點擊開發(fā)工具選項卡，在控件下面選擇按鈕控件（開發(fā)工具選項卡一般默認是沒有的，具體可參考我前面的經(jīng)驗，有具體介紹如何調(diào)出）

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

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

excel工作表批量改名

這個只能用來VBA來實現(xiàn)了。

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

Sub 改工作表名稱()

Dim L As Integer

For L = 1 To 50

Sheets(L).Name = L

Next L

End Sub

關(guān)閉度VBA編輯器。然后工具－宏－宏，選中“問改工作表名稱”這個宏名，單擊執(zhí)行。答

怎么批量修改excel工作表名

方法/步驟

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

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

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

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

Sub 重命名()

Dim i&

For i = 2 To Sheets.Count

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

Next

End Sub

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

然后點擊開發(fā)工具內(nèi)選項卡，在控件下面選擇按鈕控件（開發(fā)工具選項卡一般默認是沒有的，具體可參考我前面的經(jīng)驗，有具體介紹如何調(diào)出）

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

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

8

最后點擊按鈕，看看效果吧，已經(jīng)全部重命名。OK！小伙伴們，你們學會了嗎？

Excel 怎么樣實現(xiàn)批量重命名工作薄

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

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

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

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

dir *.* >1.txt

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

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

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

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

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

在第三列放置答新文件名

5、將第四步獲得的內(nèi)容 復制 粘貼到一個打開的txt 文件中，然后另存為 xx.bat

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

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

代碼如下：

    for i=2 to Sheets.Count

        Sheets(i)=trim(i-1)

    next i

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

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識，若有侵權(quán)等問題請及時與本網(wǎng)聯(lián)系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com