Sort dữ liệu theo Ý Muốn (1 người xem)

[NguyenthiH]

Chào các anh chị!
Em có dữ liệu Demo như trong file, mong các anh chị viết code sort dữ liệu như bảng vàng trong file.
Em cám ơn các anh chị.

 

[HieuCD]

Ah còn sai, anh Hiếu ơi.
Em xin đưa file, anh xem lại
Chổ Size S lại nằm trên.

Chỉnh lại code
If InStr(Key, Size(j)) Then Key = Replace(Key, Replace(Size(j), "Size", ""), Format(j, "0000")): Exit For

        If Key Like zSize Then
          For j = UBound(Size) To LBound(Size) Step -1
            If InStr(Key, Size(j)) Then Key = Replace(Key, Replace(Size(j), "Size", ""), Format(j, "0000")): Exit For
          Next j
        End If

 

[NguyenthiH]

Cám ơn anh Hiếu!
Đúng rồi ah.