Question

EXCEL的vba循环问题，求高手

我工作上要用到一个宏来执行出货的整理，宏本身没有问题，可以对当前工作表正常执行，这里就不弄上来了。

关键的要处理的出货单经常是一个EXCEL文件含多个工作表，我不知道如何让多个工作表循环执行这个宏，只能是手动的在当前工作表执行一次宏，再手动点下个工作表再执行一次宏，工作表数目多的话有点不方便，求高手帮我整个循环的代码。。

注：我收到的出货单下面的每个工作表名都不是固定的Sheet1,Sheet2,Sheet3。。而是根据实际成品自己命名的，而且工作表数目也不一定的，有时候3个4个，有时候10多个。。

求高手帮忙，真得很需要解决！！

Answer 1

Dim Sh As Worksheet
For Each Sh In Worksheets

Next
将你的代码放到FOR 和NEXT 之间，Sh 是表名，把你原代码的表名全部改成Sh,如果原代码没有加表名的话，要加上，否则只是执行代码所在的工作簿。

追问

不行哦 ，按照你方法。。原先 Sheets("Sheet1").Select 这句代码不管是改成 Sheets("Sh").Select 还是Sheets(Sh).Select都运行不过去。。加引号提示实时运行错误9，下标越界；不加引号提示实时运行错误13，类型不匹配。。

追答

额、、、 改这样 Sh.Select。还是不行你就发完整代码来吧，