Gom giá trị từ các sheet khác nhau vào 1 sheet

[cmiviet]

Chào các bác,

Em có một vấn đề như sau muốn giải quyết mà chưa tìm ra cách giải quyết, rất mong các cao thủ chỉ giáo.
Công ty em nhập cùng một loại nguyên vật liệu(NVL) nhiều lần vào nhiều thời điểm khác nhau. Mỗi lần như vậy có một sheet để quản lý các thông tin liên quan đến NVL đó.
Mỗi thời điểm lại nhập nhiều loại NVL khác nhau.
Em muốn tổng hợp số lượng của 1 loại NVL vào một sheet chung.
Sheet 1 :

Ten NVL/ So luong /Dac tinh
NVL1 /10 /Dien tro
NVL2 /20 /Tu dien

Sheet 2

Ten NVL/ So luong/ Dac tinh
NVL3 /40 /Cam bien
NVL1 /5 /Dien tro


Sheet tổng hợp sẽ cộng được các giá trị ở cột số lượng của Sheet 1 và Sheet 2 lại một cách tự động và cập nhật vào danh sách NVL.
Em tính dùng VLOOKUP để search giá trị trong cột "số lượng" ứng với từng NVL rồi tổng hợp lại vào Sheet tổng hợp. Nhưng làm như vậy thì thủ công quá vì phải search từng sheet, sau đó cộng các giá trị search được lại. Nếu số lượng sheet lên đến hàng chục, hàng trăm thì quá phê......(bất khả thi).
Có cách nào mỗi lần nhập số liệu vào sheet mới thì số liệu đó sẽ được cập nhật vào sheet tổng hợp không các bác.

Em trình bày hơi dài dòng, rất mong các bác chỉ giáo.

 

[Quang_Hải]

Chào các bác,

Sheet tổng hợp sẽ cộng được các giá trị ở cột số lượng của Sheet 1 và Sheet 2 lại một cách tự động và cập nhật vào danh sách NVL.
Em tính dùng VLOOKUP để search giá trị trong cột "số lượng" ứng với từng NVL rồi tổng hợp lại vào Sheet tổng hợp. Nhưng làm như vậy thì thủ công quá vì phải search từng sheet, sau đó cộng các giá trị search được lại. Nếu số lượng sheet lên đến hàng chục, hàng trăm thì quá phê......(bất khả thi).
Có cách nào mỗi lần nhập số liệu vào sheet mới thì số liệu đó sẽ được cập nhật vào sheet tổng hợp không các bác.

Em trình bày hơi dài dòng, rất mong các bác chỉ giáo.

Gởi file lên đi, có nhìn thấy được gi đâu mà giúp bạn

 

[cmiviet]

Em gửi file ví dụ lên.
Xin lỗi các bác.

 

[Quang_Hải]

Em gửi file ví dụ lên.
Xin lỗi các bác.

Tìm cách mở chức năng macro lên nhé

Sub tonghop()
Dim dic As Object
Dim sh, arr, i
Set dic = CreateObject("scripting.dictionary")
Sheet1.[A2:b10000].ClearContents
With dic
For Each sh In Worksheets
  If sh.Name <> "TONGHOP" Then
    With sh
      arr = .Range(.[a2], .[a65536].End(3)).Resize(, 2).Value
    End With
    For i = 1 To UBound(arr)
      If arr(i, 1) <> "" Then
        If Not .exists(arr(i, 1)) Then
          .Add arr(i, 1), arr(i, 2)
        Else
          .Item(arr(i, 1)) = .Item(arr(i, 1)) + arr(i, 2)
        End If
      End If
    Next
  End If
Next
Sheet1.[a2].Resize(.Count, 1) = Application.Transpose(.keys)
Sheet1.[b2].Resize(.Count, 1) = Application.Transpose(.items)
End With
End Sub

 

[cmiviet]

Cám ơn bác quanghai1969. Hôm nay em mới check diễn đàn được. Giải pháp của bác rất hay, em sẽ tham khảo để mở rộng thêm.