Giúp tổng hợp dữ liệu bằng Dictionary (1 người xem)

[tueyennhi]

Chào anh chị

Em đã cố viết dic mà không thành công. Anh chị giúp em ở file đính kèm nhé.

Công việc em cần làm thủ công hiện như sau:
- Từ sheet "Data lọc lần lượt các cột có giá trị NG sau đó ---> Copy ID và giá trị cột của sheet "Data" vào lần lượt cột B và E của sheet "CHECK".
Phiền anh chị nếu được thì ghi chú thích từng đoạn code có được không ạ để em học hỏi.

Hoặc nếu không dùng được Dic thì anh chị xây dựng code khác giúp em nhé.

Em cảm ơn rất nhiều!

 

[tueyennhi]

Sao phải Dic bự Dic nhỏ gì ở đây???

Public Sub GPE()
Dim sArr, dArr, tArr, I As Long, J As Long, K As Long
sArr = Sheet4.Range("B6", Sheet4.Range("B6").End(4)).Resize(, 156).Value
ReDim dArr(1 To UBound(sArr) * UBound(sArr, 2), 1 To 1)
ReDim tArr(1 To UBound(sArr) * UBound(sArr, 2), 1 To 1)
For J = 7 To UBound(sArr, 2)
    For I = 1 To UBound(sArr)
        If UCase(sArr(I, J)) = "NG" Then
            K = K + 1
            dArr(K, 1) = sArr(I, 1)
            tArr(K, 1) = J
        End If
    Next
Next
    If K Then
        Sheet3.Range("B5").Resize(K).Value = dArr
        Sheet3.Range("E5").Resize(K).Value = tArr
    End If
End Sub

Tuyệt vời! Cách sử dụng K=K+1 hay thật, không quan tâm là mấy mà chỉ phụ thuộc vào giá trị NG.

Cảm ơn hpkhuong!!!