比较及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