Hiện tại mình muốn tổng hợp số lượng theo tên thuốc,đơn vị,đơn giá từ 3 sheet BV,PK, NT vào 6 cột tên thuốc,đơn vị,dơn giá,BV,PK,NT của sheet TONGHOP. Mình chỉ biết làm thủ công từng cái nhưng lâu quá. Rất mong các anh chị giúp đỡ. Em xin cám ơn nhiều ạ.
Thôi thì làm giùm em ấy 4 cột A,B,C,D... Còn lại anh "Chim Hồng" giúp em ấy nhé....
Mã:Option Explicit Sub GPE() Dim Ws As Worksheet, Dic As Object, Itm, Arr() Dim I As Long, J As Long, K As Long, dArr(1 To 65000, 1 To 4) Set Dic = CreateObject("Scripting.Dictionary") For Each Ws In Worksheets If Ws.Name <> "TONG HOP" Then With Ws Arr = .Range(.[A1], .[A65000].End(3)).Resize(, 6).Value For I = 2 To UBound(Arr) Itm = Arr(I, 2) & "_" & Arr(I, 3) & "_" & Arr(I, 5) If Not Dic.Exists(Itm) Then K = K + 1 Dic.Add Itm, "" dArr(K, 1) = K dArr(K, 2) = Arr(I, 2) dArr(K, 3) = Arr(I, 3) dArr(K, 4) = Arr(I, 5) End If Next I End With End If Next Ws Sheet4.Range("A8:N65000").UnMerge Sheet4.Range("A8:D65000").ClearContents Sheet4.[A8].Resize(K, 4) = dArr Set Dic = Nothing End Sub
Sheet4.[A8].Resize(K,[COLOR=#ff0000][SIZE=4][B] 4[/B][/SIZE][/COLOR]) = dArr
Hiện tại mình muốn tổng hợp số lượng theo tên thuốc,đơn vị,đơn giá từ 3 sheet BV,PK, NT vào 6 cột tên thuốc,đơn vị,dơn giá,BV,PK,NT của sheet TONGHOP. Mình chỉ biết làm thủ công từng cái nhưng lâu quá. Rất mong các anh chị giúp đỡ. Em xin cám ơn nhiều ạ.
Cám ơn bạn be09 nhiều nha, tại mình mới làm phần này, dữ liệu từ các đơn vị gởi về, mỗi nơi 1 kiểu,font chữ tùm lum,không biết tổng hợp sao luôn
