excel怎么快速批量重命名多個(gè)工作表

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

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

材料/工具

電腦Excel

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

方法

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

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

進(jìn)入主頁(yè)，在A1-A6依次輸入1月銷售表、2月銷售表、3月銷售表、4月銷售表、5月銷售表、6月銷售表。

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

點(diǎn)擊“插入工作表”。

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

目標(biāo)是把Sheet1-Sheet6變成“1月銷售表-6月銷售表”。

既然本題中著重提出“快速”，對(duì)于手動(dòng)的慢速更改就不再贅述， 最快速的方法唯VBA，可將需要更改的名字按照順序?qū)懺谝涣袉卧窭?，下述代碼以sheet1的A列為例。 Sub tst()Dim i%For i = 1 To Sheets.CountSheets(i).Name = Sheet1.Cells(i, 1)Next

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

新建一個(gè)excel文件，按alt+F11，在左邊點(diǎn)右鍵，插入，模塊，雙擊模塊，粘貼下面的代碼。 然后按F5，運(yùn)行新建宏。輸入張數(shù)， 很快就建立完成了。 Sub 新建() Dim arr, sh As Worksheet shtNum = Application.InputBox("請(qǐng)輸入復(fù)制工作表的張數(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中找到需要批量命名的表格文件并將其打開，如下圖所示，進(jìn)入下一步。 2、在這里以用人名為例做演示，將需要批量命名的內(nèi)容選中后，點(diǎn)進(jìn)文件

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

EXCEL中如何批量重命名工作表名稱_百度經(jīng)驗(yàn) http://jingyan.baidu.com/article/e9fb46e176af787521f766dd.html

點(diǎn)擊“運(yùn)行-運(yùn)行子過程/用戶窗體”。

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

回到Excel，會(huì)發(fā)現(xiàn)成功批量重命名工作表。

一樓的稍有點(diǎ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 插入-模塊，然后將以上代碼粘貼，運(yùn)行以上宏，或者在工作中做個(gè)按鈕。不懂的話再留言。另外需

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

如何excel 批量修改sheet名稱

方法/步驟

首先，我們來(lái)準(zhǔn)備新的名字，對(duì)應(yīng)相應(yīng)的工作表，從A2單元格開始，A1存放標(biāo)題字段。

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

進(jìn)入VBE對(duì)話框后，右擊thisworkbook,選擇插入，然后選擇模塊。版

雙擊模塊，進(jìn)入代碼輸入框輸入一下代碼

Sub 重命名()

Dim i&

For i = 2 To Sheets.Count

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

Next

End Sub

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

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

在空白處，拖動(dòng)鼠標(biāo)，畫出一個(gè)大小適合的按鈕，然后右擊選擇制定宏。

選擇重命名，然后點(diǎn)擊確定。

excel工作表批量改名

這個(gè)只能用來(lái)VBA來(lái)實(shí)現(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編輯器。然后工具－宏－宏，選中“問改工作表名稱”這個(gè)宏名，單擊執(zhí)行。答

怎么批量修改excel工作表名

方法/步驟

首先，我們來(lái)準(zhǔn)備新的名字，對(duì)應(yīng)相應(yīng)的工作表知，從A2單元格開始，A1存放標(biāo)題字段。

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

進(jìn)入VBE對(duì)話框后，右擊thisworkbook,選擇插入，然后選擇模塊。

雙擊模塊，進(jìn)入代碼輸入框輸入一下代碼

Sub 重命名()

Dim i&

For i = 2 To Sheets.Count

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

Next

End Sub

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

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

在空白處，拖動(dòng)鼠標(biāo)，畫出一個(gè)大小適合的按鈕，然后右擊選擇制定宏。容

選擇重命名，然后點(diǎn)擊確定。

8

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

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

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

后者比較簡(jiǎn)單百(需要一定的dos知識(shí)度)。

1、 使用cmd 進(jìn)入命令行模式；

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

dir *.* >1.txt

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

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

稍微處理下就能獲得 相應(yīng)的 文件列表

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

在第二列將步驟3中獲得的名稱粘貼進(jìn)去

在第三列放置答新文件名

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

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

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

代碼如下：

    for i=2 to Sheets.Count

        Sheets(i)=trim(i-1)

    next i

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

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