Lọc danh sách tên (2 người xem)

[Quangmpv]

Ví dụ mình có danh sách tên như bên dưới:
--> Chỉ cần lọc các tên khác nhau, các tên trùng nhau thì chỉ hiện 1 lần.


Nhờ các bác bảo hộ mình cách làm nhé.
Gửi các bác file đính kèm.

Thank các bác nhiều.

 

[hml89]

Ví dụ mình có danh sách tên như bên dưới:
--> Chỉ cần lọc các tên khác nhau, các tên trùng nhau thì chỉ hiện 1 lần.
View attachment 227939

Nhờ các bác bảo hộ mình cách làm nhé.
Gửi các bác file đính kèm.

Thank các bác nhiều.

D3=INDEX($B$3:$B$15,MATCH(,INDEX(COUNTIF($E$2:E2,$B$3:$B$15),),0),) . Kéo xuống.

 

[leonguyenz]

Tham khảo Remove Duplicate

 

[Quangmpv]

Cảm ơn các bác nhiều.
Dùng remove Duplicate như bác Leonguyenz là được luôn ạ.
Thế mà em cứ loay hoay mãi.

Bài đã được tự động gộp: 8/11/19

D3=INDEX($B$3:$B$15,MATCH(,INDEX(COUNTIF($E$2:E2,$B$3:$B$15),),0),) . Kéo xuống.

Dear bác
Cột $E$2:E2 không có dữ liệu, bác xem lại giúp ạ

 

[hml89]

Cảm ơn các bác nhiều.
Dùng remove Duplicate như bác Leonguyenz là được luôn ạ.
Thế mà em cứ loay hoay mãi.

Bài đã được tự động gộp: 8/11/19

Dear bác
Cột $E$2:E2 không có dữ liệu, bác xem lại giúp ạ

Nhầm, bạn sửa ô kết quả bắt đầu từ E3. hoặc nếu bắt đầu từ D3 thì sửa
$E$2:E2 thành
$D$2: D2.

 

[be_09]

Ví dụ mình có danh sách tên như bên dưới:
--> Chỉ cần lọc các tên khác nhau, các tên trùng nhau thì chỉ hiện 1 lần.
View attachment 227939

Nhờ các bác bảo hộ mình cách làm nhé.
Gửi các bác file đính kèm.

Thank các bác nhiều.

Sao bạn không nghĩ ngay đến PivotTable, để còn tổng hợp những thứ khác nữa. Ví dụ: Đếm hoặc Sum...........v..v.........

 

[Quangmpv]

Sao bạn không nghĩ ngay đến PivotTable, để còn tổng hợp những thứ khác nữa. Ví dụ: Đếm hoặc Sum...........v..v.........

View attachment 227952

Bác có thể gửi file đính kèm phần pivot table mà bác đã làm giúp em không ạ?
Thank bác

 

[be_09]

Bác có thể gửi file đính kèm phần pivot table mà bác đã làm giúp em không ạ?
Thank bác

 

[Quangmpv]

Cảm ơn bác nhiều
Em đã xem ví dụ của bác và hiểu rồi. Pivot table quả là lợi hại thật.

 

[nguyenthuy13388]

Ví dụ mình có danh sách tên như bên dưới:
--> Chỉ cần lọc các tên khác nhau, các tên trùng nhau thì chỉ hiện 1 lần.
View attachment 227939

Nhờ các bác bảo hộ mình cách làm nhé.
Gửi các bác file đính kèm.

Thank các bác nhiều.

Góp vui thêm 1 cách bằng VBA:

Sub loc()
Dim i As Long, Lr As Long, Str As String

With Sheet1
    For i = 3 To .Range("B10000").End(xlUp).Row
        If InStr(Str, .Range("B" & i).Value) = 0 Then
            Lr = .Range("E10000").End(xlUp).Row + 1
            Str = Str & .Range("B" & i).Value
            .Range("E" & Lr).Value = .Range("B" & i).Value
        End If
    Next i
End With
End Sub

 

[Quangmpv]

Góp vui thêm 1 cách bằng VBA:

Sub loc()
Dim i As Long, Lr As Long, Str As String

With Sheet1
    For i = 3 To .Range("B10000").End(xlUp).Row
        If InStr(Str, .Range("B" & i).Value) = 0 Then
            Lr = .Range("E10000").End(xlUp).Row + 1
            Str = Str & .Range("B" & i).Value
            .Range("E" & Lr).Value = .Range("B" & i).Value
        End If
    Next i
End With
End Sub

Code bác hay quá, copy paste là làm được luôn. Cảm ơn bác.
Em phải nghiên cứu code này, chứ hiện tại đọc chưa hiểu.

 

[AnhThu-1976]

Thêm 1 cách (st)

Sub UniqueFilter()
    Dim Rng As Range, Cll As Range, ResPos As Range
    On Error GoTo Thoat
    Set Rng = Application.InputBox("Chon vung du lieu (chon ngay tren bang tinh) : ", "Nhap lieu.", , , , , , 8)
    With CreateObject("Scripting.Dictionary")
        For Each Cll In Rng
            If Cll <> "" And .Exists(Cll.Value) = False Then .Add Cll.Value, ""
        Next Cll
        Set ResPos = Application.InputBox("Chon vi tri dat ket qua : ", "Nhap lieu.", , , , , , 8)
        ResPos.Resize(.Count) = WorksheetFunction.Transpose(.Keys)
    End With
Thoat:
End Sub

 

[be_09]

Code bác hay quá, copy paste là làm được luôn. Cảm ơn bác.
Em phải nghiên cứu code này, chứ hiện tại đọc chưa hiểu.

Nếu là Copy sang sheet khác và RemoveDuplicate thì xem thử File.