分享---以A1单元格命名工作表

yewei113

Sub 以A1单元格命名工作表()
For i = 1 To ActiveWorkbook.Worksheets.Count
n = Worksheets(i).Range("A1").Value
If n <> "" Then
Worksheets(i).Name = n
End If
Next
End Sub

yanglinman

学习了，