获得工作簿内所有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)))))
转载于:https://blog.51cto.com/magiczsc/966397