Nhờ giúp đỡ về hàm nhặt dự liệu từ sheet này sang sheet khác (1 người xem)

[quangdongnd37]

Do yêu cầu của công việc phải dùng đến excel nhiều mà em thì chưa rành lắm nên nhờ các tiền bối chỉ giao. Em có 1 sheet "DGCT". giờ em muốn nhặt tổng hao phí vật liệu, nhân công, máy cho mỗi hạng mục sang sheet "TH" theo từng cột thì em phải dùng hàm như thế nào?
Em không biết dùng code nên nhờ các tiền bối chỉ cách sử dụng hàm nhe!
Em xin chân thành cảm ơn!

 

[Quang_Hải]

Do yêu cầu của công việc phải dùng đến excel nhiều mà em thì chưa rành lắm nên nhờ các tiền bối chỉ giao. Em có 1 sheet "DGCT". giờ em muốn nhặt tổng hao phí vật liệu, nhân công, máy cho mỗi hạng mục sang sheet "TH" theo từng cột thì em phải dùng hàm như thế nào?
Em không biết dùng code nên nhờ các tiền bối chỉ cách sử dụng hàm nhe!
Em xin chân thành cảm ơn!

Với khả năng của mình thì dám chắc rằng không có công thức nào có thể giải quyết được yêu cầu trong file của bạn.
Bố trí dữ liệu ban đầu không khoa học thì giờ chỉ có cách làm thủ công thôi

 

[quangdongnd37]

Vậy bạn có thể gợi ý cho mình cách bố trí lại dữ liệu ban đầu thế nào cho hợp lý hơn có được không?
Mình cảm ơn!

 

[Cá ngừ F1]

Vậy bạn có thể gợi ý cho mình cách bố trí lại dữ liệu ban đầu thế nào cho hợp lý hơn có được không?
Mình cảm ơn!

Bạn là người hiểu dữ liệu của bạn nhất thì chính bạn mới có thể trả lời được câu hỏi đó!

 

[quangdongnd37]

Ý mình là mình còn chưa khoa học ở điểm nào? có những cái mình phải làm theo mẫu nên không làm khác được.

 

[Quang_Hải]

Vậy bạn có thể gợi ý cho mình cách bố trí lại dữ liệu ban đầu thế nào cho hợp lý hơn có được không?
Mình cảm ơn!

Tạm thời giải quyết bằng VBA
Copy code này cho vào sheet TH, mỗi lần nhập mã hiệu tại cột A sẽ có dữ liệu theo yêu cầu

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A3:A10000]) Is Nothing Then
   Dim MH As Range, StartR As Long, KQ(), n As Byte
   Set MH = Sheet4.[B:B].Find(Target, , , 1)
   If Not MH Is Nothing Then
      StartR = MH.Row
      Do
         If Sheet4.Cells(StartR, 4) = "C" & ChrW(7897) & "ng" Then
            n = n + 1
            ReDim Preserve KQ(1 To n)
            KQ(n) = Sheet4.Cells(StartR, 8)
         End If
         StartR = StartR + 1
      Loop Until n = 3
   End If
   If n Then
      Target.Offset(, 3).Resize(, 3) = KQ
   Else
      Target.Offset(, 3).Resize(, 3).ClearContents
   End If
End If
End Sub

Chú ý: Nếu sheet DGCT không có đủ 3 dòng Cộng thì code chạy mãi không ngừng

 

[VetMini]

Ý mình là mình còn chưa khoa học ở điểm nào? có những cái mình phải làm theo mẫu nên không làm khác được.

Nếu cái mẫu không khoa học thì chuyển dữ liệu sang một file tạm cho khoa học. Tính toán xong rồi cóp kết quả về cái mẫu không khoa học kia.