Excel 两个sheet比较差异代码

Sub 比较表()
  rowStart = Range("B1").Value
  rowEnd = Range("D1").Value
  CellStart = Range("B2").Value
  CellEnd = Range("D2").Value
  For i = rowStart To rowEnd
       h = 0
       m = ""
       For k = CellStart To CellEnd
         If Sheet2.Cells(i, k).Value <> Sheet1.Cells(i, k).Value Then
            h = 1
            m = m + CStr(Sheet1.Cells(1, k).Value) + "[" + CStr(Sheet1.Cells(i, k).Value) + ":" + CStr(Sheet2.Cells(i, k).Value) + "]" & Chr(10)
            Sheet1.Cells(i, k).Interior.Color = RGB(255, 0, 0)
         End If
       Next
       If h = 1 Then
             Sheet1.Cells(i, CellEnd + 1).Value = "有差"
             Sheet1.Cells(i, CellEnd + 2).Value = m
       End If
  Next
End Sub