-excel表批量重命名,excel表格无法重命名

下面的代来码应该可以：源

Option Explicit

Sub x()

    Dim arr, i

    arr = Sheets("sheet1").Range("a1").CurrentRegion

    For i = 1 To UBound(arr)

        Sheets("" & arr(i, 1)).Name = arr(i, 2)

    Next i

End Sub

百度输入百的代码可能显示很度乱，代问码窗口拷屏如答下：