EXCEL:总结

行号：pow()  列号：column()

rem 将所有工作表名称写入到当前工作表第一列

Sub shtName()
    Dim sht As Worksheet, i As Integer
    i = 1
    For Each sht In Worksheets
        Cells(i, "A") = sht.Name
        i = i + 1
    Next sht
End Sub

 

posted @ 2021-07-20 06:38  myrj  阅读(75)  评论(0)  编辑  收藏  举报