excel - 2 つのテキスト セルを比較し、Excel シート 2010/2007 の 3 列目に違いを表示

Question

テキストを含む 2 つのセルを比較し、色の違いを表示したい

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 の違いのフォントを変更します。