Sort dữ liệu từ A đến Z - Delete dữ liệu trùng (1 người xem)

[sep_hatxel]

Dữ liệu ở sheet1: Mình không biết viết làm thế nào để Sort dữ liệu sang sheet2 sắp xếp từ bé đến lớn, nhưng những dữ liệu trùng thì sẽ bị bỏ bớt đi chỉ giữ lại 1 dữ liệu. Ví dụ: ở cột 2 có 2 dữ liệu trùng là 75 thì sau khi sort dữ liệu từ bé đếnlớn thì chỉ giữ lại 1 dữ liệu là 75, cột 3 có 4 dữ liệu trùng là 90 thì sau khi sort chỉ giữ lại 1 giá trị 90,..v.v. Mong các bạn xem giúp qua! Xin cảm ơn!

 

[nmhung49]

Dữ liệu ở sheet1: Mình không biết viết làm thế nào để Sort dữ liệu sang sheet2 sắp xếp từ bé đến lớn, nhưng những dữ liệu trùng thì sẽ bị bỏ bớt đi chỉ giữ lại 1 dữ liệu. Ví dụ: ở cột 2 có 2 dữ liệu trùng là 75 thì sau khi sort dữ liệu từ bé đếnlớn thì chỉ giữ lại 1 dữ liệu là 75, cột 3 có 4 dữ liệu trùng là 90 thì sau khi sort chỉ giữ lại 1 giá trị 90,..v.v. Mong các bạn xem giúp qua! Xin cảm ơn!

Mình dùng chức năng sẵn có của excel đi hen, nếu dùng mảng thì tốc độc sẽ nhanh hơn

Sub filter()
Dim i As Long
For i = 1 To Range("b3:af3").Columns.Count
With Sheets("sheet1").Range("b3:Af14").Columns(i)
    .AdvancedFilter 2, , Cells(3, i + 1), True
    With Range("b4:Af14").Columns(i)
    .Sort Cells(4, i + 1), 1
    End With
End With
Next
End Sub

Bạn tủy biến end(xlup), (xldown) theo yêu cầu của bạn hen

 

[sep_hatxel]

Mình dùng chức năng sẵn có của excel đi hen, nếu dùng mảng thì tốc độc sẽ nhanh hơn

Sub filter()
Dim i As Long
For i = 1 To Range("b3:af3").Columns.Count
With Sheets("sheet1").Range("b3:Af14").Columns(i)
.AdvancedFilter 2, , Cells(3, i + 1), True
With Range("b4:Af14").Columns(i)
.Sort Cells(4, i + 1), 1
End With
End With
Next
End Sub

Bạn tủy biến end(xlup), (xldown) theo yêu cầu của bạn hen

Vâng! Cảm ơn bạn rất nhiều! Mình đã làm được rồi ạ! Chúc bạn thành công!