[VBA]获得工作表名称

sub 获得工作表名称()

Dim i As Integer

For i = 1 To Worksheets.Count

Cells(i, 2) = Worksheets(i).Name

Next

End Sub