excel中 让sheet2以后的工作表按照sheet1中的A列数据重命名

Sub rn()
    For i = 1 To Sheets.Count
        Sheets(i).Name = Cells(i, 1)
    Next i
End Sub

Sub 按A列数据批量修改表名称()
Dim i%
For i = 2 To Sheets.Count
Sheets(i).Name = Cells(i + 1, 1).Text
Next
End Sub本回答被提问者采纳