如何从两个格式相同的Excel工作表中找出不同的单元格

如何从两个格式相同的Excel工作表中找出不同的单元格,excel,Excel,我有两个excel文件,每个文件有1553行和40列。它们具有相同的列名,并且应该相同。但似乎存在一些差异。我想知道是否有一些代码可以检测并突出显示/汇总(哪一行/哪一列)不同的单元格。Excel有一个用于比较文件的外接程序,称为“查询”。也许值得一看。请注意,存在版本要求 功能说明: 如何打开它: Excel有一个外接程序,用于比较名为“查询”的文件。也许值得一看。请注意,存在版本要求 功能说明: 如何打开它: 我写这段代码是为了找到不匹配的单元格,并为您高亮显示每个单元格。您需要使用适当

我有两个excel文件,每个文件有1553行和40列。它们具有相同的列名,并且应该相同。但似乎存在一些差异。我想知道是否有一些代码可以检测并突出显示/汇总(哪一行/哪一列)不同的单元格。

Excel有一个用于比较文件的外接程序,称为“查询”。也许值得一看。请注意,存在版本要求

功能说明:

如何打开它:

Excel有一个外接程序,用于比较名为“查询”的文件。也许值得一看。请注意,存在版本要求

功能说明:

如何打开它:

我写这段代码是为了找到不匹配的单元格,并为您高亮显示每个单元格。您需要使用适当的图纸名称更改图纸1和图纸2,然后确保行和列计数以正确的数字开始和结束。希望有帮助

Sub comparison()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim CellValuews1 As Variant
Dim CellValuews2 As Variant
Dim ErrorCount As Integer

Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
ErrorCount = 0

For I = 1 To 40
    For X = 1 To 1553
        CellValuews1 = ws1.Cells(X, I).Value
        CellValuews2 = ws2.Cells(X, I).Value

        If CellValuews1 = CellValuews2 Then
        Else
            ws1.Cells(X, I).Interior.ColorIndex = 6
            ws2.Cells(X, I).Interior.ColorIndex = 6

            ErrorCount = ErrorCount + 1

        End If
    Next
Next

MsgBox "There were " & ErrorCount & " Cells that didn't match. These are now highlighted yellow"

End Sub

我写这段代码是为了找到不匹配的单元格,并为您高亮显示每个单元格。您需要使用适当的图纸名称更改图纸1和图纸2,然后确保行和列计数以正确的数字开始和结束。希望有帮助

Sub comparison()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim CellValuews1 As Variant
Dim CellValuews2 As Variant
Dim ErrorCount As Integer

Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
ErrorCount = 0

For I = 1 To 40
    For X = 1 To 1553
        CellValuews1 = ws1.Cells(X, I).Value
        CellValuews2 = ws2.Cells(X, I).Value

        If CellValuews1 = CellValuews2 Then
        Else
            ws1.Cells(X, I).Interior.ColorIndex = 6
            ws2.Cells(X, I).Interior.ColorIndex = 6

            ErrorCount = ErrorCount + 1

        End If
    Next
Next

MsgBox "There were " & ErrorCount & " Cells that didn't match. These are now highlighted yellow"

End Sub

有两种方法可以做到这一点

  • 您可以使用IF公式,如
    IF(cell1=cell2,“,”不匹配“)
  • 您还可以使用条件格式来匹配两个区域并以不同的颜色:选择第一个区域,然后转到条件格式->新规则->仅格式化包含并选择“单元格值”和“不等于”->的单元格,然后在另一个工作表中选择下一个区域的起始单元格(注意:请从单元格中删除引用,即$),并用任何颜色填充不匹配的值

  • 有两种方法可以做到这一点

    • 您可以使用IF公式,如
      IF(cell1=cell2,“,”不匹配“)
    • 您还可以使用条件格式来匹配两个区域并以不同的颜色:选择第一个区域,然后转到条件格式->新规则->仅格式化包含并选择“单元格值”和“不等于”->的单元格,然后在另一个工作表中选择下一个区域的起始单元格(注意:请从单元格中删除引用,即$),并用任何颜色填充不匹配的值

    @lll-编辑你的问题,这样问题就可以得到回答。我有一个可能满足你需要的解决方案。@lll-编辑你的问题,这样问题就可以得到回答。我有一个可能满足你需要的解决方案。