Xin giúp mình về Tổng hợp dữ liệu từ nhiều sheet (3 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
M

mongcaicity

Thành viên mới
Tham gia
9/8/10
Bài viết
12
Được thích
2
Tại sheet Tổng hợp em muốn lọc ra danh sách các Doanh nghiệp xuất khẩu từ các sheet : 1,2,3 nếu trùng tên doanh nghiệp thì chỉ nhận 1 tên vào danh sách tổng hợp và tự tổng các số liệu tương ứng : Rượu , Thuốc, ĐL của từng Doanh nghiệp đó trong từng sheet.
File chính của em có 31 sheet (Tương ứng với 31 ngày trong tháng), mình xin mạn phép để 3 sheet để nhờ các anh chị hướng dẫn mình làm theo ý muốn. (Em có file ví dụ đính kèm, mong anh chị xem và giúp đỡ em ạ)
Em xin chân thành cảm ơn!
 

File đính kèm

·
Mã: 
Option Explicit

Sub Tong_Hop()
Dim Ws As Worksheet
Dim i&, K&, RWS&, DN$, TH$
Dim Dic As Object
Dim DL(), KQ(1 To 50000, 1 To 5)

Set Dic = CreateObject("Scripting.dictionary")
For Each Ws In ActiveWorkbook.Worksheets
    If Ws.Name <> ActiveWorkbook.Sheets("Tong hop").Name Then
        With Ws
            DL = .Range("B9", .Range("B" & Rows.Count).End(xlUp)).Resize(, 5).Value
                For i = 1 To UBound(DL)
                        DN = DL(i, 1)
                   If Not Dic.exists(DN) Then
                            K = K + 1
                       Dic.Item(DN) = K
                       KQ(K, 1) = K
                       KQ(K, 2) = DN
                       KQ(K, 3) = DL(i, 3)
                       KQ(K, 4) = DL(i, 4)
                       KQ(K, 5) = DL(i, 5)
                   Else
                       RWS = Dic.Item(DN)
                       KQ(RWS, 3) = KQ(RWS, 3) + DL(i, 3)
                       KQ(RWS, 4) = KQ(RWS, 4) + DL(i, 4)
                       KQ(RWS, 5) = KQ(RWS, 5) + DL(i, 5)
                   End If
                Next
        End With
    End If
Next
Sheets("Tong hop").Range("D4").Resize(K, 5) = KQ
End Sub
. Tham khảo
 

File đính kèm

Lần chỉnh sửa cuối:
Cu Tồ đã viết:
·
Mã: 
Option Explicit

Sub Tong_Hop()
Dim Ws As Worksheet
Dim i&, K&, RWS&, DN$, TH$
Dim Dic As Object
Dim DL(), KQ(1 To 50000, 1 To 5)

Set Dic = CreateObject("Scripting.dictionary")
For Each Ws In ActiveWorkbook.Worksheets
    If Ws.Name <> ActiveWorkbook.Sheets("Tong hop").Name Then
        With Ws
            DL = .Range("B9", .Range("B" & Rows.Count).End(xlUp)).Resize(, 5).Value
                For i = 1 To UBound(DL)
                        DN = DL(i, 1)
                   If Not Dic.exists(DN) Then
                            K = K + 1
                       Dic.Item(DN) = K
                       KQ(K, 1) = K
                       KQ(K, 2) = DN
                       KQ(K, 3) = DL(i, 3)
                       KQ(K, 4) = DL(i, 4)
                       KQ(K, 5) = DL(i, 5)
                   Else
                       RWS = Dic.Item(DN)
                       KQ(RWS, 3) = KQ(RWS, 3) + DL(i, 3)
                       KQ(RWS, 4) = KQ(RWS, 4) + DL(i, 4)
                       KQ(RWS, 5) = KQ(RWS, 5) + DL(i, 5)
                   End If
                Next
        End With
    End If
Next
Sheets("Tong hop").Range("D4").Resize(K, 4) = KQ
End Sub
. Tham khảo
Nhấp chuột vào đây để mở rộng...
Giờ em muốn cho vào sổ tổng hợp chính với 31 sheet tương ứng 31 ngày thì làm thế nào ạ
 
befaint đã viết:
ActiveWorkbook.Sheets("Tong hop").Name có = "Tong hop" không bạn?
Nhấp chuột vào đây để mở rộng...
Bác cười rồi,viết thế để cho bạn ấy hiểu đấy là tên sheets.còn bình thường thì "Tong hop" là được
Bài đã được tự động gộp:

mongcaicity đã viết:
Giờ em muốn cho vào sổ tổng hợp chính với 31 sheet tương ứng 31 ngày thì làm thế nào ạ
Nhấp chuột vào đây để mở rộng...
cái đó nó duyệt hết tất cả các sheets trừ sheets "Tong hop" nha.dĩ nhiên là cấu trúc dữ liệu của các sheets phải giống nhau.Là các sheets chứa dữ liệu bắt đầu từ ô B9 .và cái sheets tổng hợp thì dữ liệu trả về sẽ là ô D4 tính cả số thứ tự.cấu trúc như nhau thì 31 sheets cũng như 3 sheeet đều chạy được nha bạn
 
Lần chỉnh sửa cuối:
Cu Tồ đã viết:
Bác cười rồi,viết thế để cho bạn ấy hiểu đấy là tên sheets.còn bình thường thì "Tong hop" là được
Bài đã được tự động gộp:


cái đó nó duyệt hết tất cả các sheets trừ sheets "Tong hop" nha.dĩ nhiên là cấu trúc dữ liệu của các sheets phải giống nhau.Là các sheets chứa dữ liệu bắt đầu từ ô B9 .và cái sheets tổng hợp thì dữ liệu trả về sẽ là ô D4 tính cả số thứ tự.cấu trúc như nhau thì 31 sheets cũng như 3 sheeet đều chạy được nha bạn
Nhấp chuột vào đây để mở rộng...
Em làm nó bị ra thế này bác ạ
 

File đính kèm

Sửa lại vầy.thêm điều kiện khi bảng trống không có dữ liệu là được
Mã: 
Option Explicit

Sub Tong_Hop()
Dim Ws As Worksheet
Dim i&, K&, RWS&, DN$, TH$, Lr&
Dim Dic As Object
Dim DL(), KQ(1 To 50000, 1 To 5)

Set Dic = CreateObject("Scripting.dictionary")
For Each Ws In ActiveWorkbook.Worksheets
    If Ws.Name <> "Tong hop" Then
        With Ws
            DL = .Range("B9", .Range("B" & Rows.Count).End(xlUp)).Resize(, 5).Value
            Lr = .Range("B" & Rows.Count).End(xlUp).Row
            
            If Lr >= 9 Then
                For i = 1 To UBound(DL)
                        DN = DL(i, 1)
                   If Not Dic.exists(DN) Then
                            K = K + 1
                       Dic.Item(DN) = K
                       KQ(K, 1) = K
                       KQ(K, 2) = DN
                       KQ(K, 3) = DL(i, 3)
                       KQ(K, 4) = DL(i, 4)
                       KQ(K, 5) = DL(i, 5)
                   Else
                       RWS = Dic.Item(DN)
                       KQ(RWS, 3) = KQ(RWS, 3) + DL(i, 3)
                       KQ(RWS, 4) = KQ(RWS, 4) + DL(i, 4)
                       KQ(RWS, 5) = KQ(RWS, 5) + DL(i, 5)
                   End If
                Next
             End If
        End With
    End If
Next
Sheets("Tong hop").Range("D4").Resize(K, 5) = KQ
Sheets("Tong hop").Range("D4:I" & Sheets("Tong hop").Range("D" & Rows.Count).End(xlUp).Row).Borders.LineStyle = 1

End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
Cu Tồ đã viết:
Sửa lại vầy.thêm điều kiện khi bảng trống không có dữ liệu là được
Mã: 
Option Explicit

Sub Tong_Hop()
Dim Ws As Worksheet
Dim i&, K&, RWS&, DN$, TH$, Lr&
Dim Dic As Object
Dim DL(), KQ(1 To 50000, 1 To 5)

Set Dic = CreateObject("Scripting.dictionary")
For Each Ws In ActiveWorkbook.Worksheets
    If Ws.Name <> "Tong hop" Then
        With Ws
            DL = .Range("B9", .Range("B" & Rows.Count).End(xlUp)).Resize(, 5).Value
            Lr = .Range("B" & Rows.Count).End(xlUp).Row
           
            If Lr >= 9 Then
                For i = 1 To UBound(DL)
                        DN = DL(i, 1)
                   If Not Dic.exists(DN) Then
                            K = K + 1
                       Dic.Item(DN) = K
                       KQ(K, 1) = K
                       KQ(K, 2) = DN
                       KQ(K, 3) = DL(i, 3)
                       KQ(K, 4) = DL(i, 4)
                       KQ(K, 5) = DL(i, 5)
                   Else
                       RWS = Dic.Item(DN)
                       KQ(RWS, 3) = KQ(RWS, 3) + DL(i, 3)
                       KQ(RWS, 4) = KQ(RWS, 4) + DL(i, 4)
                       KQ(RWS, 5) = KQ(RWS, 5) + DL(i, 5)
                   End If
                Next
             End If
        End With
    End If
Next
Sheets("Tong hop").Range("D4").Resize(K, 4) = KQ
Sheets("Tong hop").Range("D4:I" & Sheets("Tong hop").Range("D" & Rows.Count).End(xlUp).Row).Borders.LineStyle = 1

End Sub
Nhấp chuột vào đây để mở rộng...
Thật tuyệt vời. Em cảm ơn bác nhiều lắm ạ
 

File đính kèm

Cu Tồ đã viết:
Đoán là bạn quay lại vì thiếu một cột dữ liệu đúng không?
*tại lúc đó tôi có gửi lại file mà bạn không xem :p
Nhấp chuột vào đây để mở rộng...
Dạ em xem và đang dùng rất tốt file anh gửi rồi. Nhưng do muốn cập nhật thêm dữ liệu. Nhưng em mày mò mở rộng đc vùng lấy dữ liệu rồi ạ . Hihi
 
Cũng tốt thế lại học thêm ít ít gì đó :)
 
