我想在一些顏色比較兩個文本的單元格,並顯示在Excel工作表2007分之2010
Ex:Cell A:NTR is a great Leader.
Cell B:Ntr is a Great leader
我想在一些顏色比較兩個文本的單元格,並顯示在Excel工作表2007分之2010
Ex:Cell A:NTR is a great Leader.
Cell B:Ntr is a Great leader
使用VBA來比較它包含文本兩個單元,並顯示差異第三列differnce .....
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的長度是相同的,否則會出現超出範圍的索引錯誤。
是否假定文本是相同的,但大小寫不同?如果不是,你在第三個單元中輸出什麼,第一個到第二個之間的差異還是第二個到第一個之間的差異? – 2013-02-17 07:43:59
什麼問題! – glh 2013-02-17 08:47:04
文本總是一樣嗎?如果中間增加了一個字符,這可能很難檢測到。 – glh 2013-02-17 08:53:21