ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦r¦ê¤ñ¹ï,Åã¥Ü¦r¦ê¤¤¤£¦P¤§³B¨Ã°ª«G³B²z

¦r¦ê¤ñ¹ï,Åã¥Ü¦r¦ê¤¤¤£¦P¤§³B¨Ã°ª«G³B²z

½Ð°Ý¦r¦ê¤ñ¹ïªº°ÝÃD
¦b¨Ï¥Î¤½¦¡¤ñ¹ï¥XA&Bªº®t²§«á,¬O§_¥i¥H±N®t²§¦r¤¸°µ¥X°ª«GÅã¥Ü

Q9.jpg

½Ð°Ý¦r¦ê¤ñ¹ïªº°ÝÃD
¦b¨Ï¥Î¤½¦¡¤ñ¹ï¥XA&Bªº®t²§«á,¬O§_¥i¥H±N®t²§¦r¤¸°µ¥X°ª«GÅã¥Ü
marklos µoªí©ó 2022-8-15 15:00


¥u·|VBA¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
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

¦^´_ 2# samwang


    ·PÁÂ~~´ú¸Õ¥¿±`
½Ð°Ý¦pªG­n¤ñ¹ïªº¬OBÄæ¦ì¸òCÄæ¦ìªº¸Ü,­n¦p¦ó­×§ï?

TOP

¦^´_  samwang


    ·PÁÂ~~´ú¸Õ¥¿±`
½Ð°Ý¦pªG­n¤ñ¹ïªº¬OBÄæ¦ì¸òCÄæ¦ìªº¸Ü,­n¦p¦ó­×§ï?
marklos µoªí©ó 2022-8-16 19:42

¦p¬õ¦r¡AÁÂÁÂ
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

¦^´_ 4# samwang
2022-08-17_151321.jpg

½Ð°Ý¦pªGAÄæ¦ì¤]­nÅã¥Ü®t²§ªº¸Ü,¸Ó¦p¦ó­×§ï?
ÁÂÁÂ

TOP

¦^´_ 5# marklos


    «Øij«e½ú´£¨Ñ¯àªí¹F³B¸Ì®æ¦¡«áªº¥Î³~±¡¹Ò ½d¨ÒÀÉ ©Î ¦A¸É¥R»¡©ú
1.¦]¬°1¼Ó¸ò5¼Óªº»Ý¨D¦³¤p¥Ù¬Þ(dFn8,dfn8 ¦pªG¦b1¼Ó¬O¥kÃäf¬õ¦r,¦b5¼Ó«o¬O¥ªÃäF¬õ¦r)
2.«á¾Ç²q´ú«e½úÀ³¸Ó¬O·Q­n¨âÃä³£¬õ¦r! §ï¤F¤@¤U ¾Ç²ß¨ìsamwang«e½úªºµ{¦¡½X ¨Ñ«e½ú°Ñ¦Ò

Sub test()
Dim Arr, i&, j%, T1, T2
Range([b1], [a65536].End(3)).Font.ColorIndex = 1
Arr = Range([b1], [a65536].End(3))
For i = 1 To UBound(Arr)
    If Arr(i, 1) <> Arr(i, 2) Then
    j = 1
    Do Until (Len(Arr(i, 1)) < j And Len(Arr(i, 2)) < j)
        T1 = Mid(Arr(i, 1), j, 1): T2 = Mid(Arr(i, 2), j, 1)
        If T1 <> T2 Then
            Cells(i, 1).Characters(j, 1).Font.ColorIndex = 3
            Cells(i, 2).Characters(j, 1).Font.ColorIndex = 3
        End If
        j = j + 1
    Loop
    End If
Next
End Sub

TOP

¦^´_ 6# Andy2483


½T¹ê¬O«á¨Ó·Q­n¨âÃä³£¥Î¬õ¦r¨ÓÅã¥Ü®t²§~·PÁÂÀ°¦£»P¤À¨É

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD