如果A1不等于空白，则VBA颜色行1，依此类推

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A" & Rows.Count)) Is Nothing Then
        Dim rng As Range
        Set rng = Intersect(Target, Range("A1:A" & Rows.Count))
        
        Dim cell As Range
        For Each cell In rng
            If cell.Value <> "" Then
                cell.EntireRow.Interior.Color = RGB(255, 0, 0) '设置行的颜色为红色
            Else
                cell.EntireRow.Interior.ColorIndex = xlColorIndexNone '取消行的颜色设置
            End If
        Next cell
    End If
End Sub