历遍工作表 运行时错误7 内存溢出结果是正确的,但是提示运行时错误7 内存溢出 自己看半天看不出来哪里错了 Sub 汇总() Dim wshz, wsqd As Worksheet Dim r, i, j, a, b, n As Integer Dim arr As Variant Set wshz = Worksheets("汇总") Set wsqd = Worksheets("外协组装规格清单") r = Worksheets.Count 'sheet表数总计 wshz.Range("a1") = "加工订单号" wshz.Range("b1") = "ID号" wshz.Range("c1") = "加工数量" For i = 1 To r If Sheets(i).Name <> "外协组装规格清单" And Sheets(i).Name <