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