Tìm Hàm Lọc Duy Nhất (1 người xem)

[Hai Lúa Miền Tây]

Tui thì không biết ADO, với lọc và Sort Number cũng làm "thí thí" như vầy:

Về tốc độ thì có thể ADO không bằng, nhưng rất gọn.

Sub Loc_DuyNhat()
    Dim cn As Object
    Set cn = CreateObject("ADODB.Connection")
    cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"";")
    Range("D3").CopyFromRecordset cn.Execute("Select distinct val(F1) from [NhatKy$B6:B] Where IsNumeric(f1)")
  
End Sub

 

[befaint]

@befaint
Dùng ADO sẽ gọn hơn rất nhiều so với cách lọc và sort bình thường

Em ôn lại bài cũ ấy mà.

 

[Lê Duy Thương]

Về tốc độ thì có thể ADO không bằng, nhưng rất gọn.

Sub Loc_DuyNhat()
    Dim cn As Object
    Set cn = CreateObject("ADODB.Connection")
    cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"";")
    Range("D3").CopyFromRecordset cn.Execute("Select distinct val(F1) from [NhatKy$B6:B] Where IsNumeric(f1)")
 
End Sub

thêm cách này cũng gọn

Sub Loc_duy_nhat()

With Sheets("LOc")
.Range("A3").Resize(10000).Value = Sheets("NhatKy").Range("B5").Resize(10000).Value
.Range("A3").Resize(10000).RemoveDuplicates 1, xlNo
.Range("A3").Resize(10000).SortSpecial , [A3], 1, , , , , , xlNo
End With

End Sub