Lọc danh sách tên

Quangmpv

Thành viên mới
Tham gia ngày
31 Tháng bảy 2019
Bài viết
7
Được thích
0
Điểm
13
Nơi ở
Hà Nội
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

hml89

#Học dốt#
Tham gia ngày
14 Tháng chín 2012
Bài viết
391
Được thích
297
Điểm
410

Quangmpv

Thành viên mới
Tham gia ngày
31 Tháng bảy 2019
Bài viết
7
Được thích
0
Điểm
13
Nơi ở
Hà Nội
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 ạ
 

hml89

#Học dốt#
Tham gia ngày
14 Tháng chín 2012
Bài viết
391
Được thích
297
Điểm
410
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.
 

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
8,597
Được thích
8,380
Điểm
560
Tuổi
62
Nơi ở
Biên Hòa, Đồng Nai
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
 

Quangmpv

Thành viên mới
Tham gia ngày
31 Tháng bảy 2019
Bài viết
7
Được thích
0
Điểm
13
Nơi ở
Hà Nội

Quangmpv

Thành viên mới
Tham gia ngày
31 Tháng bảy 2019
Bài viết
7
Được thích
0
Điểm
13
Nơi ở
Hà Nội
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

Thành viên thường trực
Tham gia ngày
13 Tháng một 2012
Bài viết
319
Được thích
192
Điểm
395
Nơi ở
Hải Phòng
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
 

Quangmpv

Thành viên mới
Tham gia ngày
31 Tháng bảy 2019
Bài viết
7
Được thích
0
Điểm
13
Nơi ở
Hà Nội
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.
 

AnhThu-1976

Thành viên tiêu biểu
Tham gia ngày
17 Tháng mười 2014
Bài viết
730
Được thích
116
Điểm
420
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
 

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
8,597
Được thích
8,380
Điểm
560
Tuổi
62
Nơi ở
Biên Hòa, Đồng Nai

File đính kèm

Top Bottom