excel 取sheet名

Sub fz()

Dim i As Integer

For i = 1 To Sheets.Count   

　　Range("A" & i).Value = Sheets(i).Name

Next

End Sub

posted @ 2020-07-22 10:56  rjm123456  阅读(338)  评论(0)  编辑  收藏  举报