解决方案一：使用VBA代码比较不同工作表之间的值

以下是一个示例VBA代码，演示如何比较两个工作表之间的值并返回差异的单元格地址。

Sub CompareWorksheets()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim cell1 As Range, cell2 As Range
    Dim diffCount As Integer
    
    ' 设置要比较的两个工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 遍历第一个工作表的每个单元格
    For Each cell1 In ws1.UsedRange
        ' 在第二个工作表中查找相同位置的单元格
        Set cell2 = ws2.Range(cell1.Address)
        
        ' 比较两个单元格的值
        If cell1.Value <> cell2.Value Then
            ' 如果值不相等，则将差异的单元格标记为红色
            cell1.Interior.Color = RGB(255, 0, 0)
            cell2.Interior.Color = RGB(255, 0, 0)
            
            ' 记录差异的单元格数量
            diffCount = diffCount + 1
        End If
    Next cell1
    
    ' 显示差异的单元格数量
    MsgBox "共有 " & diffCount & " 个差异的单元格。"
End Sub

要使用此代码，请将其粘贴到VBA编辑器中（按下Alt + F11），然后运行CompareWorksheets宏。它将比较名为"Sheet1"和"Sheet2"的两个工作表之间的所有单元格，并将差异的单元格标记为红色。

解决方案二：使用公式比较不同工作表之间的值

如果您不想使用VBA代码，还可以使用公式在两个工作表之间进行值比较。

以下是一个示例公式，将在第一个工作表中标记与第二个工作表不同的单元格：

在第一个工作表的单元格中输入以下公式：

=IF(Sheet1!A1<>Sheet2!A1, "不同", "")

然后将该公式拖动或复制到要比较的范围内。

此公式将比较名为"Sheet1"和"Sheet2"的两个工作表中相同位置的单元格，并在第一个工作表中标记不同的单元格。

请注意，这种方法只能标记不同的单元格，而不能直接在工作表中应用格式。