Lọc dữ liệu tự động từ Insert Comment ... (1 người xem)

[Mr Okebab]

.......................................

  Set curWks = ActiveSheet
  On Error Resume Next
  Set CommRng = curWks.Cells.SpecialCells(xlCellTypeComments)
  ....................................
End Sub

Cẩn thận với phương thức Cells.SpecialCells bác nhé.

_http://tinyurl.com/6hvakg
_http://support.microsoft.com/kb/832293

Thân!