Tổng hợp số liệu từ các sheet (1 người xem)

[nthxe]

Kính chào các anh các chị,

Mình có 1 file tổng hợp doanh số bán hàng trong năm gồm 13 sheet (1 sheet cả năm và 12 sheet của 12 tháng)

Trong mỗi sheet, cấu trúc cột là giống nhau gồm: STT, Khách hàng, Sp1,..SP8

Cấu trúc hàng trong mỗi sheet là khác nhau tùy thuộc vào tháng đó bán được cho khách hàng nào.

Yêu cầu:
Ở sheet cả năm sẽ gồm tổng doanh thu bán cho từng khách hàng phân theo sản phẩm.

(file đính kèm)

Nhờ các anh chị chỉ giùm. Xin cảm ơn

 

[Quang_Hải]

Kính chào các anh các chị,

Mình có 1 file tổng hợp doanh số bán hàng trong năm gồm 13 sheet (1 sheet cả năm và 12 sheet của 12 tháng)

Trong mỗi sheet, cấu trúc cột là giống nhau gồm: STT, Khách hàng, Sp1,..SP8

Cấu trúc hàng trong mỗi sheet là khác nhau tùy thuộc vào tháng đó bán được cho khách hàng nào.

Yêu cầu:
Ở sheet cả năm sẽ gồm tổng doanh thu bán cho từng khách hàng phân theo sản phẩm.

(file đính kèm)

Nhờ các anh chị chỉ giùm. Xin cảm ơn

Xem file đính kèm nhé

Sub tong_nhieu_sheet_vao_1_sheet()
Dim dl(), kq(1 To 10000, 1 To 10), d As Object
Dim sh As Worksheet, i As Long, k As Long, x As Byte
Set d = CreateObject("scripting.dictionary")
For Each sh In ThisWorkbook.Worksheets
   If sh.Name <> "Ca nam" Then
      dl = sh.Range(sh.[b3], sh.[b65536].End(3)).Resize(, 9)
      For i = 1 To UBound(dl)
         If dl(i, 1) <> "" Then
            If Not d.exists(dl(i, 1)) Then
               k = k + 1
               d.Add dl(i, 1), k
               kq(k, 1) = k
               For x = 2 To 10
                  kq(k, x) = dl(i, x - 1)
               Next x
            Else
               For x = 3 To 10
                  kq(d.Item(dl(i, 1)), x) = _
                  kq(d.Item(dl(i, 1)), x) + dl(i, x - 1)
               Next x
            End If
         End If
      Next i
   End If
Next sh
Sheets("Ca nam").[a3:j10000].ClearContents
Sheets("Ca nam").[a3].Resize(k, 10) = kq
End Sub