Tổng hợp hàng từ nhiều Sheet (1 người xem)

[bbc]

Chào các bác,

Em có các sheet 001, 002, 003 có chứa các đơn hàng, em muốn tổng hợp lại số lượng đã bán thì làm thế nào ạ

Em cảm ơn nhiều

 

[bbc]

Các bác ơi giúp em với nhé. Em cảm ơn !

 

[Ba Tê]

Chào các bác,

Em có các sheet 001, 002, 003 có chứa các đơn hàng, em muốn tổng hợp lại số lượng đã bán thì làm thế nào ạ

Em cảm ơn nhiều

Nếu chỉ có 3 sheet thì dùng 3 cái SumIf()
Nếu nhiều sheet hơn nữa thì dùng hàm tự tạo này xem sao.

 

[n0thing1988]

Nếu chỉ có 3 sheet thì dùng 3 cái SumIf()
Nếu nhiều sheet hơn nữa thì dùng hàm tự tạo này xem sao.

Bác Ba Tê cho hỏi viết VBA trong trường hợp này thì sao ạ.?

 

[Ba Tê]

Bác Ba Tê cho hỏi viết VBA trong trường hợp này thì sao ạ.?

Thử như vầy coi sao:

Public Sub Xuat()
Dim Dic As Object, Ws As Worksheet, sArr(), dArr(), tArr(), I As Long
Set Dic = CreateObject("Scripting.Dictionary")
tArr = Sheets("Report").Range(Sheets("Report").[B6], Sheets("Report").[B6].End(xlDown)).Value
ReDim dArr(1 To UBound(tArr, 1), 1 To 1)
For I = 1 To UBound(tArr, 1)
    Dic.Item(tArr(I, 1)) = I
Next I
For Each Ws In Worksheets
    If Ws.Name <> "Report" Then
        sArr = Ws.Range("C13:D27").Value
        For I = 1 To 15
            If Dic.Exists(sArr(I, 1)) Then dArr(Dic.Item(sArr(I, 1)), 1) = dArr(Dic.Item(sArr(I, 1)), 1) + sArr(I, 2)
        Next I
    End If
Next Ws
Sheets("Report").[I6].Resize(UBound(dArr, 1)) = dArr
Set Dic = Nothing
End Sub

 

[bbc]

Các bác ơi trường hợp dùng hàm tự tạo, sheet Report ko tự động link dữ liệu mà phải F2 Enter ô có hàm tự tạo mới đc ạ ?
Có cách nào Report link tự động từ các Sheet dữ liệu được ko ạ ?

Em cảm ơn rất nhiều !

 

[FPT_online]

Cho em hỏi nếu dùng pivot table thì làm sao cho hiện tên sản ra được?

 

[bbc]

Các bác ơi trường hợp dùng hàm tự tạo, sheet Report ko tự động link dữ liệu mà phải F2 Enter Công thức ô có hàm tự tạo mới đc ạ ?
Có cách nào Report link tự động từ các Sheet dữ liệu được ko ạ ?

Em cảm ơn rất nhiều !