Hỏi code nhập nhiều dòng dữ liệu vào thành 1 dòng tổng (1 người xem)

[n78nokia81]

Chào các thầy các bạn!
Mình có vẫn đề sau cần được giúp đỡ. Đó là dữ liệu của mình có nhiều dòng dữ liệu giống nhau (giống theo mahang) giờ mình muốn tạo ra 1 bảng chỉ có 1 dòng của dữ liệu đấy thôiV
ví dụ trong file có 4 dòng mã hàng BIHA04 (tên hàng là Bia Hà nội lon) giờ muốn gộp thành 1 dòng BIHA04 với số lượng là tổng. Việc gộp lại vẫn cho ra 1 bảng danh sách các hàng hóa trên theo thứ tự
Nguyên nhân: là dữ liệu của nhiều cửa hàng bán giờ muốn gộp lại thành báo cáo tổng
Mình gửi file đính kièm

 

[Comet297]

Bạn sử dụng chức năng Data > Remove Duplicates để tạo danh mục duy nhất theo mã rồi sau đó Vlookup các tên hàng, Sumif để cộng số lượng và đơn giá.

 

[VetMini]

Cho nó vào pivot table là xong.

 

[Quang_Hải]

Muốn code thì có code

Sub cong()
Dim data(), Res(), i&, k&, j&
data = Range([B3], [H65536].End(3)).Value
ReDim Res(1 To UBound(data), 1 To UBound(data, 2))
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(data)
        If Not .exists(data(i, 1)) Then
            k = k + 1
            .Add data(i, 1), k
            For j = 1 To UBound(data, 2)
                Res(k, j) = data(i, j)
            Next
        Else
            n = .Item(data(i, 1))
            Res(n, 5) = Res(n, 5) + data(i, 5)
            Res(n, 7) = Res(n, 7) + data(i, 7)
        End If
    Next
End With
[J3].Resize(k, UBound(Res, 2)) = Res
End Sub