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

?

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

?

小白：哇，好厲害，但是為什么只有前四個(gè)工作表完成了批量改名，最后一個(gè)工作表沒有改，而且出現(xiàn)了報(bào)錯(cuò)呢？

?

果果：那是因?yàn)槟愕淖詈笠粋�(gè)工作表里面有合并單元格啊，只要在代碼里面加一句On?Error Resume Next再運(yùn)行，在遇到錯(cuò)誤的時(shí)候就會(huì)自動(dòng)跳過，而不彈出錯(cuò)誤提示對話框了。

?

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

?

果果：在工作表里，這類取單元格一部分字符的問題，一般可以使用Left、Right、Mid、Len等函數(shù)嵌套來實(shí)現(xiàn)。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

下面這張圖片，是大家總結(jié)的結(jié)果：

?