Trích lọc danh sách duy nhất từ các phần tử duy nhất

[ndu96081631]

ndu96081631
Bạn xem lại bài 12 thử file mình kéo xuống 5000 dòng thấy dữ liệu không thấy đúng.
Nếu như mình có dữ liệu như file đính kèm thì làm sao trích xuất dữ liệu là hay nhất.

Ah... quên nữa!
Dử liệu cột A của bạn có dạng: Ten - Mã (Nguyễn Văn A - A001).. Vậy tôi nghĩ trong code của bạn phải làm 1 việc tách Tên và Mã ra riêng trước... Dùng công cụ Text to Columns là ngon ăn nhất
------------------------------------
Tạm sửa lại file của bạn theo tiêu chí Text to Columns như tôi nói ở trên!

 

[yeudoi]

Bác làm gần đúng ý em rồi, nhưng ở đây em danh mục em không phụ thuộc vào sheet tim mà phụ thuộc vào sheet Data. Có lúc em cần xem 2 người, lúc lại xem 3 người lúc lại xem toàn bộ. Bác xem giúp em, file em đã sửa lại ở trên.

 

[ndu96081631]

Bác làm gần đúng ý em rồi, nhưng ở đây em danh mục em không phụ thuộc vào sheet tim mà phụ thuộc vào sheet Data. Có lúc em cần xem 2 người, lúc lại xem 3 người lúc lại xem toàn bộ. Bác xem giúp em, file em đã sửa lại ở trên.

Tôi không hiểu cho lắm ý bạn! Bạn nói rõ hơn 1 chút được không? Tôi thấy cách bố trí dử liệu ở sheet Data còn dể lọc hơn nữa ấy chứ

 

[Mr Okebab]

Mình có thêm một bài toán về trích lọc, mời các bạn cùng tham gia

Sẽ có các cách sau đây :

1. Công thức : Cũng hơi dài
2. Subtotal : Rất ngắn gọn, đòi hỏi phải Sort Khách hàng trước
3. Pivot Table : Rất ngắn gọn
4. VBA1 : Dùng UDF : Khá mất thời gian, tuy không khó lắm
5. VBA2 : Dùng Sub : Rất dễ dàng với nhiều người
6. Không biết còn cách nào nữa không ???

Thân!

1. Đã có người làm
2. Chưa có ai làm
3. Đã có người làm
4. Chưa có ai làm
5. Đã có người làm
6. Chưa có ai làm

Không biết có ai muốn cống hiến thêm các phương án 2; 4; 6 không nhỉ ??

VD : Cách 2 :

Thân!

 

[hoangdanh282vn]

Trích lọc dùng Subtotal

Code tính Subtotal

Sub subtotal()
Application.ScreenUpdating = False
Range("F1:I65536").ClearContents
[A1].CurrentRegion.Copy Destination:=[F1]
With [F1].CurrentRegion
    .Sort Key1:=[F2], Order1:=xlAscending, Key2:=[G2], Order2:=xlAscending

    .subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End With
Application.ScreenUpdating = True
End Sub

Code remove subtotal

Sub removeSubtotal()
With [F1].CurrentRegion
.removeSubtotal: .Clear
End With
End Sub

 

[yeudoi]

Tôi không hiểu cho lắm ý bạn! Bạn nói rõ hơn 1 chút được không? Tôi thấy cách bố trí dử liệu ở sheet Data còn dể lọc hơn nữa ấy chứ

Thì vẫn như bạn làm nhưng tôi có yêu cầu thêm là theo ngày và bố tri dữ liệu theo sheet Data bởi khi sheet tìm nhiều khi ít hoặc nhiều dữ liệu hơn sheet Data hoặc khi cần xem 1 hoặc nhiều người. Nếu dễ hơn thì bạn làm thử xem làm sao kết quả đúng như yêu cầu.

 

[ndu96081631]

Thì vẫn như bạn làm nhưng tôi có yêu cầu thêm là theo ngày và bố tri dữ liệu theo sheet Data bởi khi sheet tìm nhiều khi ít hoặc nhiều dữ liệu hơn sheet Data hoặc khi cần xem 1 hoặc nhiều người. Nếu dễ hơn thì bạn làm thử xem làm sao kết quả đúng như yêu cầu.

Vậy bạn thử trích bằng tay vào file xem thử (vì tôi vẩn chưa hình dung kết quả mà bạn cần sẽ thế nào)

 

[yeudoi]

Bạn xem lại file mình gửi. Mình đã trích bằng tay và đã sửa lại rồi