수다닷컴

Option Explicit

Dim a, b As IntegerPrivate Sub Command1_Click()a = Split(Text1, [)
For b = 1 To UBound(a)

Dim i

If List1.ListCount = 0 Then
List1.AddItem Split(a(b), ])(0)
Exit Sub
End If
For i = 0 To List1.ListCount - 1
If List1.List(i) = Split(a(b), ])(0) Then

Exit For
End If

Next i
List1.AddItem Split(a(b), ])(0)Next b

End Sub

text1
에다가

[a]
[b]
[c]
[d]
[e]
[f]
[a]
[g]
[b]
[h]
[d]
[g]

이렇게 하면, 중복된게 있잖아요

두개중복되든, 세개 중복되든, 쨋든 중복이되면 하나만 리스트에 추가하게 하고싶거든요

a
b
c
d
e
f
g
h

이렇게만나오게;;; 근데 ㅜㅜ 어떻게해야될지 모르겠네요;

신청하기