您的位置:首页 > 其它

自动提取全部EXCEL sheet 名称

2012-08-18 15:31 429 查看
获得工作簿内所有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)))))
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: