分享

自动提取全部EXCEL sheet 名称

 株野 2021-05-09

获得工作簿内所有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)))))

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多