EXCEL:總結(jié)
行號(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

浙公網(wǎng)安備 33010602011771號(hào)