比較及Excel

Question

• 兩片突出不匹配的值I有兩個片材在Excel
  
  1. 測試1
  2. 的Test2
     現在，我有42列並且在每個片材100點的行。
• 我要比較兩個片，發現其值在兩個片不同的所有單元格。
  示例：在測試1片如果單元格A1 = Yes並在的Test2片如果A1 =是，則什麼也不做別的高亮度小區A1與紅色在兩個片材。
• 可以這樣使用條件格式可以實現嗎？

Answer 1

Sub Highlight() 
Dim RSource As Range, RTarget As Range, RTest As Range 

    ' must properly qualify Cells() 
    Set RSource = ActiveWorkbook.Worksheets("Sheet1").Range(_ 
         ActiveWorkbook.Worksheets("Sheet1").Cells(1, 1), _ 
         ActiveWorkbook.Worksheets("Sheet1").Cells(100, 42)) 

    ' not strictly needed ... could be as small as Set RTarget = ActiveWorkbook.Worksheets("Sheet2").[A1] 
    Set RTarget = ActiveWorkbook.Worksheets("Sheet2").Range(_ 
         ActiveWorkbook.Worksheets("Sheet2").Cells(1, 1), _ 
         ActiveWorkbook.Worksheets("Sheet2").Cells(100, 42)) 

    For Each RTest In RSource.Cells 

     If RTest <> RTarget.Cells(RTest.Row, RTest.Column) Then 
      ' make them red 
      RTest.Interior.Color = vbRed 
      RTarget.Cells(RTest.Row, RTest.Column).Interior.Color = vbRed 

     Else 
      ' make them white 
      RTest.Interior.Color = vbWhite 
      RTarget.Cells(RTest.Row, RTest.Column).Interior.Color = vbWhite 

     End If 

    Next RTest 

End Sub