'For'循环与比较两列

我有一些类似于下面的代码：

set SelectionRNG = Range("A1:B10") for each xrow in SelectionRNG.rows if xrow.value(1,1) = xrow.value(1,2) do something 

我需要做的就是比较存储在xrow的两个值。

 xrow.value(1,1) = xrow.value(1,2) 

不起作用。

我如何参考每个值？

Answer 1

你是在这样的事情之后：

 Dim rngSelection As Range Dim rngRow As Range Set rngSelection = Range("A1:B10") For Each rngRow In rngSelection.Rows If rngRow.Cells(1, 1) = rngRow.Cells(1, 2) Then rngRow.Cells(1, 3) = "same" Else rngRow.Cells(1, 3) = "different" End If Next 

使用“单元格”，您可以指定1作为行的第一行，然后在输出到第三列之前指定要比较的列编号（本例中为1和2）。

如果你喜欢，你会检查select的大小/位置，以确保你有比较和目的地的基础。