Gộp dữ liệu có điều kiện từ nhiều sheets (1 người xem)

[minhto]

Xin chào các Anh, Chị.
Em có tham khảo một đoạn code dưới đây. Có một đoạn em chưa được rõ lắm:

With Sheets("GPE")
.Range("A3:F1000").ClearContents
If K Then .Range("A3:F3").Resize(K) = dArr => "If K Then" để ở đây để làm gì và Resize(K) có tác dung như thế nào.

Rất cảm ơn các Anh, Chị.




Full đoạn codes như sau:
______________________________________________
For Each Ws In Worksheets
If Ws.Name <> "GPE" Then
WsName = Ws.Name
R = Ws.Range("B50000").End(xlUp).Row
If R > 2 Then
sArr = Ws.Range("B3:F" & R).Value
For I = 1 To UBound(sArr)
If sArr(I, 3) <> Empty Then
If sArr(I, 4) < -3 Then
K = K + 1
dArr(K, 1) = K
For J = 1 To 4
dArr(K, J + 1) = sArr(I, J)
Next J
dArr(K, 6) = WsName
End If
End If
Next I
End If
End If
Next Ws
With Sheets("GPE")
.Range("A3:F1000").ClearContents
If K Then .Range("A3:F3").Resize(K) = dArr

 

[hoanganhvo2612]

Xin chào các Anh, Chị.
Em có tham khảo một đoạn code dưới đây. Có một đoạn em chưa được rõ lắm:

With Sheets("GPE")
.Range("A3:F1000").ClearContents
If K Then .Range("A3:F3").Resize(K) = dArr => "If K Then" để ở đây để làm gì và Resize(K) có tác dung như thế nào.

Rất cảm ơn các Anh, Chị.




Full đoạn codes như sau:
______________________________________________
For Each Ws In Worksheets
If Ws.Name <> "GPE" Then
WsName = Ws.Name
R = Ws.Range("B50000").End(xlUp).Row
If R > 2 Then
sArr = Ws.Range("B3:F" & R).Value
For I = 1 To UBound(sArr)
If sArr(I, 3) <> Empty Then
If sArr(I, 4) < -3 Then
K = K + 1
dArr(K, 1) = K
For J = 1 To 4
dArr(K, J + 1) = sArr(I, J)
Next J
dArr(K, 6) = WsName
End If
End If
Next I
End If
End If
Next Ws
With Sheets("GPE")
.Range("A3:F1000").ClearContents
If K Then .Range("A3:F3").Resize(K) = dArr

Bài viết không đúng nội quy diễn đàn nên sửa lại tiêu đề cho hợp lý.