在Excel VBA中，可以使用Range对象的Value属性来比较两个单元格的值。以下是一个简单的代码示例，其中一个单元格具有自定义数字格式：

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 "两个单元格的值相等"
    Else
        MsgBox "两个单元格的值不相等"
    End If
End Sub

在上述代码中，我们定义了两个Range对象，分别表示要比较的两个单元格（在这个例子中是A1和B1）。然后，使用Value属性获取单元格的值，并使用If语句比较这两个值。根据比较结果，我们可以采取相应的操作。

请注意，这段代码只比较了两个单元格的值，而没有考虑到单元格的格式。如果需要考虑单元格的格式，可以使用NumberFormat属性获取单元格的格式，并进行比较。例如：

Sub CompareCells()
    Dim cell1 As Range
    Dim cell2 As Range
    
    ' 定义要比较的两个单元格
    Set cell1 = Range("A1")
    Set cell2 = Range("B1")
    
    ' 比较两个单元格的值和格式
    If cell1.Value = cell2.Value And cell1.NumberFormat = cell2.NumberFormat Then
        MsgBox "两个单元格的值和格式都相等"
    Else
        MsgBox "两个单元格的值和格式不相等"
    End If
End Sub

在这个例子中，我们使用NumberFormat属性获取单元格的格式，并与Value属性获取的单元格值一起比较。只有当单元格的值和格式都相等时，才会显示相等的提示信息。