比较 Excel VBA 中的两列（大于/小于或等于）

Question

我真的很惊讶我很难找到答案。我有 2 列包含一堆数字（在同一个工作表上）。我只是想让代码对列中的每一行说“如果第 1 列中的值 > 第 2 列中的值，请执行此操作”。我试过了

If sheet.range("B2:B35").Value > sheet.range("C2:C35").Value Then
'do something
End If

但显然它不是那样工作的。

Answer 1

您需要考虑一个循环来独立检查每一行。

这个想法是这样的：

For i = 2 to 35
    If Sheet.Range("B" & i).Value > Sheet.Range("C" & i).Value
        'Do Something for Row i
    End If
Next

Value 可以省略，因为它是隐式的，这意味着Sheet.Range("B" & i).Value 返回与Sheet.Range("B" & i) 相同的结果

此外，根据您的需要，有多种方法可以寻址单元格。

  Range() 'Can be used to address multiple cells at the same time over a range
          ' or used to address a single cell as is done here

  Cells() 'Can be used to address a single Cell by calling Cells("B" & i) as is 
          ' done above, or can reference the row and column numerically like  
          ' Cells(2, i)

如果您希望在给定的工作表中移动，则上述任何一种方法都可以与Offset() 结合使用，例如：

  Cells(2, 1).Offset(0, i) 'Addresses the Cell offset from "B1" by 0 columns and
                           ' i rows.  

在这些情况下，我个人倾向于使用 Cells(2, i)，但我只是使用了 Range，因为我直接从您的示例代码 sn-p 中借用了它。