Lọc trùng số liệu! (3 người xem)

[thanhnam0119]

1. E có bảng danh sách KCB trong đó có rất nhiều dữ liệu trùng nhau. Mong các a chị giúp e lọc ra những thằng có mã thẻ KCB trùng nhau và ghi dữ liệu trùng sang sheet2 liệt kê trùng từ 2 bản ghi trở lên. Lấy cột số phiếu KCB làm tiêu chí lọc trùng và ký tự trong cột = 11 ký tự. E cảm ơn

 

[thivantan]

1. E có bảng danh sách KCB trong đó có rất nhiều dữ liệu trùng nhau. Mong các a chị giúp e lọc ra những thằng có mã thẻ KCB trùng nhau và ghi dữ liệu trùng sang sheet2 liệt kê trùng từ 2 bản ghi trở lên. Lấy cột số phiếu KCB làm tiêu chí lọc trùng và ký tự trong cột = 11 ký tự. E cảm ơn

Vấn đề của bạn có thể dùng công thức (Countif...) ở cột phụ, sau đó dùng chức năng sẵn có Filter là được, còn theo yêu cầu trong file của bạn tôi giúp một cách củ chuối, bạn xem có đúng ý không nhé. Thân

 

[SA_DQ]

Bằng macro trong các nút lệnh đây, xin mời

Xem trong file kèm thây

 

[thanhnam0119]

cảm ơn bạn nhiều! file này giúp ích tôi lọc trùng rất thuận tiện

cho e hỏi luôn muốn giá trị lọc lấy ngày_vào lớn hơn ngày_ra như thế nào? VD cột ngay_vao: 19/01/2010, ngay_ra:12/12/2010! ý làm như file e gửi! e thanh đổi sang sheet khác nhưng cột ngay_vao;ngay_ra lấy ko đúng giá trị thật của dữ liệu! giúp e sửa file! e cảm ơn


==================
domfootwear: Bạn nên sử dụng nút cám ơn thay cho viết bài cám ơn nhé.

 

[ThuNghi]

cảm ơn bạn nhiều! file này giúp ích tôi lọc trùng rất thuận tiện

cho e hỏi luôn muốn giá trị lọc lấy ngày_vào lớn hơn ngày_ra như thế nào? VD cột ngay_vao: 19/01/2010, ngay_ra:12/12/2010! ý làm như file e gửi! e thanh đổi sang sheet khác nhưng cột ngay_vao;ngay_ra lấy ko đúng giá trị thật của dữ liệu! giúp e sửa file! e cảm ơn


==================
domfootwear: Bạn nên sử dụng nút cám ơn thay cho viết bài cám ơn nhé.

Dùng thử code sau

Option Explicit
Sub LocSaiNgay()
Dim endR As Long, i As Long, s As Long, k As Long
Dim Arr(), ArrDate(), ArrKQ()
With Sheets("Sheet1")
  endR = .Cells(65000, 1).End(xlUp).Row
  Arr = .Range("A2:AD" & endR).Value
  ArrDate = .Range("J2:K" & endR).Value
End With
s = 0
MsgBox UBound(Arr, 2)
ReDim ArrKQ(1 To UBound(Arr), 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr)
  If CLng(ArrDate(i, 1)) > CLng(ArrDate(i, 2)) Then
    s = s + 1
    For k = 1 To UBound(Arr, 2)
      ArrKQ(s, k) = Arr(i, k)
    Next k
  End If
Next i
If s = 0 Then Exit Sub
With Sheets("Ds sai ngay dieu tri")
  .[A3].Resize(s, k - 1) = ArrKQ
End With
Erase Arr(), ArrDate(), ArrKQ()
End Sub

 

[thanhnam0119]

Cho e hỏi định dạng cột "ngay_vao" và "ngay_ra" ở sheet1 là kiểu Text mà ko ảnh Code thì như thế nào? vì e định dạng sang Text lỗi code " If CLng(ArrDate(i, 1)) > CLng(ArrDate(i, 2)) Then"