Yeuvoyeucon
Thành viên hoạt động
- Tham gia
- 30/10/09
- Bài viết
- 143
- Được thích
- 23
Kính gửi anh chị và các bạn,
Em ngồi học về Dictionary và có đọc các bài của diễn đàn. Nhưng thực sự em thấy khó hiểu và khó tưởng tượng quá ạ. Anh chị cho em xin ý nghĩa từng đoạn code dưới này với ạ.
+ a = 1 nghĩa là gì ạ
+ Từ đoạn dk = arr(i, 1) & "#" & arr(i, 2) đến hết e không hiểu ạ.
Em ngồi học về Dictionary và có đọc các bài của diễn đàn. Nhưng thực sự em thấy khó hiểu và khó tưởng tượng quá ạ. Anh chị cho em xin ý nghĩa từng đoạn code dưới này với ạ.
+ a = 1 nghĩa là gì ạ
+ Từ đoạn dk = arr(i, 1) & "#" & arr(i, 2) đến hết e không hiểu ạ.
Mã:
Dim arr, i As Long, dk As String, kq, dic As Object, lr As Long, b As Long, a As Long, j As Long
Set dic = CreateObject("scripting.dictionary")
a = 1
With Sheets("sheet1")
lr = .Range("A" & Rows.Count).End(xlUp).Row
If lr < 3 Then Exit Sub
arr = .Range("A3:D" & lr).Value
ReDim kq(1 To UBound(arr), 1 To 5)
For i = 1 To UBound(arr)
dk = arr(i, 1) & "#" & arr(i, 2)
If Not dic.exists(dk) Then
dic.Add dk, a
For j = 1 To 4
kq(a, j) = arr(i, j)
Next j
kq(a, 5) = "gio vao"
a = a + 2
Else
b = dic.Item(dk) + 1
For j = 1 To 4
kq(b, j) = arr(i, j)
Next j
kq(b, 5) = "gio ra"
End If
Next i
" & lr).Value ‘nạp vùng từ A3 đến cột D hàng cuối cùng có dữ liệu tại cột A (lr)
