Lọc danh sách tên

Liên hệ QC

Quangmpv

Thành viên mới
Tham gia
31/7/19
Bài viết
15
Được thích
0
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.
1573179105458.png

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.
 

File đính kèm

  • Loc du lieu.xlsx
    9.5 KB · Đọc: 11
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:

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 ạ
 
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:



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.
 
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.........

A_P.GIF
 
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.
 
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:
Mã:
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
 
Góp vui thêm 1 cách bằng VBA:
Mã:
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.
 
Thêm 1 cách (st)
Mã:
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
 

File đính kèm

  • Copy sang sheet RemoveDup.xlsm
    23.6 KB · Đọc: 5
Web KT
Back
Top Bottom