行號(hào)：pow()  列號(hào)：column()

rem 將所有工作表名稱(chēng)寫(xiě)入到當(dāng)前工作表第一列

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