简单代码上的VBA内存不足错误

我有一个非常简单的代码，我试图运行，在这里：

Sub Highlight() Dim Diff As Range, cell As Range Set Diff = Sheets(1).UsedRange.Columns("N:S") For Each cell In Diff If cells.Value2 > 0.1 Then cell.Interior.ColorIndex = 0 End If Next End Sub 

但是，在If语句中，我得到运行时7：内存不足。 我在一个相当小的数据集（<5,000个单元）上运行它，closures了所有其他程序/不必要的进程，并且任务pipe理器显示大量内存。 我不知道什么可能造成这一点。

有任何想法吗？

Answer 1

你的代码有一个错字。 Your For Eachvariables是cell ，但是您的代码使用了cells.Value2 。

 For Each cell In Diff ' Using cell (singular) If cells.Value2 > 0.1 Then ' Using cells (plural) cell.Interior.ColorIndex = 0 End If Next 

另外，我怀疑你的范围（ Diff ）中的值不是数字或是空的。