问题：
一个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
小言身寸 阅读(5699)
评论(3) 编辑 收藏 所属分类:
软件应用