1. 程式人生 > >Excel VBA將所有Sheet重新命名為單元格a1的名稱

Excel 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