[Trợ giúp] liệt kê phần tử xuất hiện nhiều lần trong một mảng

nqsuonline · 24/11/14

Xin chào các bạn!
Mình có một mảng: bao gồm nhiều phẩn tử khác nhau, xuất hiện nhiều lần. Mong muốn của mình là liệt kê ra các phần tử này trên một cột ( và mỗi phần tử chỉ trả kết quả một lần, giống như Pivotable).
Xin được sự giúp đỡ của các bạn
Ví dụ bảng như sau:
[TABLE="width: 256"]
[TR]
[TD="class: xl387, width: 64"]308033[/TD]
[TD="class: xl387, width: 64"]0[/TD]
[TD="class: xl387, width: 64"]0[/TD]
[TD="class: xl387, width: 64"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308033[/TD]
[TD="class: xl387"]308048[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308033[/TD]
[TD="class: xl387"]308105[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308046[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308046[/TD]
[TD="class: xl387"]308056[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308046[/TD]
[TD="class: xl387"]308056[/TD]
[TD="class: xl387"]308025[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308046[/TD]
[TD="class: xl387"]308060[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308057[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308057[/TD]
[TD="class: xl387"]308042[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308097[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308065[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308077[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308077[/TD]
[TD="class: xl387"]308052[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308086[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308086[/TD]
[TD="class: xl387"]308088[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308090[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308095[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308104[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308110[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[/TABLE]

kết quả mình mong muốn là:
308033
308044
308053
308104
308110
308048
308105
308046
308057
308097
308065
308077
308086
308090
308095
308056
308060
308042
308052
308088
308025

Kiều Mạnh · 24/11/14

nqsuonline đã viết:
Xin chào các bạn!
Mình có một mảng: bao gồm nhiều phẩn tử khác nhau, xuất hiện nhiều lần. Mong muốn của mình là liệt kê ra các phần tử này trên một cột ( và mỗi phần tử chỉ trả kết quả một lần, giống như Pivotable).
Xin được sự giúp đỡ của các bạn
Ví dụ bảng như sau:
[TABLE="width: 256"]
[TR]
[TD="class: xl387, width: 64"]308033[/TD]
[TD="class: xl387, width: 64"]0[/TD]
[TD="class: xl387, width: 64"]0[/TD]
[TD="class: xl387, width: 64"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308033[/TD]
[TD="class: xl387"]308048[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308033[/TD]
[TD="class: xl387"]308105[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308046[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308046[/TD]
[TD="class: xl387"]308056[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308046[/TD]
[TD="class: xl387"]308056[/TD]
[TD="class: xl387"]308025[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308046[/TD]
[TD="class: xl387"]308060[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308057[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308057[/TD]
[TD="class: xl387"]308042[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308044[/TD]
[TD="class: xl387"]308097[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308065[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308077[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308077[/TD]
[TD="class: xl387"]308052[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308086[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308086[/TD]
[TD="class: xl387"]308088[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308090[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308053[/TD]
[TD="class: xl387"]308095[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308104[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[TR]
[TD="class: xl387"]308110[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[TD="class: xl387"]0[/TD]
[/TR]
[/TABLE]

kết quả mình mong muốn là:
308033
308044
308053
308104
308110
308048
308105
308046
308057
308097
308065
308077
308086
308090
308095
308056
308060
308042
308052
308088
308025

BÀI này nếu dùng code thì mình tập làm đại một cái Dic cho bạn xem có trúng gió ko vì ko có file nên đoán vậy thôi nha

PHP:

Sub LocDN()
Dim Nguon(), kq(1 To 1000, 1 To 3), i As Long, k As Long, J As Long
Nguon = Sheet1.Range("A3:C1000").Value
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(Nguon)
        For J = 1 To 3
            If Not .exists(Nguon(i, J)) Then
                k = k + 1
                .Add Nguon(i, J), ""
                kq(k, 1) = Nguon(i, J)
            End If
        Next
    Next
End With
[L3].Resize(i, 1) = kq
End Sub

Quang_Hải · 24/11/14

kieu manh đã viết:
BÀI này nếu dùng code thì mình tập làm đại một cái Dic cho bạn xem có trúng gió ko vì ko có file nên đoán vậy thôi nha

PHP:

Sub LocDN() Dim Nguon(), kq(1 To 1000, 1 To 3), i As Long, k As Long, J As Long Nguon = Sheet1.Range("A3:C1000").Value With CreateObject("scripting.dictionary") For i = 1 To UBound(Nguon) For J = 1 To 3 If Not .exists(Nguon(i, J)) Then k = k + 1 .Add Nguon(i, J), "" kq(k, 1) = Nguon(i, J) End If Next Next End With [L3].Resize(i, 1) = kq End Sub

Bài này nên dùng For ... Each thì chỉ 1 vòng lặp

[Trợ giúp] liệt kê phần tử xuất hiện nhiều lần trong một mảng

nqsuonline

Thành viên mới

Kiều Mạnh

I don't program, I beat code into submission!!!

Quang_Hải

Thành viên gạo cội

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian