Hỏi : lọc dữ liệu trùng trong 1 mảng dữ liệu và sắp xếp lại theo theo thứ tự trong 1 ô

[siv2]

Mình có 1 mảng dữ liệu sẽ có sự trùng lặp , mình muốn loại bỏ những giá trị bị lặp lại và sắp xếp theo thứ tự từ bé đên lớn trong 1 cell khác , thì phải dùng hàm ntn , ko nhất thiết phải làm 1 bước là xong , củ thể như file kèm theo . Mong các bạn giúp đỡ thank!!!!!!

 

[Phan Thế Hiệp]

Mình có 1 mảng dữ liệu sẽ có sự trùng lặp , mình muốn loại bỏ những giá trị bị lặp lại và sắp xếp theo thứ tự từ bé đên lớn trong 1 cell khác , thì phải dùng hàm ntn , ko nhất thiết phải làm 1 bước là xong , củ thể như file kèm theo . Mong các bạn giúp đỡ thank!!!!!!

Thử:

=JoinText(" ",IF(MATCH(SMALL(A2:B4,ROW($1:$6)),SMALL(A2:B4,ROW($1:$6)),)=ROW($1:$6),SMALL(A2:B4,ROW($1:$6)),1/0))

Kết thúc bằng Ctrl+Shift+Enter.

Thân

 

[snow25]

Mình có 1 mảng dữ liệu sẽ có sự trùng lặp , mình muốn loại bỏ những giá trị bị lặp lại và sắp xếp theo thứ tự từ bé đên lớn trong 1 cell khác , thì phải dùng hàm ntn , ko nhất thiết phải làm 1 bước là xong , củ thể như file kèm theo . Mong các bạn giúp đỡ thank!!!!!!

Thử cái này nhé bạn.

Function xapxep(ByVal mang As Range) As String
    Dim olit, arr(1 To 10000, 1 To 1), i As Long, a As Long, dk As String, t, s As String
    Set olit = CreateObject("System.Collections.SortedList")
        For Each t In mang
           dk = t.Value
           If Not olit.ContainsKey(dk) Then
              olit.Add dk, ""
           End If
        Next
        For i = 0 To olit.Count - 1
            s = s & " " & olit.getkey(i)
        Next i
        xapxep = Right(s, Len(s) - 1)
End Function

=xapxep(A2:B4)

 

[CHAOQUAY]

Mình có 1 mảng dữ liệu sẽ có sự trùng lặp , mình muốn loại bỏ những giá trị bị lặp lại và sắp xếp theo thứ tự từ bé đên lớn trong 1 cell khác , thì phải dùng hàm ntn , ko nhất thiết phải làm 1 bước là xong , củ thể như file kèm theo . Mong các bạn giúp đỡ thank!!!!!!

Góp đoạn code

Public Function Xep(Nguon As Range) As String
Dim Mang
Dim i, k
For Each i In Nguon
    If k < i Then k = i
Next i
ReDim Mang(k)
For Each i In Nguon
    Mang(i) = i
Next i
Xep = WorksheetFunction.Trim(Join(Mang))
End Function

 

[siv2]

Thank các bạn rất nhiều vi diệu quá !!!!!

Bài đã được tự động gộp: 21/7/19

Thử cái này nhé bạn.

Function xapxep(ByVal mang As Range) As String
    Dim olit, arr(1 To 10000, 1 To 1), i As Long, a As Long, dk As String, t, s As String
    Set olit = CreateObject("System.Collections.SortedList")
        For Each t In mang
           dk = t.Value
           If Not olit.ContainsKey(dk) Then
              olit.Add dk, ""
           End If
        Next
        For i = 0 To olit.Count - 1
            s = s & " " & olit.getkey(i)
        Next i
        xapxep = Right(s, Len(s) - 1)
End Function

=xapxep(A2:B4)

Thank bạn nhé dc luôn nhanh gọn nhe !!!!!!