以下是一个示例代码，用于比较Excel VBA中的两列，并列出不匹配的结果：

Sub CompareColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim range1 As Range, range2 As Range
    Dim cell1 As Range, cell2 As Range
    
    ' 设置要比较的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取第一列的范围
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Set range1 = ws.Range("A1:A" & lastRow)
    
    ' 获取第二列的范围
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    Set range2 = ws.Range("B1:B" & lastRow)
    
    ' 遍历第一列的每个单元格
    For Each cell1 In range1
        ' 假设单元格不匹配
        Dim matchFound As Boolean
        matchFound = False
        
        ' 遍历第二列的每个单元格
        For Each cell2 In range2
            ' 如果找到匹配的值，则将标志设置为True并退出循环
            If cell1.Value = cell2.Value Then
                matchFound = True
                Exit For
            End If
        Next cell2
        
        ' 如果没有找到匹配的值，则将不匹配的结果输出到第三列
        If Not matchFound Then
            cell1.Offset(0, 2).Value = cell1.Value
        End If
    Next cell1
End Sub

使用此代码示例，您可以将其粘贴到Excel VBA编辑器中，并在需要的工作表上运行此宏。然后，它将比较第一列和第二列，并将不匹配的结果输出到第三列（在第一列的右侧）。