如何删除已经在list中的重复项

For i = 0 To ComboICName.ListCount - 1 For j = i + 1 To ComboICName.ListCount - 1 If ComboICName.List(i) = ComboICName.List(j) Then ComboICName.List(j) = "E&quot，但是这好像不行？而且我觉得这个方法很不好！.RemoveItem i End If Next ComboICName.Refresh 请各位大虾帮帮小弟~~感激不敬！;开头的项都删了，就给相同的项之前加上“E”如何删除list中的重复项，而且这些重复项并不是连续的，如何写这样的比较语句呢？ 我想了下面那种方法，先比较，如果发现相同;E" Then ComboICName，然后比较完后再读一遍，将所有以"E&quot，这是什么原因呢; & ComboICName.List(i) End If Next Next For i = 0 To ComboICName.ListCount - 1 If Left(Trim(ComboICName.List(i))) =&quot

Private Sub Command1_Click()
For i = 0 To Combo1.ListCount - 1
For j = i + 1 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.List(j) Then Combo1.RemoveItem (j)
Next j
Next i
Combo1.Refresh
End Sub

Private Sub Command1_Click() Dim chongfu As Boolean Do chongfu = False For i = 0 To Combo1.ListCount - 2 For j = i + 1 To Combo1.ListCount - 1 If Combo1.List(i) = Combo1.List(j) Then chongfu = True GoTo chuli End If Next j Next i chuli: Combo1.RemoveItem j Loop Until Not chongfu End Sub Private Sub Form_Load() Command1.Caption = "整理组合框项目" End Sub

private sub command1_click() dim i, j as long for i = 0 to list1.listcount - 1 doevents for j = 0 to list2.listcount - 1 if list1.list(i) = list2.list(j) then list1.removeitem (i) next j, i end sub 数据越多速度越慢， doevents是为了防止在运行的时候程序假死。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息