Xin giúp về tổng hợp nhiều Sheet

[locthokhongvui]

Kính gởi các thầy cô các anh chị, e bán hàng cho khách mỗi ngày em nhập vào 1 sheet, thường thì 1 tuần khách hàng mới thanh toán 1 lần, nên mỗi khách hàng e có 1 wookbook theo dõi nợ, trong 1 wookbook đó thì có 7 sheet. Cuối tuần e phải tổng hợp từ sheet1 cho đến sheet7 vào sheet tổng hợp để thu nợ khách. Sheet tổng hợp e phải làm thủ công cắt dán để tính loại hàng và tính số lượng, nên rất lâu (mã hàng và tên hàng e có dùng 1 sheet riêng và dùng hàm vlookup), mà khách hàng thì lại rất nhiều. E kinh xin cac anh chị giúp đỡ e dùng macro hay cach nào ma khi tổng hợp cho nhanh e khỏi vất vả. E gởi kèm file để các thầy cô các anh chị tham khảo giúp đỡ.

 

[Ba Tê]

Kính gởi các thầy cô các anh chị, e bán hàng cho khách mỗi ngày em nhập vào 1 sheet, thường thì 1 tuần khách hàng mới thanh toán 1 lần, nên mỗi khách hàng e có 1 wookbook theo dõi nợ, trong 1 wookbook đó thì có 7 sheet. Cuối tuần e phải tổng hợp từ sheet1 cho đến sheet7 vào sheet tổng hợp để thu nợ khách. Sheet tổng hợp e phải làm thủ công cắt dán để tính loại hàng và tính số lượng, nên rất lâu (mã hàng và tên hàng e có dùng 1 sheet riêng và dùng hàm vlookup), mà khách hàng thì lại rất nhiều. E kinh xin cac anh chị giúp đỡ e dùng macro hay cach nào ma khi tổng hợp cho nhanh e khỏi vất vả. E gởi kèm file để các thầy cô các anh chị tham khảo giúp đỡ.

Bạn muốn có kết quả giống như sheet Tonghop sao?
Mã hàng AAA cả 7 sheet có số lượng đều=1, Tonghop cũng =1 là sao?
Dữ liệu không thật, kết quả không giống thật, chỉ mình bạn hiểu thì tự bạn làm đi.
Hình như bạn không có trách nhiệm gì với cái file bạn gởi lên hỏi.

 

[Quang_Hải]

Kính gởi các thầy cô các anh chị, e bán hàng cho khách mỗi ngày em nhập vào 1 sheet, thường thì 1 tuần khách hàng mới thanh toán 1 lần, nên mỗi khách hàng e có 1 wookbook theo dõi nợ, trong 1 wookbook đó thì có 7 sheet. Cuối tuần e phải tổng hợp từ sheet1 cho đến sheet7 vào sheet tổng hợp để thu nợ khách. Sheet tổng hợp e phải làm thủ công cắt dán để tính loại hàng và tính số lượng, nên rất lâu (mã hàng và tên hàng e có dùng 1 sheet riêng và dùng hàm vlookup), mà khách hàng thì lại rất nhiều. E kinh xin cac anh chị giúp đỡ e dùng macro hay cach nào ma khi tổng hợp cho nhanh e khỏi vất vả. E gởi kèm file để các thầy cô các anh chị tham khảo giúp đỡ.

Tham khảo thế này xem đúng ý chưa, nếu không đúng thì ráng chịu. Thề với lòng không sửa code vì cái tội nhìn thấy dữ liệu thấy nản.

Sub tonghop()
Dim sh As Worksheet, i As Long, j As Long, kq(1 To 10000, 1 To 5), dl(), x As Byte
With CreateObject("scripting.dictionary")
   For Each sh In ThisWorkbook.Worksheets
      If sh.Name Like "LAN*" Then
         dl = sh.Range(sh.[a3], sh.[A65536].End(3)).Resize(, 5).Value
         For i = 1 To UBound(dl)
            If dl(i, 1) <> "" Then
               If Not .exists(dl(i, 1)) Then
                  j = j + 1
                  .Add dl(i, 1), j
                  For x = 1 To 5
                     kq(j, x) = dl(i, x)
                  Next
               Else
                  For x = 2 To 5
                     If x <> 3 Then
                        kq(.Item(dl(i, 1)), x) = kq(.Item(dl(i, 1)), x) + dl(i, x)
                     End If
                  Next
               End If
            End If
         Next
      End If
   Next
End With
Sheets("TongHop").[a3:e10000].ClearContents
If j Then Sheets("TongHop").[a3].Resize(j, 5) = kq
End Sub

 

[locthokhongvui]

Em xin lỗi anh Ba Tê và anh quang hai 1969, đúng là số liệu của em không có thật, vì em chỉ nghĩ là gởi ví dụ nhờ các anh giúp, em gởi nhầm file chưa cắt dán xong ở sheet tổng hợp nên gây ra khó chịu cho các anh, mong các anh cho e xin lỗi. Mong các anh bỏ qua mà giúp đỡ cho e. Thật ra e không rành lắm về excel nen sheet tổng hợp em chỉ biết cắt dán. Em xin gởi lại file e đã cắt dán mong các a giúp đỡ bỏ qua lỗi của e. (e muốn trong sheet tổng hợp gom được các loại hàng và số lượng). Một lần nữ e xin lỗi 2 anh, mong 2 anh lượng thứ.

 

[locthokhongvui]

Em quên gởi file, xin lỗi 2 anh.

 

[SA_DQ]

File trước của bạn mình không dám xài vì có trang tính ẩn

Bạn viết được macro thì tự tìm hiểu thêm cách này: