Xử lý dữ liệu và đánh dấu màu (1 người xem)

[krvn]

Mình có file exel này nhờ mấy anh em giaiphapexcel giup đỡ!Bài toán về xử lý dữ liệu và đánh dấu kết quả theo màu.
P/s:Thông cảm vì sự cố bộ gõ Tiếng Việt vừa rồi .Mình upload lại file.Xin các bạn giúp đỡ!
Cảm ơn các bạn nhiều!

 

[ChanhTQ@]

Bạn chưa có quyền bắt người khác đọc tiếng Việt không dấu của bạn; trừ fi bạn viết toàn tiếng theo hệ ngôn ngữ slavơ

Xin chào bạn & chúc ngày nghỉ vui vẻ!

 

[SA_DQ]

Những mong đó cũng là lần cuối cùng bạn đối xử với cộng đồng

Option Explicit
Sub ToMau()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim jJ As Byte, bBD As Byte
 
 Sheets("LocMau").Select:              Set Sh = Sheets("DuLieuGoc")
 Set Rng = Sh.Range(Sh.[K4], Sh.[k65500].End(xlUp))
 For jJ = 2 To 4 Step 2
   For Each Cls In Range(Cells(2, jJ), Cells(65500, jJ).End(xlUp))
      Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlPart)
      If Not sRng Is Nothing Then
         If Len(Cls.Value) = Len(sRng.Value) Then
            sRng.Font.ColorIndex = jJ + 1
         Else
            bBD = InStr(sRng.Value, Cls.Value)
            GPE sRng, bBD, Len(Cls.Value), jJ + 1
         End If
      End If
   Next Cls
 Next jJ
 Sh.Select:                            Set Sh = Nothing
End Sub

[B]
Sub GPE(sRng As Range, bBD As Byte, bDai As Byte, jJ As Byte)[/B]
   With sRng.Characters(Start:=bBD, Length:=bDai).Font
      .ColorIndex = jJ
   End With
[B]End Sub[/B]