以下是一个比较两个列表的VBA代码示例：

Sub CompareLists()
    Dim list1 As Range
    Dim list2 As Range
    Dim cell As Range
    
    ' 设置列表范围
    Set list1 = Range("A1:A5")
    Set list2 = Range("B1:B5")
    
    ' 遍历第一个列表
    For Each cell In list1
        ' 检查当前单元格的值是否存在于第二个列表中
        If Not IsError(Application.Match(cell.Value, list2, 0)) Then
            ' 如果存在，则在第一个列表中标记为“存在”
            cell.Offset(0, 1).Value = "存在"
        Else
            ' 如果不存在，则在第一个列表中标记为“不存在”
            cell.Offset(0, 1).Value = "不存在"
        End If
    Next cell
End Sub

在上面的示例中，我们假设第一个列表位于A1:A5范围内，第二个列表位于B1:B5范围内。代码会遍历第一个列表中的每个单元格，并使用Application.Match函数在第二个列表中查找对应的值。如果找到匹配的值，则在第一个列表中的相邻单元格中标记为“存在”，否则标记为“不存在”。