trantuonganh2008
Thành viên thường trực
- Tham gia
- 8/11/08
- Bài viết
- 305
- Được thích
- 53
Bạn nghiên cứu dùng Advanced Filter thử xem ---> Cái vụ lọc duy nhất này dể mà ---> Đã nói rất nhiều lần trên diển đàn rồiMình có bảng dữ liệu từ D12:I25, nhờ các bạn giúp mình delete những dữ liệu nào trùng tại cột H (chỉ giữ lại một dòng dữ liệu thôi).
Cám ơn nhiều!
Hãy làm giống như trong file đính kèm tôi gữi dưới đây nèDùng Autofillter có điều kiện là sao mình không hiểu? Bạn có thể nói rõ hơn không?
Cám ơn bạn nhiều, bạn vừa nói là tôi làm được rồi. Ý tôi muốn biết thêm cách anh Trung Chinh làm kia.
Mình còn vấn đề này không biết phải giải quyết thế nào. Mình muốn những dòng nào trùng thì giữ lại một dòng thôi (với dk dữ liệu tại cột H giống nhau), ngoại trừ những dòng ở cột F - tức là mình muốn tính tổng số lượng tại cột F với điều kiện dữ liệu tại cột H giống nhau.
Không được rồi HYen ơi, kết quả vẫn như cũ. Mình không thấy tính tổng tại cột F khi những dữ liệu bị trùng tại cột H.
Option Explicit: Option Base 1
Function AdvFilter(Rng As Range, Col As Byte)
Dim Rws As Long, jJ As Long
Dim Ma, Dem As Integer: Dim Clls As Range, sRng As Range
Rws = Rng.Rows.Count: ReDim MDL(Rws, Rng.Columns.Count)
Set sRng = Rng.Cells(1, Col).Resize(Rws)
Dem = 0
For Each Clls In sRng
With Clls
If .Value <> Ma Then
Dem = Dem + 1: Ma = .Value
MDL(Dem, 1) = .Offset(, -4).Value
MDL(Dem, 2) = .Offset(, -3).Value
MDL(Dem, 3) = .Offset(, -2).Value '+'
MDL(Dem, 4) = .Offset(, -2).Value
MDL(Dem, 5) = Ma:
MDL(Dem, 6) = .Offset(, 1).Value
Else
MDL(Dem, 3) = MDL(Dem, 3) + .Offset(, -2).Value
End If
End With
Next Clls: Dem = 1 + Dem
For jJ = Dem To Rws
MDL(jJ, 1) = "": MDL(jJ, 2) = ""
MDL(jJ, 3) = "": MDL(jJ, 4) = ""
MDL(jJ, 5) = "": MDL(jJ, 6) = ""
Next jJ
AdvFilter = MDL
End Function
Bạn khách sáo quá!!! Chờ tin bạn
Không phải vậy đâu anh Trung Chinh ơi, yêu cầu của mình không phải đơn thuần như vậy đâu mà còn có tính tổng ở [F] với điều kiện [H] có những dữ liệu trùng nữa. Nó cũng giống như Subtotal rồi lấy ra những dòng duy nhất vậy đó.
Em chưa hiểu anh làm bằng cách nào. Em gửi file chính lên anh xem nhé. Bạn HYen đã làm giúp code rồi, giờ chỉ còn trục trặc là Format ở cột P sao cho giống dòng đầu thôi. Anh có cách gì hay thì chỉ thêm nhé. Cám ơn HYen & anh TrungChinh Thân.Có phải bạn muốn thế này (file đính kèm) không ?