tất cả số tiền của 1 ngày sẽ được cộng vào cột (thu/ngày) Nếu không muốn làm như các bạn hỗ trợ ở trên, có thể làm theo cách này
Thêm một cách dùng Sumif(), Bạn tham khảo:
Option Explicit
Sub TongTheoNgay()
Dim Clls As Range, Rng As Range
Set Rng = Range([A1], [A65500].End(xlUp))
1 'Tao Danh Sach Duy Nhat Tai Cot I:'
Rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I1], Unique:=True
2 'Tinh Tong Theo Ngay Trên Cot I, Dua Ra Tai Cot J '
For Each Clls In Range([I2], [I2].End(xlDown))
With Application.WorksheetFunction
Clls.Offset(, 1).Value = .SumIf(Rng, Clls.Value, Rng.Offset(, 6))
End With
Next Clls
End Sub
đây cũng là 1 cách nữa
to bác bate và đai ca
Rất cám ơn bạn đã giúp nhưng mình vẫn không giải quyết được bạn ạ! Nếu cột giá thành phần chỉ có 2 hay 1 cel thì hàm sum kết hợp if xem như thất bại.
