excel - 比较两个文本单元格并显示 Excel 工作表 2010/2007 中第三列的差异

Question

我想比较两个包含文本的单元格并显示某种颜色的差异

Ex:Cell A:NTR is a great Leader.
   Cell B:Ntr is a Great leader

Answer 1

使用 VBA ......

Sub CompareInColor()

ActiveSheet.Range("C1").Value = ActiveSheet.Range("A1").Value

For i = 1 To Len(ActiveSheet.Range("A1").Value)
    If (ActiveSheet.Range("A1").Characters(i, 1).Text <> 
        ActiveSheet.Range("B1").Characters(i, 1).Text) Then 
        ActiveSheet.Range("C1").Characters(i, 1).Font.Color = RGB(255, 0, 0)
Next i

End Sub

这仅比较 A1 和 B1...如果您有很多行，则循环遍历您的行。另外，我假设 A1 和 A2 的长度相同，否则可能会出现超出范围的索引错误。

Answer 2

Sub CompareInColor()

ActiveSheet.Range("C1").Value = ActiveSheet.Range("A1").Value

For i = 1 To Len(ActiveSheet.Range("A1").Value)
    If (ActiveSheet.Range("A1").Characters(i, 1).Text <> ActiveSheet.Range("B1").Characters(i, 1).Text) Then
        ActiveSheet.Range("C1").Characters(i, 1).Font.Color = RGB(255, 0, 0)
End If
Next i

End Sub

Sub CompareInColorFlip()

ActiveSheet.Range("D1").Value = ActiveSheet.Range("B1").Value

For i = 1 To Len(ActiveSheet.Range("B1").Value)
    If (ActiveSheet.Range("B1").Characters(i, 1).Text <> ActiveSheet.Range("A1").Characters(i, 1).Text) Then
        ActiveSheet.Range("D1").Characters(i, 1).Font.Color = RGB(255, 0, 0)
End If
Next i

End Sub

这将 A 与 B 进行比较，然后将 C 和 B 的差异更改为 A 的字体，然后将 D 的差异更改为字体