使用vba比较excel中的2个单元格

Question

我想比较2个单元格的值，看看它们是否匹配。 我知道如何在excel上执行此操作，但我不知道如何将其放入vba代码。

输入输出：

1. 单元格A1的值已在Excel中。
2. 在单元格B1中手动输入一个值。
3. 单击button_click子项以查看2个单元格上的值是否相同。
4. 在单元格C1上显示“是”或“否”

Excel公式：

=IF(A1=B1,"yes","no")

Answer 1

试试看：

Sub CompareCells()
    If [a1] = [b1] Then
        [c1] = "yes"
    Else
        [c1] = "no"
    End If
End Sub

将此代码分配给按钮。

Answer 2

If (Range("A1").Value = Range("B1").Value) Then
    Range("C1").Value = "Yes"
Else
    Range("C1").Value = "No"
End If

Answer 3

这是一个变化中的Sub（代码必须在工作表模块中）。 仅当您更改B列中的单元格时，它才会激活。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column <> 2 Then Exit Sub
    If Cells(Target.Row, 1).Value = Cells(Target.Row, 2).Value Then
        Cells(Target.Row, 3).Value = "Yes"
    Else
        Cells(Target.Row, 3).Value = "No"
    End If
End Sub

作为记录，它不使用按钮，但是它可以实现您每次在Col B中的单元格中手动输入数据时计算两个单元格是否相等的目标。

Answer 4

您可以在VBA中使用IIF函数。 它类似于Excel IF

[c1] = IIf([a1] = [b1], "Yes", "No")

Answer 5

Sub CompareandHighlight()
    Dim n As Integer
    Dim sh As Worksheets
    Dim r As Range

    n = Worksheets("Indices").Range("E:E").Cells.SpecialCells(xlCellTypeConstants).Count
    Application.ScreenUpdating = False 

    Dim match As Boolean
    Dim valE As Double
    Dim valI As Double
    Dim i As Long, j As Long

    For i = 2 To n
        valE = Worksheets("Indices").Range("E" & i).Value
        valI = Worksheets("Indices").Range("I" & i).Value

        If valE = valI Then

        Else:                           
            Worksheets("Indices").Range("E" & i).Font.Color = RGB(255, 0, 0)
        End If
    Next i

    Application.ScreenUpdating = True
End Sub