如何用单元格内容来替换新建工作表名称

linyaya

<p>如果我要用A1至A9的内容来替换新建工作表名称，这代码要怎么写，我写了段好象会出错，各位帮忙看看</p><p>dim xx as integer</p><p>for xx =1 to range("a65536").end(xlup).row</p><p>worksheets.add</p><p>activesheet.name=range("a"&amp;xx).value</p><p>next xx</p><p>end sub</p>

E-H-P

<p>dim xx as integer</p><p>for xx =1 to sheet1.range("a65536").end(xlup).row</p><p>worksheets.add</p><p>activesheet.name=sheet1.range("a"&amp;xx).value‘指定这个range的工作表</p><p>next xx</p><p>end sub</p>

linyaya

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>E-H-P</i>在2010-5-23 14:52:00的发言：</b><br/><p>dim xx as integer</p><p>for xx =1 to sheet1.range("a65536").end(xlup).row</p><p>worksheets.add</p><p>activesheet.name=sheet1.range("a"&amp;xx).value‘指定这个range的工作表</p><p>next xx</p><p>end sub</p></div><p>明白了，我以为在工作表1建的就不用指定，忘了加进去试试</p>

linyaya

<p>奇了怪了，咋不能设置最佳答案呢</p>

帅

[em01][em01]

豆丁

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>linyaya</i>在2010-5-23 15:03:00的发言：</b><br/><p>奇了怪了，咋不能设置最佳答案呢</p></div><p>你发错地方了[em03]</p>