1
我想從另一個工作表中添加重複名稱的列表。在列表框中,我想要具有唯一的名稱,而不是重複的名稱。下面的代碼沒有對它們進行重複排序,它出錯了。任何幫助表示讚賞。VBA刪除列表框重複
Dim intCount As Integer
Dim rngData As Range
Dim strID As String
Dim rngCell As Range
dim ctrlListNames as MSForms.ListBox
Set rngData = Application.ThisWorkbook.Worksheets("Names").Range("A").CurrentRegion
'declare header of strID and sort it
strID = "Salesperson"
rngData.Sort key1:=strID, Header:=xlYes
'Loop to add the salesperson name and to make sure no duplicates are added
For Each rngCell In rngData.Columns(2).Cells
If rngCell.Value <> strID Then
ctrlListNames.AddItem rngCell.Value
strID = rngCell.Value
End If
Next rngCell
我做了Way 1,僅僅是因爲我想爲其他語句使用該數據。它說「無效的屬性數組索引」 – Rosario
我添加了兩個更改。請現在試試。 –