格式不匹配VBA工作表比较macros中的单元格

快速的问题，下面是一个比较程序的代码片段，检查两个工作表来find不匹配的数据。 我想突出显示或格式化sheet4上的不匹配单元格，但是会遇到语法或逻辑问题。 任何指导将不胜感激。

Option Explicit Sub compare2WorkSheets() Dim varSheetA As Variant, varSheetB As Variant Dim strRangeToCheck As String Dim iRow As Long, iCol As Long strRangeToCheck = "A1:AB17000" Debug.Print Now varSheetA = Worksheets("Sheet3").Range(strRangeToCheck) varSheetB = Worksheets("Sheet4").Range(strRangeToCheck) 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 ' matching cells no format Else ' mismatch found,format the Sheet4 cells to yellow varSheetB(iRow, iCol).Interior.Color = vbYellow '...referencing syntax trouble End If Next iCol Next iRow End Sub 

Answer 1

另一种方法：

 Sub CompareRanges() Dim rngA As Range, rngB As Range, arr, r As Long, c As Long Set rngA = Range("A1:D4") Set rngB = Range("A6:D9") 'will be evaluated as an array formula arr = ActiveSheet.Evaluate("=IF(" & rngA.Address & "=" & rngB.Address & ",1,0)") For r = LBound(arr, 1) To UBound(arr, 1) For c = LBound(arr, 2) To UBound(arr, 2) If Not IsError(arr(r, c)) Then rngA(r, c).Interior.Color = IIf(arr(r, c) = 0, vbYellow, vbWhite) End If Next c Next r End Sub 

Answer 2

这是我尝试查找和突出显示不匹配时通常使用的不同方法。 这应该有你正在寻找的function。

 Option Explicit Sub Compare2worksheets() Dim iCol, iRow As Integer For iCol = 1 To 27 For iRow = 1 To 17000 If Worksheets("Sheet3").Cells(iRow, iCol) = Worksheets("Sheet4").Cells(iRow, iCol) Then 'Do Nothing Else Worksheets("Sheet4").Cells(iRow, iCol).Interior.Color = vbYellow End If Next iRow Next iCol End Sub