khuongvietphong
Be all you can be !
- Tham gia
- 6/7/14
- Bài viết
- 2,069
- Được thích
- 1,444
- Nghề nghiệp
- Ăn không ngồi rồi ^.^
Nó lặp liên tục và lỗi excel luôn
bạn xem code lại giúp nhé
thanks
Sorry bạn, bạn sửa lại thành vầy nhé:
Mã:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, dic As Object
Set dic = CreateObject("Scripting.Dictionary")
If Not Intersect(Target, [B5:B3000]) Is Nothing Then
[AB5:AB3000].ClearContents
For i = 5 To 3000
If Cells(i, 2) <> "" Then
If Not dic.exists(Cells(i, 2).Value) Then
dic.Add Cells(i, 2).Value, ""
End If
End If
Next i
On Error Resume Next
[AB5].Resize(dic.Count) = WorksheetFunction.Transpose(dic.keys)
End If
End Sub