¦r¦ê¤ñ¹ï,Åã¥Ü¦r¦ê¤¤¤£¦P¤§³B¨Ã°ª«G³B²z
- ©«¤l
- 1425
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1449
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-4-16
|
¦^´_ 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·Qn¨âÃä³£¬õ¦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 |
|
|
|
|
|
|