随笔-94  评论-56  文章-3  trackbacks-0

问题:
一个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)  编辑  收藏 所属分类: 软件应用

评论:
# re: 使用EXCEL宏取得所有Sheet名 2009-03-20 11:35 | HAN
太好了,第一次用宏,还这好用,多谢啊!  回复  更多评论
  
# re: 使用EXCEL宏取得所有Sheet名 2010-07-11 17:29 | BBQ

Sub SheetName()

For i = 1 To Sheets.Count

Worksheets(Sheets(1).Name).Cells(i, 1).Value = Sheets(i).Name
Next i

End Sub

简化
Worksheets(Sheets(1).Name) = Worksheets(i)  回复  更多评论
  
# re: 使用EXCEL宏取得所有Sheet名 2010-07-11 17:32 | BBQ
上面的表述应该如下
Worksheets(Sheets(1).Name) 可以被 Worksheets(1) 替换

这样比较简单:)  回复  更多评论
  

只有注册用户登录后才能发表评论。


网站导航: