Question

我想编写VBA代码，以比较两个不同工作表中的两列。

我在Sheet1列B和Sheet2列B中都有数据。

用于比较两列的公式位于Sheet2：=B2=Sheet1!B2中。

请您帮我为上述公式编写VBA代码。

我不确定如何在VBA代码中使用以上公式。

Answer 1

要比较的基本代码是

If Sheet1.Range("B1").Value = Sheet2.Range("B1").Value Then
    'Code to execute when criteria is met
Else
    'Code to execute when criteria is not met
End If

else部分是可选的，如果不需要，可以省略

如果您想比较整列，有几种方法可以做到。我最喜欢的是：

Dim iLastRow As Integer
iLastRow = Sheet1.Cells(Sheet1.Rows.Count, 2).End(xlUp) 'Gets the last row

For i = 1 To iLastRow 'Compares each row and executes the code if 
    If Sheet1.Range("B" & i).Value = Sheet2.Range("B" & i).Value Then
        'Code to execute when criteria is met
    Else
        'Code to execute when criteria is not met
    End If
Next i

如果要比较显示/格式化的单元格文本而不是其后面的值，请使用 .Text 而不是 .Value （例如，“ 2019年9月10日” “而不是43718）

需要比较两列并将输出提供给第三列

1 个答案: