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

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

½Ð°Ý¦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

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

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD