excel 工作表批量重命名

Question

假如A列有12个数据，工作簿中有12个工作表，如何利用vba实现12个工作表按照A列的12个数据重命名？谢谢

Answer 1

Sub 重命名()
Dim Arr, i&, Sh As Worksheet
 Arr = [a1:a12]
 i = 0
 For Each Sh In Worksheets
 i = i + 1
 Sh.Name = Arr(i, 1)
 Next Sh
End Sub

本回答被提问者采纳

Answer 2

VBA可以
批量重命名追问

可以告知vba语句吗？

追答

Sub ABC()
For i = 1 To 12
Sheets(i).Name = Cells(i, 1)
Next
End Sub