Dò tìm lấy kết quả tất cả các Sheet (1 người xem)

[HocVBAExcel]

Chào các Anh Chị diễn đàn
Mình muốn dò tìm lấy dữ liệu tất cả các sheet qua sheet(TH)
Các Anh chi xem file dinh kèm.

 

[Lê Duy Thương]

Chào các Anh Chị diễn đàn
Mình muốn dò tìm lấy dữ liệu tất cả các sheet qua sheet(TH)
Các Anh chi xem file dinh kèm.

trong file đã có code rồi bạn còn muốn gì nữa

 

[Let'GâuGâu]

Chào các Anh Chị diễn đàn
Mình muốn dò tìm lấy dữ liệu tất cả các sheet qua sheet(TH)
Các Anh chi xem file dinh kèm.

sửa đại code của bạn, hỏng biết có trúng hong

Private Sub CommandButton1_Click()
Dim Arr(), I, J, kq(), Dic As Object
Dim ws

For Each ws In Array("01", "02")
With Sheets(ws)
   Arr = .Range("B7", .[B65536].End(3)).Resize(, 15).Value
End With
Set Dic = CreateObject("scripting.dictionary")

For J = 3 To UBound(Arr, 2)
    For I = 7 To UBound(Arr)
        Tem = Arr(I, 1) & Arr(1, J)
        Dic(Tem) = Dic.Item(Tem) + Arr(I, J)
    Next
Next
Next

With Sheet2
   .[D13:G100].ClearContents
   'kq = .Range("B6:M23").Value
   kq = .Range("B6", .[B65536].End(3)).Resize(, 15).Value
   For I = 8 To UBound(kq)
      For J = 3 To UBound(kq, 2)
         Tem = kq(I, 1) & kq(2, J)
         kq(I, J) = Dic.Item(Tem) * kq(1, J)
      Next
   Next
   .[B6].Resize(I - 1, J - 1) = kq
End With
End Sub

 

[HocVBAExcel]

trong file đã có code rồi bạn còn muốn gì nữa

Trong file chi lay du lieu duoc sheet1 thoi minh muon cap nhat them sheet2

 

[HocVBAExcel]

sửa đại code của bạn, hỏng biết có trúng hong

Private Sub CommandButton1_Click()
Dim Arr(), I, J, kq(), Dic As Object
Dim ws

For Each ws In Array("01", "02")
With Sheets(ws)
   Arr = .Range("B7", .[B65536].End(3)).Resize(, 15).Value
End With
Set Dic = CreateObject("scripting.dictionary")

For J = 3 To UBound(Arr, 2)
    For I = 7 To UBound(Arr)
        Tem = Arr(I, 1) & Arr(1, J)
        Dic(Tem) = Dic.Item(Tem) + Arr(I, J)
    Next
Next
Next

With Sheet2
   .[D13:G100].ClearContents
   'kq = .Range("B6:M23").Value
   kq = .Range("B6", .[B65536].End(3)).Resize(, 15).Value
   For I = 8 To UBound(kq)
      For J = 3 To UBound(kq, 2)
         Tem = kq(I, 1) & kq(2, J)
         kq(I, J) = Dic.Item(Tem) * kq(1, J)
      Next
   Next
   .[B6].Resize(I - 1, J - 1) = kq
End With
End Sub

Cám ơn anh đa giúp nhưng code anh không cho ra kết quả.