比较两个文本单元格,并在Excel表单2010/2007中显示第三列的不同之处

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

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

使用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的长度是相同的,否则会出现超出范围的索引错误。