在VBA中比较两个文件的颜色和格式

Sub CompareFiles()
    Dim file1 As Workbook
    Dim file2 As Workbook
    Dim sheet1 As Worksheet
    Dim sheet2 As Worksheet
    Dim cell1 As Range
    Dim cell2 As Range
    
    ' 打开第一个文件
    Set file1 = Workbooks.Open("文件路径1")
    ' 打开第二个文件
    Set file2 = Workbooks.Open("文件路径2")
    
    ' 比较每个工作表的每个单元格
    For Each sheet1 In file1.Sheets
        For Each sheet2 In file2.Sheets
            ' 检查工作表名称是否相同
            If sheet1.Name = sheet2.Name Then
                ' 比较每个单元格的颜色和格式
                For Each cell1 In sheet1.UsedRange
                    Set cell2 = sheet2.Range(cell1.Address)
                    ' 比较颜色
                    If cell1.Interior.Color <> cell2.Interior.Color Then
                        MsgBox "单元格 " & cell1.Address & " 的颜色不同"
                    End If
                    ' 比较格式
                    If cell1.NumberFormat <> cell2.NumberFormat Then
                        MsgBox "单元格 " & cell1.Address & " 的格式不同"
                    End If
                Next cell1
            End If
        Next sheet2
    Next sheet1
    
    ' 关闭文件
    file1.Close
    file2.Close
End Sub