Cu Tồ đã viết:
Cũng tốt thế lại học thêm ít ít gì đó :)
Nhấp chuột vào đây để mở rộng...
Bác ơi giờ em muốn tổng hợp cả số liệu của cột "Đơn vị bốc xếp" trong sheet tổng hợp nữa thì phải làm thế nào ạ.
Em muốn tổng hợp vào chỗ tạo form sẵn kia mà làm mãi ko đc. Bác giúp em nốt lần này nữa với ạ. EM xin cảm ơn
z2284665660821_b76fb98d5d855ab33aac620561723936.jpg
 

File đính kèm

mongcaicity đã viết:
Bác ơi giờ em muốn tổng hợp cả số liệu của cột "Đơn vị bốc xếp" trong sheet tổng hợp nữa thì phải làm thế nào ạ.
Em muốn tổng hợp vào chỗ tạo form sẵn kia mà làm mãi ko đc. Bác giúp em nốt lần này nữa với ạ. EM xin cảm ơn
View attachment 253121
Nhấp chuột vào đây để mở rộng...

Thêm một mảng nữa ghi lại danh sách đơn vị bốc xếp nữa,rồi gán vào ô A9 nhưng lưu ý ,nếu danh sách dài thì nó sẽ đè lên THU PÔNG TÔNG .chưa có dữu liệu nên tôi chưa thử bạn thử rồi tùy biến nó cho đúng
Mã: 
Option Explicit

