Lọc Số BHYT (4 người xem)

[vtsu]

Gửi các Pác file Excel này mong các pác pro giúp em lọc dữ liệu giùm.
Như em có cột E là hiển thị số BHYT có rất nhiều số trùng nhau mà em muốn hiển thị những số nào có số lần khám từ lập lại từ 4 lần trở lên mới cho hiển thị còn những số kia thì em cho ẩn luôn. nhưng chưa làm được Mong các pác giúp giùm

VD:
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200131
CH7920205200134
CH7920205200134
CH7920205200134
CH7920205200134
CH7920205200130
Kết Quả Hiển thị sẽ là:
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200134
CH7920205200134
CH7920205200134
CH7920205200134

 

[nhat chi mai]

bạn xem file đính kèm nha, huhu, chẳng biết sao hơn 1 tiếng đồng hồ mà không tài nào vào được diễn đàn...

 

[ndu96081631]

Gửi các Pác file Excel này mong các pác pro giúp em lọc dữ liệu giùm.
Như em có cột E là hiển thị số BHYT có rất nhiều số trùng nhau mà em muốn hiển thị những số nào có số lần khám từ lập lại từ 4 lần trở lên mới cho hiển thị còn những số kia thì em cho ẩn luôn. nhưng chưa làm được Mong các pác giúp giùm

Dùng Advanced Filter mà lọc, các rẹc ra ngay. Quan trọng là nghĩ được công thức điều kiện ---> Tự suy nghĩ xem (có thể dùng COUNTIF chẳng hạn)

 

[nhat chi mai]

Dùng Advanced Filter mà lọc, các rẹc ra ngay. Quan trọng là nghĩ được công thức điều kiện ---> Tự suy nghĩ xem (có thể dùng COUNTIF chẳng hạn)

Em nghĩ chỉ dùng filter dùng counif là đếm có điều kiện mà Thầy, mà thực ra nếu file tới mấy trăm dòng chắc dùng filter cũng mệt đó ạ

 

[mhung12005]

Gửi các Pác file Excel này mong các pác pro giúp em lọc dữ liệu giùm.
Như em có cột E là hiển thị số BHYT có rất nhiều số trùng nhau mà em muốn hiển thị những số nào có số lần khám từ lập lại từ 4 lần trở lên mới cho hiển thị còn những số kia thì em cho ẩn luôn. nhưng chưa làm được Mong các pác giúp giùm

VD:
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200131
CH7920205200134
CH7920205200134
CH7920205200134
CH7920205200134
CH7920205200130
Kết Quả Hiển thị sẽ là:
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200132
CH7920205200134
CH7920205200134
CH7920205200134
CH7920205200134

Bạn xem file đính kèm nhé.

 

[hungpecc1]

Mình xin mạo muội viết 1 đoạn code VBA để giải quyết vấn đề trên : ( các pác đóng góp ý kiến, chứ đừng ném đá nhé ^^ )

Option Explicit
Public Sub demdulieu()
Dim i As Long, n As Long, k As Long
Dim Arr(), tmpArr, Item, tmp
    tmpArr = Range("A1:A1000")
    Range("b2:D1000").ClearContents
    ReDim Arr(1 To UBound(tmpArr, 1), 1 To 2)
      With CreateObject("scripting.Dictionary")
        For Each Item In tmpArr
            tmp = Trim(CStr(Item))
            If Len(tmp) Then
                If Not .Exists(tmp) Then
                    n = n + 1
                    .Add tmp, n
                    Arr(n, 1) = tmp
                    Arr(n, 2) = 1
                Else
                    Arr(.Item(tmp), 2) = Arr(.Item(tmp), 2) + 1
                End If
            End If
        Next
    End With


  
    If n Then
        Range("B2").Resize(n, 2) = Arr
    End If
    For i = 1 To UBound(tmpArr, 1)
        If Arr(i, 2) >= 4 Then
            Range("D65536").End(xlUp).Resize(Arr(i, 2)).Offset(1) = Arr(i, 1)
        End If
    Next
End Sub

Các pác xem file đính kèm nhé !