7,762
社区成员
发帖
与我相关
我的任务
分享
Private a, b, c As Variant
Private Sub Command1_Click()
Dim i, j As Integer
With List1
For i = 0 To .ListCount - 1
For j = .ListCount - 1 To i + 1 Step -1
If .List(j) = .List(i) Then
a = i & "," & a
.RemoveItem j
End If
Next j
Next i
Debug.Print a
a = Split(a, ",")
For i = 1 To UBound(a)
For j = i + 1 To UBound(a)
If a(i) = a(j) Then
a(j) = ""
End If
Next j
Next i
c = Replace(Join(a, ""), "", ""): ReDim b(Len(c) - 1)
For i = 1 To Len(c)
.RemoveItem CInt(Mid(c, i, 1))
Next
End With
End Sub
Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "2"
List1.AddItem "a"
List1.AddItem "2"
List1.AddItem "c"
List1.AddItem "2"
List1.AddItem "b"
List1.AddItem "c"
List1.AddItem "d"
List1.AddItem "w"
List1.AddItem "a"
List1.AddItem "fgh"
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim blnD() As Boolean
ReDim blnD(List1.ListCount - 1)
With List1
For i = 0 To .ListCount - 1
For j = i + 1 To .ListCount - 1
If .List(j) = .List(i) Then
blnD(j) = True
blnD(i) = True
End If
Next j
Next i
For i = .ListCount - 1 To 0 Step -1
If blnD(i) Then
.RemoveItem i
End If
Next i
End With
End Sub
Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "2"
List1.AddItem "4"
List1.AddItem "3"
List1.AddItem "5"
List1.AddItem "2"
End Sub