在Excel中，你可以使用VBA（Visual Basic for Applications）来对比两个工作表中的数据，并将结果输出到一个新的工作表中。以下是一个简单的VBA代码示例，用于对比两个工作表中的数据：
```vba
Sub CompareData()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow1 As Long, lastRow2 As Long
Dim i As Long
Dim matchFound As Boolean
' 设置数据源工作表
Set ws1 = ThisWorkbook.Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("Sheet2")
' 找到两个工作表的最后一行数据
lastRow1 = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
lastRow2 = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row
' 遍历Sheet1中的A列数据
For i = 1 To lastRow1
matchFound = False
' 在Sheet2中查找匹配项
If ws1.Cells(i, 1).Value = ws2.Cells(i, 1).Value Then
matchFound = True
End If
' 如果找到不匹配的数据，则高亮显示
If Not matchFound Then
ws1.Cells(i, 1).Interior.Color = RGB(255, 255, 0) ' 黄色背景
End If
Next i
End Sub
```
在运行此代码之前，请确保你的工作簿中有两个工作表，分别命名为"Sheet1"和"Sheet2"，并且它们的第一列包含你想要对比的数据。运行代码后，所有在"Sheet1"和"Sheet2"中第一列数据不一致的行将会被高亮显示为黄色背景。
如果你需要对比的是不同的列，只需修改代码中的列索引即可。例如，如果你想要对比第二列数据，可以将`For i = 1 To lastRow1`中的`1`改为`2`，并将`If ws1.Cells（i, 1）.Value = ws2.Cells（i, 1）.Value Then`中的`1`改为`2`。
此外，如果你想要将对比结果输出到一个新的工作表中，可以在代码中添加创建新工作表和复制数据的逻辑。这可以通过`ThisWorkbook.Sheets.Add`方法来实现，如上面的代码示例中`Set wsResult = ThisWorkbook.Sheets.Add（After:=ThisWorkbook.Sheets（ThisWorkbook.Sheets.Count））`所示。然后，你可以使用`wsResult.Cells（row, column）.Value`来复制数据到新工作表中。