Các chút mình muốn viết một code KQ trả về cột C mình có 4 màu qui

Chào bạn không tải được link bạn ạ.

Thày ơi  đây ạ :   https://drive.google.com/file/d/16kvu...

Chào bạn bạn sử dụng đoạn code sau nhé:

Option Explicit
Sub laymamau()
    Dim i As Long, dc As Long
    dc = Sheet1.Range("E" & Sheet1.Rows.Count).End(xlUp).Row
    With Sheet1
        For i = 2 To dc
            If (.Range("E" & i).Interior.Color = .Range("G9").Interior.Color) Then
                .Range("C" & i) = "1"
            ElseIf (.Range("E" & i).Interior.Color = .Range("G10").Interior.Color) Then
                .Range("C" & i) = "2"
            ElseIf (.Range("E" & i).Interior.Color = .Range("G11").Interior.Color) Then
                .Range("C" & i) = "3"
             ElseIf (.Range("E" & i).Interior.Color = .Range("G12").Interior.Color) Then
                .Range("C" & i) = "4"
            End If
        Next i
    End With
End Sub

Dạ cảm ơn Thày nhiều để em thử xem ntn, nếu có gì không hiểu em sẽ hỏi lại

Chúc bạn học tốt cùng gitiho