|
Sub test()
Dim ar()
Application.ScreenUpdating = 0
Range("b7").CurrentRegion = Range("b7").CurrentRegion.Value
i1% = [d65536].End(3).Row
ar = Range("b7:d" & i1).Value
For i1 = 1 To UBound(ar)
For i2% = 1 To UBound(ar, 2)
str1$ = Split(ar(i1, i2), ",")(1)
For i3% = 1 To Len(str1)
i4% = InStr(8, ar(i1, i2), Mid(str1, i3, 1))
Do While i4
Cells(i1 + 6, i2 + 1).Characters(Start:=i4, Length:=1).Font.Color = vbRed
i4 = InStr(i4 + 1, ar(i1, i2), Mid(str1, i3, 1))
Loop
Next
Next
Next
End Sub
|
|