Tổng hợp dữ liệu từ nhiều sheet theo điều kiện

[BuiQuangThuan]

Chào các thầy cô ạ.
Em có 1 file gồm nhiều sheet.
Những sheet muốn tổng hợp đều có chung cấu trúc giống nhau
Giờ muốn tổng hợp dữ liệu từ nhiều sheet về 1 sheet theo lấy những thông tin cần thiết theo điều kiện.
Em có trình bày trong file đính kèm.
Mong các anh chị, thầy cô giúp đỡ ạ

 

[batman1]

Cám ơn thầy ạ. Thầy có thể chỉ em cách IF để cho chặt chẽ được không ạ
Và theo như thầy hướng dẫn thì nếu là object thì mới cần set phải không ạ. còn lại thì chỉ cần đưa biến bất kỳ = empty là được ạ

Thì cho vào IF ... THEN thôi

If LR >= 9 Then
    Arr = Ws.Range("A9:I" & LR).Value
    R = UBound(Arr, 1)
    ReDim KQ(1 To R, 1 To 5)
    For I = 1 To R
    If CLng(Right(Arr(I, 1), 2)) >= DK1 Then
        If CLng(Right(Arr(I, 1), 2)) <= DK2 Then
            K = K + 1
            KQ(K, 1) = Ws.Name & "-" & Arr(I, 4)
            KQ(K, 2) = Arr(I, 5)
            KQ(K, 3) = Arr(I, 6)
            KQ(K, 4) = Arr(I, 8)
            KQ(K, 5) = Arr(I, 9)
        End If
    End If
    Next
    If K Then Sheets("THONGKE").Range("A" & LR1).Resize(K, 5).Value = KQ
    K = 0
'        Erase Arr
'        KQ = Empty
End If

SET là từ khóa dùng với Object.
Dim myObj As Object
Set myObj = ...

Empty dùng với Variant.
Dim k As Long, s As String, v As Variant, o As Object
k = 0
s = ""
v = Empty
set o = Nothing