Lọc dữ liệu không trùng và duy nhất như thế nào ạ (1 người xem)

[antigod]

Chào các bác, em có một cột như thế này
A
B
A
C
B
D
E
D
D
em muốn chỉ lấy ra dữ liệu duy nhất và không trùng là C, E thì em làm như thế nào?
Dùng Advance Filter chọn unique record thì nó ra hàng loạt ABCDE không chính xác. Rất mong các bác giúp đỡ

 

[AnhPhong411]

Chào các bác, em có một cột như thế này
A
B
A
C
B
D
E
D
D
em muốn chỉ lấy ra dữ liệu duy nhất và không trùng là C, E thì em làm như thế nào?
Dùng Advance Filter chọn unique record thì nó ra hàng loạt ABCDE không chính xác. Rất mong các bác giúp đỡ

Chào bạn,
Bạn dùng hàm COUNTIF sau đó filter những giá trị 1 là được nhé.

 

[TheThienChu]

Chào các bác, em có một cột như thế này
A
B
A
C
B
D
E
D
D
em muốn chỉ lấy ra dữ liệu duy nhất và không trùng là C, E thì em làm như thế nào?
Dùng Advance Filter chọn unique record thì nó ra hàng loạt ABCDE không chính xác. Rất mong các bác giúp đỡ

Giả sử dữ liệu bắt đầu tại A1, dùng công thức mảng

C1=IFERROR(INDIRECT("A"&LARGE(IF(COUNTIF($A$1:$A$9,$A$1:$A$9)=1,ROW($A$1:$A$9),0),ROW())),"")

nhấn ctrl+shift+enter
copy xuống dưới

 

[phulien1902]

Chào các bác, em có một cột như thế này
A
B
A
C
B
D
E
D
D
em muốn chỉ lấy ra dữ liệu duy nhất và không trùng là C, E thì em làm như thế nào?
Dùng Advance Filter chọn unique record thì nó ra hàng loạt ABCDE không chính xác. Rất mong các bác giúp đỡ

Bạn tham khảo:

Sub abc()
    Dim d As Object, cell
    Set d = CreateObject("scripting.dictionary")
    With Sheets(1).Range("A1:A100")
        For Each cell In .Value
            If Len(cell) > 0 Then d(cell) = d(cell) + 1
        Next
        .Select
        For Each cell In d.keys
            If d(cell) > 1 Then d.Remove cell
        Next
    End With
    With Sheets.Add
        .Range("A1").Resize(d.Count) = Application.Transpose(d.keys)
    End With
End Sub