Lọc dữ liệu và tính tổng san 1 sheet khác! (1 người xem)

[gpexcelclub]

Tôi có 1 bài tập,nhờ các cao thủ của GPE ra tay giúp!Tôi xin cảm ơn rất nhiều.
File đính kèm bài tập của tôi:
Vấn đề đặt ra là:khi click nút Tổng hợp thì:
-Lọc tất cả dữ liệu của sheet Data,nếu trùng lặp thì chỉ lấy tên 1 lần,sau đó tính tổng cột ThanhTien và cột %(của tất cả dòng của cột Name)!Tất cả đều liệt kê qua sheet Baocao.
(có thể code VB càng tốt)
Chân thành cảm ơn!

 

[khoavu87]

Tôi có 1 bài tập,nhờ các cao thủ của GPE ra tay giúp!Tôi xin cảm ơn rất nhiều.
File đính kèm bài tập của tôi:
Vấn đề đặt ra là:khi click nút Tổng hợp thì:
-Lọc tất cả dữ liệu của sheet Data,nếu trùng lặp thì chỉ lấy tên 1 lần,sau đó tính tổng cột ThanhTien và cột %(của tất cả dòng của cột Name)!Tất cả đều liệt kê qua sheet Baocao.
(có thể code VB càng tốt)
Chân thành cảm ơn!

Không biết điều kiện trùng tên ở đây của bạn là như thế nào nữa? Mình nghĩ trùng tên là trùng ở tất cả các dòng tiêu đề.
Nếu đúng như vậy thì bạn dùng code này. Dùng advaced:

Sub Macro1()
 Sheet3.Range("a1").CurrentRegion.Clear
 Sheet1.Range("A1").CurrentRegion.AdvancedFilter 2, CopyToRange:=Sheet3.Range("A1"), Unique:=True
With Sheet3.Range("g1000").End(xlUp)
  .Offset(1, 0).Resize(, 2).Value = "=+SUM(R2C:R[-1]C)"
  .Offset(1, 0).Resize(, 2).Value = .Offset(1, 0).Resize(, 2).Value
End With
End Sub

 

[gpexcelclub]

cảm ơn bạn đã hướng dẫn!Nhưng ý của mình là thế này:
-lọc dữ liệu trùng ở sheet Data (vd:ở đây là dantruong),tính tổng(Thanhtien,%) của các dòng dữ liệu trùng(vd:ở đây là dantruong),sau đó add sang sheet Baocao(như trong file).
rất mong nhận được hồi âm!

 

[chucuoi92]

Sao bạn không tổng hợp bằng PivotTable có phải nhẹ nhàng hơn không!

 

[khoavu87]

Cách của Chu.cuoi là nhanh nhất, ngồi nghĩ cách để nó ngắn gọn mà chưa được. Bạn thử xem cái này xem sao.