zhanglin123

Sub fz()

Dim i As Integer

For i = 1 To Sheets.Count   

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

Next

End Sub

分类:

技术点:

相关文章: