比较两个 Excel 工作表 – 突出差异 – 宏

Question

Sub test()
Dim varSheetA As Variant
Dim varSheetB As Variant
Dim strRangeToCheck As String
Dim iRow As Long
Dim iCol As Long
Set varSheetA = Sheet1

strRangeToCheck = "A1:B65536"
' If you know the data will only be in a smaller range, reduce the size of the ranges above.
Debug.Print Now
varSheetA = Worksheets("Sheet1").Range(strRangeToCheck)
varSheetB = Worksheets("Sheet2").Range(strRangeToCheck) ' or whatever your other sheet is.
Debug.Print Now

For iRow = LBound(varSheetA, 1) To UBound(varSheetA, 1)
    For iCol = LBound(varSheetA, 2) To UBound(varSheetA, 2)
        If varSheetA(iRow, iCol) = varSheetB(iRow, iCol) Then
            ' Cells are identical.
            ' Do nothing.
        Else
            ' Cells are different.
            ' Code goes here for whatever it is you want to do.   
        End If
    Next iCol
Next iRow
End Sub

请找到上面的代码。 我需要突出显示不同的单元格。我试过如下所述的cmets问题没有解决。请任何人帮助我！

Answer 1

varSheetA 是一个保存范围值的数组，它不知道工作表上的单元格。

（如果 varSheetA 应该是范围，那么您必须编写 set varSheetA = ... 加上将变量定义为范围）

worksheets("Sheet1").cells(iRow, iCol).color = vbRed

应该工作

顺便说一句：如果您发布代码本身而不是图片，我们更容易提供帮助 - 我们应该如何“获取代码”？

Answer 2

试试这个方法。

Sub CheckTwoSheetsAndHighlightDifferences()
    Dim mycell As Range
    Dim mydiff As Integer
    Dim shtSheet1 As Worksheet
    Dim shtSheet2 As Worksheet
    Set shtSheet1 = Worksheets("Sheet1")
    Set shtSheet2 = Worksheets("Sheet2")
    For Each mycell In shtSheet2.UsedRange
      If Not mycell.Value = shtSheet1.Cells(mycell.Row, mycell.Column).Value Then
        mycell.Interior.Color = vbRed
        mydiffs = mydiffs + 1
      End If
    Next
End Sub

Answer 3

怎么样：

varSheetA(iRow, iCol).Color = RGB(0,255,0)

当您考虑到 255,0,0 是红色而 0,255,0 是绿色时，应该非常明显。