查找工作部内的所有工作表

Sub Sheet()
For k = 1 To Sheets.Count
Cells(k, 1) = Sheets(k).Name
Next
End Sub

posted on 2015-07-10 10:59  Mr.耳东  阅读(158)  评论(0)  编辑  收藏  举报