各位大侠，如何对Sheet名称进行附值

libin9804

如下表的Sheet名称分别为：
A01,A02...A0M,B01,B02...B0N,C01,C02...C0O
M,N,O为不定值；
如何进行对应sheet的名称进行引用。
Set CW_A01Sheet =Worksheets(1)
Set CW_A02Sheet =Worksheets(2)
...
Set CW_A0MSheet =Worksheets(m)
Set CW_B01Sheet =Worksheets(m+1)
Set CW_B02Sheet =Worksheets(m+2)
...
Set CW_B0NSheet =Worksheets(m+n)
Set CW_C01Sheet =Worksheets(m+n+1)
Set CW_C02Sheet =Worksheets(m+n+2)
...
Set CW_C0OSheet =Worksheets(m+n+o)
如何通过判断和循环来进行名称的引用了？谢谢！

pureshadow

可以把这堆东西放在一组单元格或数组里，然后用循环来给工作表名称赋值。

libin9804

能否提供一下代码参考，我有点晕。谢谢

pureshadow

先把你那堆东东放单元格里，假设从A1开始吧，向下。
dim myrow as long
  for myrow = 1 to range("a65536").end(xlup).row
  sheets(myrow).name = cells(myrow,1)
  next myrow
当然了，相应的工作表也要有那么多，如果不是的话要插入。
dim myrow as long
  for myrow = 1 to range("a65536").end(xlup).row
  sheets.add
  activesheet.name = cells(myrow,1)
  next myrow

seki

4# pureshadow
应该还有别的方法.

ACMAIN_CHM

没看懂楼主想实现什么功能。很少有见这么干的。定义这么多对象变量。

建议楼主直接描述想实现的功能，这样或许反而容易些。