Giúp em về tìm kiếm nhiều giá trị liên tiếp! (1 người xem)

[nguyen_sammi]

Hi chào các anh chị trên diễn đàn.
Xin các anh chị giúp em viết tiếp vba của file này ạ. Em chỉ viết đc 1 ít thôi. Yêu cầu em có ghi trong file rồi.
Em chỉ biết tìm giá trị duy nhất, nhưng nếu tìm nhiều giá trị duy nhất cùng lúc thì sao ạ? Nhờ các anh chị giúp em.
Trong file này em đã viết rồi, nhưng lung tung lắm, và bị sai dù nó vẫn chạy. Do em ko biết xài vòng lặp.
Mong các anh chị giúp em với ((

 

[nguyen_sammi]

Ko ai giúp em hết à?? huhuhu...

 

[Ba Tê]

Ko ai giúp em hết à?? huhuhu...

Hu hu làm gì,
Phải có người rảnh rỗi và có đủ thời gian để hiểu bạn muốn gì, và có đủ "hứng thú" với chuyện này không mới được chớ.
Bạn đã biết viết code thì viết tặng bạn cái này. Bạn tự thêm phần kẻ khung nhé.
Nó có chạy đúng yêu cầu của bạn không thì bạn tự kiểm tra lại.
Hên xui!
[GPECODE=vb]Public Sub GPE_EPG()
Dim sArr(), dArr(), tArr(), I As Long, J As Long, K As Long, N As Long, M As Long, Rw As Long, Tem As String
With Sheets("TINH NORM")
tArr = .Range(.[C8], .[C8].End(xlDown)).Value2
End With
With Sheets("NORM DATA")
sArr = .Range(.[C5], .[C65536].End(xlUp)).Resize(, 37).Value2
Rw = UBound(sArr, 1)
ReDim dArr(1 To Rw, 1 To 37)
End With
For M = 1 To UBound(tArr, 1)
Tem = tArr(M, 1)
For I = 1 To Rw
If sArr(I, 2) = Tem Then
K = K + 1
For J = 1 To 37
dArr(K, J) = sArr(I, J)
Next J
N = I + 1
Exit For
End If
Next I
For I = N To Rw
If sArr(I, 2) <> Tem Then Exit For
K = K + 1
For J = 7 To 37
dArr(K, J) = sArr(I, J)
Next J
Next I
Next M
With Sheets("TINH NORM")
.[L8:L10000].Resize(, 37).ClearContents
.[L8].Resize(K, 37) = dArr
End With
End Sub[/GPECODE]

 

[nguyen_sammi]

Cám ơn anh Ba Tê nhiều.