Vba 在一百个工作簿上应用宏，然后将结果复制到主Excel文件中

我重写了它。。。这是一个好一点，但它不完全做我想要的。。。下面是一些示例数据和成品示例

样本数据：

---

尝试重新排列DoWork sub的底部，因为

End If

应首先出现，然后

Next

，最后

End With

与此相反：

        End With
    End If
Next

做：

---

嗯，好像没那么做。。。仍然收到与您的代码具有相同错误的

，

然后

对于

然后

如果

。这些必须按顺序关闭如果结束然后下一步然后结束@pteranodon是对的我的坏了，试试看now@pteranodon，这使我通过了编译错误。很遗憾，我收到了一个“工作表类的选择方法失败”错误。现在，我收到了一个“工作表类的选择方法失败”。您的

DoWork

函数依赖于活动工作簿/工作表。您应该明确哪个wb/sh。

        End With
    End If
Next

        End If
    Next
End With