在Excel中，可以使用VBA编写代码来比较两个主列表，并突出显示其中缺少的独特配对。下面是一个示例代码：

Sub CompareLists()
    Dim ws As Worksheet
    Dim mainList As Range, compareList As Range
    Dim cell As Range
    Dim uniquePairs As Collection
    Dim pair As Variant
    
    ' 设置工作表和列表范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set mainList = ws.Range("A2:A10")
    Set compareList = ws.Range("C2:C10")
    
    ' 创建一个集合用于存储独特配对
    Set uniquePairs = New Collection
    
    ' 遍历主列表
    For Each cell In mainList
        ' 检查当前值是否存在于比较列表中
        If WorksheetFunction.CountIf(compareList, cell.Value) = 0 Then
            ' 如果不存在，将当前值和配对值添加到集合中
            uniquePairs.Add Array(cell.Value, cell.Offset(0, 1).Value)
        End If
    Next cell
    
    ' 遍历比较列表
    For Each cell In compareList
        ' 检查当前值是否存在于主列表中
        If WorksheetFunction.CountIf(mainList, cell.Value) = 0 Then
            ' 如果不存在，将当前值和配对值添加到集合中
            uniquePairs.Add Array(cell.Offset(0, -1).Value, cell.Value)
        End If
    Next cell
    
    ' 遍历独特配对集合并突出显示
    For Each pair In uniquePairs
        ' 查找主列表中对应的单元格
        Set cell = mainList.Find(pair(0), LookIn:=xlValues, LookAt:=xlWhole)
        If Not cell Is Nothing Then
            ' 如果找到，突出显示配对值单元格
            cell.Offset(0, 1).Interior.Color = RGB(255, 0, 0) ' 突出显示配对值单元格
        End If
    Next pair
End Sub

这个代码示例假设主列表的范围是"A2:A10"，比较列表的范围是"C2:C10"。你可以根据实际情况修改这些范围。

运行这段代码后，它会遍历主列表和比较列表，将独特的配对存储在一个集合中。然后，它会遍历集合中的配对，并在主列表中突出显示对应的配对值单元格。

请注意，这个代码示例假设独特配对是基于主列表和比较列表中的两列数据进行比较的。如果你要比较多列数据，你需要相应地修改代码中的比较逻辑。

另外，这个示例中使用的是内置的WorksheetFunction.CountIf函数来检查值是否存在于列表中。如果你的列表非常大，这可能会导致性能问题。在这种情况下，你可以考虑使用其他方法来提高代码的执行效率。