Option Explicit
Sub ToMau()
Dim CSDL As Range
Dim Rws As Long, Col As Integer, J As Long, W As Integer
Set CSDL = Sheet1.UsedRange
Rws = CSDL.Rows.Count
Col = CSDL.Columns.Count
ReDim Arr(1 To 1, 1 To Col - 2)
For J = 1 To Rws
Arr() = Cells(J, "C").Resize(, Col - 2).Value
For W = 1 To Col - 2
If UCase$(Arr(1, W)) = "X" Then
Cells(J, "A").Interior.ColorIndex = 38
Exit For
End If
Next W
Next J
End Sub
Bạn phải xác định xem cột nào sẽ đánh dấu x.Cho em hỏi về cách tô màu cột đầu tiên khi trong dòng đó xuất hiện chữ "x" ở bất kì cột nào
Ví dụ:
Tô màu A728 nếu từ C728:Z728 xuất hiện x