摘要: 行号:pow() 列号:column() rem 将所有工作表名称写入到当前工作表第一列 Sub shtName() Dim sht As Worksheet, i As Integer i = 1 For Each sht In Worksheets Cells(i, "A") = sht.Nam 阅读全文
posted @ 2021-07-20 06:38 myrj 阅读(74) 评论(0) 推荐(0) 编辑