excel - 从列表框中删除重复项

Question

我正在尝试在列表框中显示项目，这些项目在我的工作表中重复，但是当我想显示列表框时，我想显示独特的项目，我尝试使用集合，但它没有帮助我。
我填充列表框的代码是:

            Set ws = ActiveWorkbook.Worksheets(Personne)
            ActiveWorkbook.Worksheets(Personne).Activate

            fin_col_Form_Init = ws.Cells(6, 256).End(xlToLeft).Column
            UF_Profil_Edit1.ListBox_Form_Init.ColumnCount = 4
            UF_Profil_Edit1.ListBox_Form_Init.ColumnWidths = "300;100;100;100"

            For i = 2 To fin_col_Form_Init
                UF_Profil_Edit1.ListBox_Form_Init.AddItem ws.Cells(6, i)
                UF_Profil_Edit1.ListBox_Form_Init.List(UF_Profil_Edit1.ListBox_Form_Init.ListCount - 1, 1) = ws.Cells(7, i)
                UF_Profil_Edit1.ListBox_Form_Init.List(UF_Profil_Edit1.ListBox_Form_Init.ListCount - 1, 2) = ws.Cells(8, i)
                UF_Profil_Edit1.ListBox_Form_Init.List(UF_Profil_Edit1.ListBox_Form_Init.ListCount - 1, 3) = ws.Cells(9, i)
            Next i
        end if 
    Sample
end sub 

子在哪里:

Sub Sample()
    RemovelstDuplicates ctrlListNames
End Sub

RemovelstDuplicates 是:

 Public Sub RemovelstDuplicates(lst As msforms.ListBox)
    Dim i As Long, j As Long
    With lst
        For i = 0 To .ListCount - 1
            For j = .ListCount - 1 To (i + 1) Step -1
                If .List(j) = .List(i) Then
                    .RemoveItem j
                End If
            Next
        Next
    End With
End Sub

我在示例代码中遇到错误

Answer 1

我编辑了代码(更改了我的列表框的名称):

Sub Sample()
    RemovelstDuplicates ctrlListNames
End Sub

至

Sub Sample()
    RemovelstDuplicates UF_Profil_Edit1.ListBox_Form_Init
End Sub

及其工作
谢谢大家