我有很多工作表，需要將工作表名改為工作表內指定的固定單元格的值，有什么好方法么？

?

簡單，一段VBA搞定。【Alt+F11】打開VBA窗口，【插入】——【模塊】，將下面這段代碼粘貼進去，按F5運行就可以了。?Public Sub果果( )?For i=1 To Sheets.Count?Sheets(i).Name=Sheets(i).Cells(1,2)?Next?End Sub

?

小白：哇，好厲害，但是為什么只有前四個工作表完成了批量改名，最后一個工作表沒有改，而且出現了報錯呢？

?

果果：那是因為你的最后一個工作表里面有合并單元格啊，只要在代碼里面加一句On?Error Resume Next再運行，在遇到錯誤的時候就會自動跳過，而不彈出錯誤提示對話框了。

?

小白：如果我只想取單元格值里的一部分字符作為工作表名，例如不要前兩個字符“一只”，可以實現嗎？

?

果果：在工作表里，這類取單元格一部分字符的問題，一般可以使用Left、Right、Mid、Len等函數嵌套來實現。VBA里的解決方法大同小異，代碼如下：?Sheets(i).Name=Right(Sheets(i).Cells(1,2),Len(Sheets(i).Cells(1,2))-2)

?

最終完整代碼：?Public Sub果果()?On Error Resume Next?For i=1 To Sheets.Count?Sheets(i).Name=Right(Sheets(i).Cells(1,2),Len(Sheets(i).Cells(1,2))-2)?Next?End Sub

下面這張圖片，是大家總結的結果：

?