bạn í muốn biến sheet THU ra giống như sheet2 đó anh . anh xem có cách nào giúp bạn í tí code cho nó "Mạnh" với . hí hí
Em rất xin lỗi bác, giờ em mới lên được
vụ này khó quá .... mình tịt rồi ....nhìn vào lung tung đau đầu quá.....
Vâng đúng rồi ạ, Bảng ngoài cùng bên trái là dữ liệu gốc.
vụ này khó quá .... mình tịt rồi ....nhìn vào lung tung đau đầu quá.....
doveandrose .....Ra tay là chuyện nhỏ như con thỏ...........
(.
Hu hu, em giải thích rõ ràng thế cơ mà
Option Explicit
Public Sub GPE()
Dim Dic2 As Object, Dic3 As Object, Tem2 As String, Tem3 As String
Dim sArr(), dArr(), tArr(), I As Long, J As Long, K As Long, N As Long, Col As Long
Set Dic2 = CreateObject("Scripting.Dictionary")
Set Dic3 = CreateObject("Scripting.Dictionary")
'---------------------------------------------------- '
Set Dic2 = Nothing
Set Dic3 = Nothing
End Sub'-----------------------------------------------------'
K = 0
ReDim dArr(1 To 50000, 1 To 4)
For I = 1 To UBound(tArr, 1)
If tArr(I, 1) = 1 Then
K = K + 1
dArr(K, 1) = tArr(I, 2)
dArr(K, 2) = tArr(I, 4)
dArr(K, 3) = "1 Item"
dArr(K, 4) = sArr(I, 3)'<---------tArr(I,3) chứ không phải sArr(I,3). Híc!'
