ACE nào giúp cái vụ trích lọc này với

[bvhtb]

Đang làm cái báo cáo, bị trục trặc chỗ trích lọc này. Nay đang điên đầu lên diễn đàn GPE nhờ các anh chị em giúp đỡ dùm.
Vụ này thì chắc cũng có nhiều bài viết trên diễn đàn này lắm rối. Nhưng mình muốn chắc chắn hơn cho việc làm báo cáo. Xin các huynh tỷ muội chỉ dùm nhé. Gấp lắm!
VD: A1: A, B1: B, C1: C, D1: D, E1: A, F1: B --> Cho ra kết quả bên Sheet 2 là A, B, C, D (không trùng nhau)
Làm ơn chỉ cho mình cách dùm VBA trong cell luôn nha!
Thank nhiều!

 

[SA_DQ]

Mình cũng gấp gáp đây

Option Explicit:           Option Base 1
Sub LocKhongTrung()
 Dim Rng As Range, sRng As Range, Clls As Range
 Dim jJ As Long, MyAdd As String
 
 Set Rng = Selection
 ReDim MSL(Rng.Cells.Count) As Boolean
 For Each Clls In Rng
   jJ = jJ + 1
   If MSL(jJ) = False Then
      Sheets("Sheet2").[iV1].End(xlToLeft).Offset(, 1).Value = Clls.Value
      Set sRng = Rng.Find(Clls, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         MSL(sRng.Column) = True
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If:        End If
 Next Clls
End Sub

Các số liệu không trùng sẽ hiện tại dòng 1 của trang Sheet2

Chú í: Trước khi chạy macro cần chọn vùng khảo sát!