问题:
一个EXCEL中有N个SHEET
想把所有的SHEET的名字都读到一个SHEET中。
解决方案:
1、点击工具--选项--安全性--宏安全性--在安全级里面选择最后一个低。
2、点击工具--宏--宏--在宏名中输入SheetName--点击创建按钮。
3、将下面的代码复制、粘贴--按F5执行
Sub SheetName()
For i = 1 To Sheets.Count
Worksheets(Sheets(1).Name).Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
注意:
1、Worksheets(Sheets(1).Name)是你的第一个sheet,你也可以改成 Worksheets("sheetname"),其中的sheetname是你想要存放的sheet的名称
2、Cells(i, 1)中的1代表是第一列既A列,你也可以改成2、3、4……依此类推分别代表B、C、D列
posted on 2008-02-21 09:57
小言身寸 阅读(5703)
评论(3) 编辑 收藏 所属分类:
软件应用