VBA提取所有工作表名

南仁海杨

请问怎么用VBA提取一个工作簿中所有工作的表名放到单元格中,有200+个表,我想把它们提到Z1:Z200+里以便于做数据有效性.,因为本来有更多的表,后来处理掉了SHEET3~SHEET124,但工作表名已重命名过了,不再是表面的SHEET1.......... ,请大侠帮忙.谢谢了.

[ 本帖最后由 南仁海杨 于 2010-5-11 18:12 编辑 ]

一意孤行

Sub test()
    For i = 1 To ThisWorkbook.Worksheets.Count
        Cells(i, "Z") = Sheets(i).Name
    Next
End Sub

南仁海杨

谢谢大懒猫,解决了,原来CELLS(,)的列还可以这样表示.

一意孤行

原帖由 南仁海杨 于 2010-5-11 18:25 发表
谢谢大懒猫,解决了,原来CELLS(,)的列还可以这样表示.

用"Z"应该没有用26效率。

csxinmingcs

好厉害啊，学习啦{:soso_e183:}

kaka11

学习了 谢谢

kevingarnett198

又学习到新东东～～～{:soso_e163:}

jpj123

学习了，谢谢!

aoe1981

据说这个可以用宏表函数：定义名称：workbookname=get.workbook(1)，然后这个在工作表单元格内输入=workbookname即可！

jhwjm369

如果汇总本身这个表不包括在内该怎么处理啊。