获得工作簿内所有sheet的名称

=IF(ROW()>COUNTA(allsheetnames),"",(INDEX(allsheetnames,ROW())))

可以在任意单元格输入，但是，必须有个先行条件  因为excel没有allsheetnames这个公式

这个是个自定义公式，首先先自定义公式 找到名称管理器

新建 ，名称的位置输入 allsheetnames  引用位置 输入=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())

然后保存 关闭，然后=IF(ROW()>COUNTA(allsheetnames),"",(INDEX(allsheetnames,ROW()))) 这个公式就可以正确获得工作表（sheet）名称了

 

关于自动超链接

公式如下

=HYPERLINK("#"&A1&"!a7", A1)

现在合二为一

 

把A1 替换成IF(ROW()>COUNTA(allsheetnames),"",(INDEX(allsheetnames,ROW())))   就终极进化成

=HYPERLINK("#"&IF(ROW()>COUNTA(allsheetnames),"",(INDEX(allsheetnames,ROW())))&"!a7", IF(ROW()>COUNTA(allsheetnames),"",(INDEX(allsheetnames,ROW()))))这个公式了，既自动获取工作簿名称 有获得超链接。 懒人有福了

最最最最终极进化

加入A7   按照顺序 提取第7个以后的所有sheet名称 并加上超链接，A7 这个数字可以根据需要随意更改

=HYPERLINK("#"&IF(ROW(A7)>COUNTA(allsheetnames),"",(INDEX(allsheetnames,ROW(A7))))&"!a7", IF(ROW(A7)>COUNTA(allsheetnames),"",(INDEX(allsheetnames,ROW(A7)))))