excel 批量重命名指定的表名?
发布网友
发布时间：2022-04-26 12:01
共1个回答
热心网友
时间：2022-06-28 03:54
下面的代码应该可以：
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
百度输入的代码可能显示很乱，代码窗口拷屏如下：
