Lọc dữ liệu có màu

[phihndhsp]

Có cách nào lọc được dữ liệu màu đỏ ra bằng công thức hay VBA?
tui chỉ biết cách lọc là tìm kí tự có mã char(10) và thay thế ký tự bất kỳ sau đó dùng chức năng tách để xoá những ô không phải là màu đỏ( cách này hơi lâu, với lại dữ liệu nhiều thì cũng bó tay), nên nhờ các cao thủ xem giúp dùm, xin cảm ơn

 

[ndu96081631]

Có cách nào lọc được dữ liệu màu đỏ ra bằng công thức hay VBA?
tui chỉ biết cách lọc là tìm kí tự có mã char(10) và thay thế ký tự bất kỳ sau đó dùng chức năng tách để xoá những ô không phải là màu đỏ( cách này hơi lâu, với lại dữ liệu nhiều thì cũng bó tay), nên nhờ các cao thủ xem giúp dùm, xin cảm ơn

Thử vầy xem:

Sub Test()
  Dim tmp As String, Clls As Range, i As Long, n As Long, Arr(), Rng As Range
  Application.ScreenUpdating = False
  On Error Resume Next
  Sheet1.Range("C:C").ClearContents
  Set Rng = Sheet1.Range("A1:A11")
  ReDim Arr(1 To Rng.Rows.Count, 1 To 1)
  For Each Clls In Rng
    For i = 1 To Len(Clls.Value)
      If Clls.Characters(i, 1).Font.ColorIndex = 3 Then
        tmp = tmp & Clls.Characters(i, 1).Text
      End If
    Next
    If tmp <> "" Then
      n = n + 1
      Arr(n, 1) = tmp
    End If
    tmp = ""
  Next
  If n Then Range("C1").Resize(n).Value = Arr
  Application.ScreenUpdating = True
End Sub

Mà sao lại tốn công tô màu đỏ chi cho mất công lọc vậy?

 

[phihndhsp]

dạ em làm dùm cho người ta thôi, cảm ơn anh ndu nhiều, em cũng biết là dựa vào màu để tách dữ liệu mà không biết cách làm như thế nào, nhờ anh mà em đã hiểu được, xin cảm ơn