返回列表 上一主題 發帖

字串比對,顯示字串中不同之處並高亮處理

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
1# 跳轉到 »
發表於 2022-8-16 11:36 | 顯示全部帖子
請問字串比對的問題
在使用公式比對出A&B的差異後,是否可以將差異字元做出高亮顯示
marklos 發表於 2022-8-15 15:00


只會VBA，請測試看看，謝謝
Sub test()
Dim Arr, i&, j%, T1, T2
Arr = Range([b1], [a65536].End(3))
For i = 1 To UBound(Arr)
    If Arr(i, 1) <> Arr(i, 2) Then
    j = 1
    Do While Len(Arr(i, 2)) + 1 > j
        T1 = Mid(Arr(i, 1), j, 1): T2 = Mid(Arr(i, 2), j, 1)
        If T1 <> T2 Then
            Cells(i, 2).Characters(j, 1).Font.ColorIndex = 3
        End If
        j = j + 1
    Loop
    End If
Next
End Sub

1.JPG (46.96 KB)

1.JPG

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 2022-8-16 21:41 | 顯示全部帖子
回復  samwang


    感謝~~測試正常
請問如果要比對的是B欄位跟C欄位的話,要如何修改?
marklos 發表於 2022-8-16 19:42

如紅字，謝謝
Sub test()
Dim Arr, i&, j%, T1, T2
Arr = Range([c1], [b65536].End(3))
For i = 1 To UBound(Arr)
    If Arr(i, 1) <> Arr(i, 2) Then
    j = 1
    Do While Len(Arr(i, 2)) + 1 > j
        T1 = Mid(Arr(i, 1), j, 1): T2 = Mid(Arr(i, 2), j, 1)
        If T1 <> T2 Then
            Cells(i, 3).Characters(j, 1).Font.ColorIndex = 3
        End If
        j = j + 1
    Loop
    End If
Next
End Sub

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題