Phan_Mang_Data.bas

Sub Phan_Mang_Data()
  Dim lr As Long        'Biến dòng cuối
  Dim area As Range     'Biến mảng chi tiết
  Dim sh As Worksheet   'Biến Sheet

  Set sh = ActiveSheet  'Tại sheet đang sử dụng
    'Tô màu xanh cho các mảng trong cột A
    lr = sh.Cells(Rows.Count, 1).End(xlUp).Row  'Xác định dòng cuối cột A
    For Each area In sh.Range("A2:A" & lr).SpecialCells(xlCellTypeConstants).Areas
      area.Interior.Color = vbGreen 'Tô màu xanh
    Next area

End Sub