[已解决]如何将表名写到表中指定位置（多张表同时）

adan_bai

如：将表名放在A2处
考试.zip (18.59 KB, 下载次数: 13)

2012-12-20 02:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

梅一枝

2012-12-20 09:45

Sub ss()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Select
        ActiveSheet.Range("a2") = Sheets(i).Name
    Next i
End Sub
是这样吧

跳转到最佳答案楼层

hongqiqqq

建议你把表的名称改一下命名方式
如果你的工作表越来越多，你的要求就很难满足了

rinyxa

1. z=MID(GET.DOCUMENT(1),FIND("]",GET.DOCUMENT(1))+1,100)

复制代码

在插入——名称——定义
再选定全部表格，在A2中输入“=z“即可
这是宏表函数

梅一枝

Sub ss()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Select
        ActiveSheet.Range("a2") = Sheets(i).Name
    Next i
End Sub
是这样吧