Có gì đâu. Mình đang thử làm nhưng vẫn chưa theo ý của bạn được.Cảm ơn bạn duogdv đã quan tâm
Chỉ giúp mình công việc này với: khi dữ liệu của mình cập nhật đến hàng nào thì cột cuối cùng của hàng đó được tô một màu gì đó!
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim lRow As Long, Rng As Range: lRow = Target.Row
If Target <> "" Then
If Target.Column = 1 Then
ToMau Target.Offset(-1).End(xlToRight)
Else
For Each Rng In Cells(Target.Row, 1).Resize(1, Target.Column - 1)
If Rng <> "" Then Exit Sub
Next Rng
ToMau Target.Offset(-1).End(xlToRight)
End If: End If
End Sub
[B]Sub ToMau(Rng As Range)[/B]
Rng.Offset(1, 1).Interior.ColorIndex = 34 + (Rng.Row Mod 3)
[B]End Sub[/B]
Mình dùng CF, bạn xem file !chỉ một cột cuối cùng từ trên xuống hàng cuối cùng có dữ liệu được tô màu