Mình dùng hàm tự tạo đi hen
Sub LocDuyNhat_Bang()
On Error Resume Next
Range([l9], [l65000]).ClearContents
Set Dic = CreateObject("Scripting.Dictionary")
For Each cls In Range([d5], [i50]).SpecialCells(2)
If Not IsEmpty(cls) Then
Dic.Add cls.Value, ""
End If
Next
[l9].Resize(Dic.Count) = Application.Transpose(Dic.keys)
[l9].Resize(Dic.Count).Sort [l9], 1
End Sub
Chào anh!
Public Function UniqueList(ByVal rng As Range, Id As Long)
Dim sArr, Arr(), item, dic, i
If rng.Count = 1 Then UniqueList = rng.Value: Exit Function
Set dic = CreateObject("Scripting.Dictionary")
sArr = rng.Value
For Each item In sArr
If Not IsEmpty(item) And Not dic.exists(item) Then
i = i + 1
If i = Id Then
UniqueList = item
Exit Function
Else
dic.Add item, ""
End If: End If
Next item
UniqueList = ""
End Function
Nếu dùng cột phụ song song với cột kết quả có được không? (Tức là cột phụ có số ròng tương đương cột chính)
Hoàn toàn được bác ạ, nhờ bác hướng dẫn.
Bạn xem thử file này.
Mình mở file lên thấy chỉ có chữ "A" không mà bạn. Mình theo yêu cầu của bạn Hoangminhtien thì bài 2 đã có đáp áp rồi thì phải dùng cột phụ sao đó dùng công thứ lộc duy nhất ra là được. Nếu không dùng cột phụ thì làm sao để được kết quả theo yêu cầu của bạn Tiến??? Cái đó mới rắc rối
Sao Ex 2003 của mình vẫn bình thường mà!
Đây là cách sắp xếp duy nhất từ bảng không dùng cột phụ.
Mình không biết máy mình có bị gì không nhưng mở lên vẫn vậy toàn chữ "A" không hà lạ thiệt đó
Win XP và Office 2007 của mình đều là công ty mua bản quyền và update thường xuyên, chắc không có gì đặc biệt.
Vụ này gặp hoài, cũng chẳng biết tại sao nhưng chắc chắn rằng trường hợp này thường xãy ra đối với những công thức quá phức tạp
Anh xem lại file này, Công thức đâu có quá phức tạp đâu.
