Question

excel 引用sheet页名，并把sheet名写入指定的单元格中。

例如：我目前有4个sheet页，要把后面的sheet名写在第一个sheet页中。新建的sheet页也自动添加到第一个sheet页中。

Answer 1

Private Sub Worksheet_Activate()

Dim sh As Worksheet

    For Each sh In ThisWorkbook.Sheets
        x = x + 1
        Cells(1, x) = sh.Name
    Next

End Sub

事件写在总结工作表里，或者你弄成工作薄事件也行。

另外，总结表格不加进去的话，可以加个判断就可以了。

追问

这部分写在哪里？能给个具体指示吗？

追答

试一下这个附件，记得启用宏

追问

非常好，完美达到我的要求。
我怎么才能把你的东西移植到我的文件中呢？
谢谢！

追答

将这段代码添加到你的工作表里就可以了。在VBE编辑器里面。

Answer 2

批量提取工作表名：

百度经验 自定义名称 ： get.workbook
http://jingyan.baidu.com/article/0f5fb099cce54d6d8334ea2c.html

row(A1) 换成 column(B1)