Nếu dữ liệu ít thì dùng công thức cũng được mà. Dễ nhầm sai là trường hợp nào thế bạn
Dạ, công thức thì nó cũng có ra. Tuy nhiên là phải để ở dạng công thức chờ (chỗ này là chỗ dễ sai đó bác)
Sheet2 bạn khóa sheet à?
2 bạn là 1 à?................
Mỗi 1 PO No đều có số lượng PART SNO giống nhau à
Bác Thóc cùng bộ phận của em bác à
Đội này cùng doanh trại à
Tôi thấy hình như bạn nhầm chỗ dòng 2 của mảng PO: sArr(2, j) = Arr(i, 3) mới đúng chứ. Vả lại đâu có cần key gộp 3 cột, chỉ cần cột PO.No là đủ vì bạn thớt đã xác nhận không có chuyện 1 PO mà nhiều ngày.
Cảm ơn anh đã xem bài.
Thêm 1 cách khác tham khảo
Sub ABC()
Dim sArr(), Res1(), Res2(), i&, iRow&, R&, J&, K&
Dim Dic As Object
Set Dic = CreateObject("scripting.dictionary")
With Sheets("2")
iRow = .Range("B" & Rows.Count).End(3).Row
sArr = .Range("A4:N" & iRow).Value
End With
R = UBound(sArr)
ReDim Res1(1 To 3, 1 To R)
ReDim Res2(1 To R, 1 To R)
For i = 1 To UBound(sArr, 1)
If Dic.exists(sArr(i, 2)) = False Then
J = J + 1
Dic.Item(sArr(i, 2)) = J
Res1(1, J) = sArr(i, 10)
Res1(2, J) = sArr(i, 3)
Res1(3, J) = sArr(i, 2)
End If
If Dic.exists(sArr(i, 5)) = False Then
K = K + 1
Dic.Item(sArr(i, 5)) = K
Res2(Dic.Item(sArr(i, 5)), 1) = sArr(i, 5)
Res2(Dic.Item(sArr(i, 5)), Dic.Item(sArr(i, 2)) + 1) = sArr(i, 6)
Else
Res2(Dic.Item(sArr(i, 5)), J + 1) = Res2(Dic.Item(sArr(i, 5)), J + 1) + sArr(i, 6)
End If
Next
With Sheets("1")
.Range("D10").Resize(3, J).Value = Res1
.Range("C16").Resize(K, J + 1).Value = Res2
End With
End SubAnh còn phân biệt được là tiếng Trung, tiếng Anh. Với em là ngoại ngữ hết.
Bọn em đang đầu quân cho Nhật Bổn bác ơi.
Bác Thóc đưa em váo đây bác à
