“对于”与排回路比较两列

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 & 2在这个例子中）然后输出到第三列。

如果您打算喜欢，您会检查选择的尺寸/位置，以确保您有比较和目的地的基础。