在使用VBA编写Excel宏时，可以使用以下代码示例来比较单元格的值：

1. 使用IF语句比较单元格的值：

Sub CompareCells()
    Dim cell1 As Range
    Dim cell2 As Range
    
    Set cell1 = Range("A1")
    Set cell2 = Range("B1")
    
    If cell1.Value = cell2.Value Then
        MsgBox "Cell1 equals Cell2"
    Else
        MsgBox "Cell1 does not equal Cell2"
    End If
End Sub

上述代码示例中，我们比较了单元格A1和B1的值。如果它们的值相等，将显示"Cell1 equals Cell2"的消息框；否则，将显示"Cell1 does not equal Cell2"的消息框。

2. 使用SELECT CASE语句比较单元格的值：

Sub CompareCells()
    Dim cell As Range
    
    Set cell = Range("A1")
    
    Select Case cell.Value
        Case 1
            MsgBox "The value is 1"
        Case 2
            MsgBox "The value is 2"
        Case Else
            MsgBox "The value is neither 1 nor 2"
    End Select
End Sub

上述代码示例中，我们比较了单元格A1的值。根据其值的不同，将显示不同的消息框。如果值是1，将显示"The value is 1"的消息框；如果值是2，将显示"The value is 2"的消息框；否则，将显示"The value is neither 1 nor 2"的消息框。

这些示例代码可以根据具体需求进行修改和扩展，比较不同单元格的值，并根据比较结果执行不同的操作。