新消息：循环遍历单列中的 22 行时 VBA 内存不足

Question

完整代码如下 - 它很短。 Excel 给我一个 007 内存错误。 可能是一个坏循环？ 截至上周，我是 VBA 的新手，所以请放轻松。

这本书有160页。 我的目标是转到每个工作表，遍历 B 列以找到 Profit 所在的位置，然后转到下一列并拉出利润数字。 然后在最后将这些信息合并在一张纸上。

理想情况下，我将遍历更大的范围（例如 A1:G20）。 我认为这个大范围是问题所在，但我仍然收到只有 20 行 B 行的内存错误，所以我显然做错了其他事情。

其他帖子有点复杂，我无法根据它们进行故障排除。 谢谢！

Sub EstimGP()
Dim a As Integer
Dim i As Integer
Dim EstimGP As Integer

rng = Range("B1:B22")
a = Application.Worksheets.Count

'Select Worksheet
For i = 1 To (a - 1)
Worksheets(i).Activate

'Loop cells
For Each Cell In rng
'THIS IS WHERE THE MEMORY ERROR OCCURS
If Cells.Value = "Estimated GP%:" Or "Estimated GP%: " Then EstimGP = ActiveCell.Offset(0, 1).Value
Worksheets("SummaryData").Activate
ActiveSheet.Cells(i, 10).Value = EstimGP
Next Cell
Next i

End Sub

Answer 1

Cells是一个隐式的 ActiveSheet 引用（Rubberduck 可以为您找到它们）； 如果没有参数，它会返回一个Range对象，该对象表示ActiveSheet所有单元格（超过 16K 列超过一百万行！）。

当它代表多个单元格时， Range.Value为您提供二维Variant数组中单元格的值。

所以If Cells.Value = "some string literal"通常会失败，因为你不能在数组和文字值之间使用比较运算符：这可能只是一个错字，你打算写If Cell.Value...指的是Cell循环多变的; 考虑将其重命名为CurrentCell ，然后条件变为If CurrentCell.Value... 。 请注意，循环会更改哪个工作表处于活动状态，因此该循环中的任何隐式ActiveSheet引用都是危险的，并且不会产生所需的结果。

布尔表达式也有问题：你有If something = "abc" Or "xyz" ; 比较/逻辑运算符有 2 个操作数，每侧一个，并且它们应该是布尔表达式，因此您想将其更改为If something = "abc" Or something = "xyz" 。

考虑将外部循环更改为For Each CurrentSheet In ActiveWorkbook.Worksheets ，然后您可以处理CurrentSheet而无需Activate它们。