Giúp lấy thông tin từ file tổng theo điều kiện (1 người xem)

[tueyennhi]

• Cho em hỏi từ sheet BCC em ,muốn lấy dữ liệu sang sheet bên cạnh với điều kiện là chỉ lấy dữ liệu cho các ID trong sheet DS. Mọi người chỉ giúp em nhé, tốc độ càng nhanh càng tốt vì dữ liệu của em khoảng mấy nghìn ID. Em cảm ơn!

 

[befaint]

Cho em hỏi từ sheet BCC em ,muốn lấy dữ liệu sang sheet bên cạnh với điều kiện là chỉ lấy dữ liệu cho các ID trong sheet DS

(1) Theo mô tả trên thì có 3 sheets, gồm: sheet BCC, sheet bên cạnh sheet BBC, sheet DS.
(2) Trong file đính kèm có 2 sheets.
Từ (1) (2): Chịu!

Lập cả một thớt trước cũng không áp dụng được... Giờ đánh giáp lá cà?

 

[tueyennhi]

(1) Theo mô tả trên thì có 3 sheets, gồm: sheet BCC, sheet bên cạnh sheet BBC, sheet DS.
(2) Trong file đính kèm có 2 sheets.
Từ (1) (2): Chịu!

Lập cả một thớt trước cũng không áp dụng được... Giờ đánh giáp lá cà?

Có 2 sheet BCC và DS. Lấy dữ liệu BCC sang DS từ list ID của sheet DS . Ban đầu mình nghĩ cái này cách thức cũng tương tự với thớt kia nên đăng luôn vào đó tiện theo dõi, chỉ là tiêu đề không như nhau thôi.

 

[tueyennhi]

Gợi mở giúp mình được không? Có phải Gán cái danh sách đó thành key hay item gì đó của Dic?

 

[tueyennhi]

Public Sub GPE1()
Dim I As Long, J As Long, K As Long, Dic As Object, sArr, vArr, dArr
With Sheet17
    sArr = .Range("B8", .Range("B8").End(4)).Value
End With

Set Dic = CreateObject("Scripting.Dictionary")
For I = 1 To UBound(sArr)
    Dic.Item(sArr(I, 1)) = I
Next
With Sheet16
    vArr = .Range("B8", .Range("B8").End(4)).Resize(, 160).Value
End With
ReDim dArr(1 To UBound(vArr), 1 To UBound(vArr, 2))
    For I = 1 To UBound(vArr)
        If Dic.exists(vArr(I, 1)) Then
        K = K + 1
            For J = 1 To UBound(vArr, 2)
                dArr(K, J) = vArr(I, J)
            Next
        End If
    Next
If K Then Sheet17.Range("B16").Resize(K, UBound(vArr, 2)).Value = dArr
End Sub

Cảm ơn bạn rất nhiều, cố gắng học được cái Dic này. Áp dụng nhiều rồi mà không hiểu tường tận. Nhờ GPE mà công việc của mình tiện lợi chính xác và nhanh chóng hơn gấp nhiều lần so với cách làm cũ. Xin chân thành cảm ơn tất cả các thành viên đã giúp đỡ mình thời gian qua!