【来日复制粘贴】提取工作表和工作簿名称

在过Excel 函数与公式的时候，看到一个可能以后在写vba时候能够使用的长公式。特此记录。

效果：

具体公式：

=CELL("filename",$A$1)

=MID(B2,FIND("]",B2,1)+1,100)

=REPLACE(REPLACE(B2,1,FIND("[",B2,1),""),FIND("]",REPLACE(B2,1,FIND("[",B2,1),""),1),100,"")

然后如果把B2的内容直接定义为名称，那么用起来就更方便啦。

工作簿名称

=REPLACE(REPLACE(CELL("filename",!$A$1),1,FIND("[",CELL("filename",!$A$1),1),""),FIND("]",REPLACE(CELL("filename",!$A$1),1,FIND("[",CELL("filename",!$A$1),1),""),1),100,"")

工作表名称

=MID(CELL("filename",!$A$1),FIND("]",CELL("filename",!$A$1),1)+1,100)