Sub RenameSheet()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("A1").Value
Next
End SubExcel VBA将所有Sheet重命名为单元格a1的名称
关注
打赏
Sub RenameSheet()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("A1").Value
Next
End Sub
微信扫码登录
