Hỏi về Filter (1 người xem)

[kkls4745]

Xin hỏi lọc tên duy nhất và tổng tiền của Tên người tronmg VBA như tthế nào.
XIn cảm ơn.

 

[ndu96081631]

Xin hỏi lọc tên duy nhất và tổng tiền của Tên người tronmg VBA như tthế nào.
XIn cảm ơn.

Dùng Advanced Filter để lọc duy nhất, sau đó tính tổng bằng SUMIF..
Đó là cách làm bằng tay! Nếu muốn tự động thì record macro
Giống như file này

Option Explicit
Sub Loc()
  Dim Clls As Range, Ten As Range, Tien As Range
  [F1].CurrentRegion.ClearContents
  With [B1].CurrentRegion
    Set Ten = .Resize(, 1)
    Set Tien = Ten.Offset(, 1)
    Ten.AdvancedFilter 1, , , True
    .SpecialCells(12).Copy: [F1].PasteSpecial 3
  End With
  ActiveSheet.ShowAllData
  For Each Clls In [F1].CurrentRegion.SpecialCells(2, 1)
    Clls = WorksheetFunction.SumIf(Ten, Clls.Offset(, -1), Tien)
  Next
End Sub

 

[thanhvien1802]

Có 1 cách khác cũng ngắn gọn!

Range("B1:B11").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B1:B1"), CopyToRange:=Range("F1:F1"), Unique:=True
For k = 2 To WorksheetFunction.CountA(Range("F1:F11")) Step 1
Range("G" & k).Value = WorksheetFunction.SumIf(Range("B2:B12"), Range("F" & k), Range("C2:C12"))
Next