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