＆＃39;对于＆＃39;在行上循环比较两列

Question

我有类似下面的代码：

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＆amp; 2），然后输出到第三列。

如果您想要看中，您需要检查选择的大小/位置，以确保您有比较基础和目的地。