Sub RenameSheet() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Name = Sheets(i).Range("A1").Value Next End Sub
Excel VBA将所有Sheet重命名为单元格a1的名称
原文：http://blog.csdn.net/lucky51222/article/details/44179963