Sub Tong_Hop()
Dim Ws As Worksheet
Dim i&, K&, RWS&, DN$, TH$, Lr&, DVBX$, H&, RWS1&
Dim Dic As Object
Dim DL(), KQ(1 To 50000, 1 To 6), BX(1 To 100, 1 To 2)

Set Dic = CreateObject("Scripting.dictionary")
For Each Ws In ActiveWorkbook.Worksheets
    If Ws.Name <> "Tong hop" Then
        With Ws
            DL = .Range("B9", .Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
            Lr = .Range("B" & Rows.Count).End(xlUp).Row
            
            If Lr >= 9 Then
                For i = 1 To UBound(DL)
                        DN = DL(i, 1)
                   If Not Dic.exists(DN) Then
                            K = K + 1
                       Dic.Item(DN) = K
                       KQ(K, 1) = K
                       KQ(K, 2) = DN
                       KQ(K, 3) = DL(i, 3)
                       KQ(K, 4) = DL(i, 4)
                       KQ(K, 5) = DL(i, 5)
                       KQ(K, 6) = DL(i, 6)
                   Else
                       RWS = Dic.Item(DN)
                       KQ(RWS, 3) = KQ(RWS, 3) + DL(i, 3)
                       KQ(RWS, 4) = KQ(RWS, 4) + DL(i, 4)
                       KQ(RWS, 5) = KQ(RWS, 5) + DL(i, 5)
                       KQ(RWS, 6) = KQ(RWS, 6) + DL(i, 6)
                   End If
                        DVBX = DL(i, 2)
                   If Not Dic.exists(DVBX) Then
                            H = H + 1
                       Dic.Item(DVBX) = H
                      
                       BX(H, 1) = DVBX
                       BX(H, 2) = DL(i, 6)
                
                   Else
                       RWS1 = Dic.Item(DVBX)
                       BX(RWS1, 2) = BX(RWS1, 2) + DL(i, 6)
                   End If
                Next
             End If
        End With
    End If
Next
Sheets("Tong hop").Range("D4").Resize(K, 6) = KQ
Sheets("Tong hop").Range("A9").Resize(H, 2) = BX
Sheets("Tong hop").Range("D4:I" & Sheets("Tong hop").Range("D" & Rows.Count).End(xlUp).Row).Borders.LineStyle = 1
Set Dic = Nothing
End Sub
 
Cu Tồ đã viết:
Thêm một mảng nữa ghi lại danh sách đơn vị bốc xếp nữa,rồi gán vào ô A9 nhưng lưu ý ,nếu danh sách dài thì nó sẽ đè lên THU PÔNG TÔNG .chưa có dữu liệu nên tôi chưa thử bạn thử rồi tùy biến nó cho đúng
Mã: 
Option Explicit

Sub Tong_Hop()
Dim Ws As Worksheet
Dim i&, K&, RWS&, DN$, TH$, Lr&, DVBX$, H&, RWS1&
Dim Dic As Object
Dim DL(), KQ(1 To 50000, 1 To 6), BX(1 To 100, 1 To 2)

Set Dic = CreateObject("Scripting.dictionary")
For Each Ws In ActiveWorkbook.Worksheets
    If Ws.Name <> "Tong hop" Then
        With Ws
            DL = .Range("B9", .Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
            Lr = .Range("B" & Rows.Count).End(xlUp).Row
           
            If Lr >= 9 Then
                For i = 1 To UBound(DL)
                        DN = DL(i, 1)
                   If Not Dic.exists(DN) Then
                            K = K + 1
                       Dic.Item(DN) = K
                       KQ(K, 1) = K
                       KQ(K, 2) = DN
                       KQ(K, 3) = DL(i, 3)
                       KQ(K, 4) = DL(i, 4)
                       KQ(K, 5) = DL(i, 5)
                       KQ(K, 6) = DL(i, 6)
                   Else
                       RWS = Dic.Item(DN)
                       KQ(RWS, 3) = KQ(RWS, 3) + DL(i, 3)
                       KQ(RWS, 4) = KQ(RWS, 4) + DL(i, 4)
                       KQ(RWS, 5) = KQ(RWS, 5) + DL(i, 5)
                       KQ(RWS, 6) = KQ(RWS, 6) + DL(i, 6)
                   End If
                        DVBX = DL(i, 2)
                   If Not Dic.exists(DVBX) Then
                            H = H + 1
                       Dic.Item(DVBX) = H
                     
                       BX(H, 1) = DVBX
                       BX(H, 2) = DL(i, 6)
               
                   Else
                       RWS1 = Dic.Item(DVBX)
                       BX(RWS1, 2) = BX(RWS1, 2) + DL(i, 6)
                   End If
                Next
             End If
        End With
    End If
Next
Sheets("Tong hop").Range("D4").Resize(K, 6) = KQ
Sheets("Tong hop").Range("A9").Resize(H, 2) = BX
Sheets("Tong hop").Range("D4:I" & Sheets("Tong hop").Range("D" & Rows.Count).End(xlUp).Row).Borders.LineStyle = 1
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ em cảm ơn nhiều. Số lượng chỉ có thế thôi bác ạ
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

N
Khắc phục lỗi "The picture is too large and will be truncated" (2 người xem)
Trả lời
9
Đọc
5K
SonBDND
S
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (5 người xem)
Trả lời
0
Đọc
19
GPE-Trợ Lý
GPE-Trợ Lý
D
  • Question Question
Quản lý email outlook qua VBA cần giúp đỡ (2 người xem)
Trả lời
10
Đọc
139
nguyendang95
N
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
1
Đọc
75
khkkh
K
G
Xin Code xóa Module.
Trả lời
0
Đọc
34
GCQ
G
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
750
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA (1 người xem)
Trả lời
6
Đọc
180
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
0
Đọc
76
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo
Trả lời
1
Đọc
94
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel (1 người xem)
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện.
Trả lời
14
Đọc
191
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA
Trả lời
4
Đọc
690
thuytrangbp28
T
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
26
Đọc
7K
Tuấn Bụng Bự
Tuấn Bụng Bự
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục
Trả lời
3
Đọc
205
Hoàng Tuấn 868
H
L
Lỗi font khi convert từ pdf
Trả lời
2
Đọc
101
DeTong
D
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô
Trả lời
7
Đọc
198
Gà Công Nghệ
Gà Công Nghệ
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
20
Đọc
1K
Mr.hieudoanxd
Mr.hieudoanxd
P
Excell code vba : Tìm Cell để sửa dữ liệu
    • Buồn
2
Trả lời
26
Đọc
577
Phạm Trường 80
P
D
Nhờ anh em giúp đỡ.
    • Buồn
Trả lời
2
Đọc
92
SA_DQ
SA_DQ
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
2
Đọc
101
DeTong
D
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom