求助！怎么用函数得到工作簿里所有表名？

zxh6847

求助！怎么用函数得到工作簿里所有表名？

hxj119

用VBA比较简单些

1. Sub 获取工作簿所有工作表名()
   
2. 
   
3. For i = 1 To Sheets.Count
   
4. 
   
5.     sheetname = Worksheets(i).Name
   
6. 
   
7.     Debug.Print sheetname
   
8. 
   
9. Next
   
10. 
    
11. End Sub

复制代码

zxh6847

有些电脑用WPS 是函数会方便点。。

zpy2

zxh6847 发表于 2024-3-22 08:53
有些电脑用WPS 是函数会方便点。。

wps是不是要用jsa,函数好像还真没有

quqiyuan

定义名称，=get. workbook()

zhj_627

1、公式—名称管理器—新建一个名称”工作表名",引用位置=get.workbook(1)
2、在任意单元格中输入以下公式：

1. =iferror(index(工作表名,row(a1)),"")

复制代码