1. 第一步，我們打開(kāi)excel表格文件后，再重新新建一個(gè)sheet表；

2. 在新建的這個(gè)sheet表中，我們依次輸入各個(gè)sheet表的名字；

3. 輸入完后，點(diǎn)擊定位的菜單欄選項(xiàng)“開(kāi)發(fā)工具”，如圖所示。

4. 在開(kāi)發(fā)工具的下拉菜單中，點(diǎn)擊“查看代碼”按鈕。

5.彈出VBE對(duì)話窗口后，我們?cè)谌缦聢D的地方下拉找到并點(diǎn)擊“ThisWorkBooK”一項(xiàng)，然后右鍵選擇點(diǎn)擊“插入/模塊”菜單項(xiàng)。

6. 接下來(lái)在彈出的窗口中輸入代碼

Sub 重命名()

Dim i&

For i = 2 To Sheets.Count

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

Next

End Sub

7. 輸入完后就可以把VBE窗口關(guān)閉了，接下來(lái)我們?cè)冱c(diǎn)擊開(kāi)發(fā)工具上的“插入/按鈕”菜單項(xiàng)。

8. 接下來(lái)在表格中拖動(dòng)鼠標(biāo)，建立一個(gè)按鈕，然后會(huì)彈出指定宏窗口，選擇“重命名”一項(xiàng)，最后點(diǎn)擊確定按鈕。

9. 接下來(lái)，再點(diǎn)擊開(kāi)發(fā)工具下的“設(shè)計(jì)模式”按鈕，將這個(gè)狀態(tài)取消。

10. 然后點(diǎn)擊一下我們剛剛新建的那個(gè)按鈕，會(huì)發(fā)現(xiàn)下面的sheet表全都重命名了，效果如下圖。

以上就是excel2016將工作表一次性批量重命名的方法。