-一次性取工作薄内所有工作表名

hxqzccct · 发表于 2008-3-29 11:10

本帖最后由爱疯于 2013-4-2 10:24 编辑 <br /><br /><

>  假设一个工作薄内有8个工作表，分别为：表1，表2，表3，表4，表5，表6，表7，表8。<BR>如何通过公式一次性在每个工作表的A1单元格显示其工作表名[em01][em01][em01][em01]<BR></P>
<

>正确答案：选取所有工作表,在A1输入=RIGHT(CELL("filename",A1),2)<BR></P>
<

>  不过上面的公式投机取巧了，如果当工作表名的字符不一样时，用下面的方法。</P>
<

>定义名称：gongzuobiao=REPLACE(CELL("filename",!A1),1,FIND("]",CELL("filename",!A1,"")&T(NOW())，然后邮件单击工作表-选定所有工作表，在A1中输入=gongzuobiao即可</P>[em01][em01][em01][em01]

天正蓝 · 发表于 2008-3-29 11:23

<p><font style="BACKGROUND-COLOR: #cce8cd;">跑得那么快可惜我不会呀，期待答案哦！</font>[em01]</p>

hxqzccct · 发表于 2008-3-29 11:23

用函数解决[em01][em01]

JANEY · 发表于 2008-3-29 11:44

选取所有工作表,在A1输入=RIGHT(CELL("filename",A1),2)

hxqzccct · 发表于 2008-3-29 11:48

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>JANEY</i>在2008-3-29 11:44:00的发言：</b><br/>选取所有工作表,在A1输入=RIGHT(CELL("filename",A1),2)</div>让你投机取巧了   呵呵  要是工作表名称的字符不一样，你的公式就不行了。[em01][em01][em01]

JANEY · 发表于 2008-3-29 11:49

<p>工作表名称的字符不一样的话就用</p><p>=rightb(cell("filename",a1),lenb(cell("filename",a1))-findb("]",cell("filename",a1)))</p>

君柳 · 发表于 2008-3-29 11:49

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hxqzccct</i>在2008-3-29 11:48:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>JANEY</i>在2008-3-29 11:44:00的发言：</b><br/>选取所有工作表,在A1输入=RIGHT(CELL("filename",A1),2)</div>让你投机取巧了   呵呵  要是工作表名称的字符不一样，你的公式就不行了。[em01][em01][em01]</div><p>你的题目出的让人有巧可乘啊</p>

hxqzccct · 发表于 2008-3-29 11:58

<p>偷懒了一下  呵呵 </p>

千里马 · 发表于 2008-5-20 13:37

waitinghjf · 发表于 2008-5-23 23:55

我咋弄不出来呢?

		自动登录	找回密码
密码			注册