关于VBA复制工作表，麻烦各位帮我看下哪里出了问题？

潇洒一哥

我想通过VBA实现根据A列的内容创建工作表。首先判断是否已经存在表名与A列单元格内容一样的工作表，如果有就保留，如果没有，就复制sheets(2)，但是程序运行后，到sheets(1)第3行后的就有问题了，各位帮我看看怎么修改代码？另外，如果我想要工作表创建完成后，排序按照A列内容顺序排序，代码又怎么写呢？小弟第一次发帖，请论坛的兄弟姐妹们多多帮助。

Book1.zip (16.52 KB, 下载次数: 20)

2013-3-6 11:27 上传

点击文件名下载附件

hehex

你的代码应该是没问题的。例子文件跑出来有问题是因为，你已经插了3个表。估计是单步调试造成的。
然后停下来从头运行，前面几个表是存在的，所以都很好的 执行了 Set wsh = Worksheets(b) 这句话的时候
wsh 指向一个工作表对象。而当循环到第4个表的时候，这句话其实没有执行因为出现了下标越界的错误，根据on error resume next所以直接执行下一句。而wsh 不是Null 而是指向了上一个表，因此if 判断永远为假。
你把所有的除了(1)(2) 之外的表删除，程序就正常了。
至于排序问题，你完全可以现在单元格区域完成排序，然后再执行复制，这样不就是名字排好序的？否则对工作表名称去排序执行起来麻烦的多。

xiaozhuboe

hehex 发表于 2013-3-6 17:36
你的代码应该是没问题的。例子文件跑出来有问题是因为，你已经插了3个表。估计是单步调试造成的。
然后停下 ...

+1说的很有道理

潇洒一哥

谢谢楼上的两位高手热心帮助。