Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,125
- Được thích
- 17,583
- Giới tính
- Nam
Bạn thử với Sub này xem:Em cảm ơn nhiều!. Trường hợp em muốn giữ nguyên trạng thái dữ liệu ở cột A trong sheet Dulieu thì phải thay đổi như thế nào?
PHP:
Option Explicit
Sub sGpe()
Dim Dic As Object, sArr(), dArr(), I As Long, R As Long, K As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Sheets("Dulieu").Range("A2", Sheets("Dulieu").Range("A1000000").End(xlUp)).Value2
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 2)
For I = 1 To R
If sArr(I, 1) <> Empty Then
If Not Dic.Exists(sArr(I, 1)) Then
K = K + 1
dArr(K, 1) = K
dArr(K, 2) = sArr(I, 1)
Dic.Item(sArr(I, 1)) = K
End If
End If
Next I
Sheets("Ket qua").Range("A2:B1000000").ClearContents
Sheets("Ket qua").Range("A2").Resize(K, 2) = dArr
Set Dic = Nothing
End Sub