Lọc bỏ giá trị trùng và sắp xếp tăng dần<=> với tất cả các cột (2 người xem)

[Catbao152]

Dear các bác,
Nhờ các Pro giúp em món này với ạ.
Em có 1 bảng tính (như file đính kèm ).
Giờ muốn sắp xếp lại 100 cột đo theo thứ tự từ nhỏ đến lớn và bỏ các giá trị lặp (mỗi giá trị chỉ lấy 1 lần )

> Em định dùng soft rồi if để bỏ giá trị lặp, nhưng vẫn quá thủ công. với Cái hàm soft em sử dụng được do nó chỉ lọc cho 1(hoặc vài) cột tiêu chuẩn

==> Xin cả nhà giúp em với, phải ngồi pivot 100 cột chắc em chết (((((

 

[ChanhTQ@]

Bạn có thể nhờ macro này làm việc cho bạn:

Sub GPE()
 Dim J As Byte, Rws As Long
 
 Rws = [B2].CurrentRegion.Rows.Count
 Application.ScreenUpdating = False
 For J = 1 To 100
    Cells(1, J).Resize(Rws).Copy Destination:=[cx1]
    [cz1].Value = [cx1].Value
    Range("CX1").Resize(Rws).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "CZ1"), Unique:=True
    With [cz1]
        .Sort Key1:=Range("CZ2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
        .Resize(Rws).Copy Destination:=.Offset(, 5 + J)
    End With
 Next J
 Application.ScreenUpdating = True
End Sub

 

[Catbao152]

Em cảm ơn .."tiền bối" nhiều nhiều ạ!