42、VBA用户窗体列表框使用示例详解

VBA用户窗体列表框使用示例详解

1. 去除列表框中的重复项

在处理数据时，经常会遇到需要去除重复项的情况。下面的代码展示了如何使用VBA去除列表框中的重复项：

Sub RemoveDuplicates1()
    Dim AllCells As Range, Cell As Range 
    Dim NoDupes As Collection 
    Dim Item As Variant
    Set NoDupes = New Collection
    On Error Resume Next
    For Each Cell In Range("State").Cells 
        NoDupes.Add Cell.Value, CStr(Cell.Value) 
    Next Cell 
    On Error GoTo 0
    ' Add the non-duplicated items to a ListBox
    For Each Item In NoDupes 
        UserForm1.ListBox1.AddItem Item 
    Next Item 
    ' Display the count
    UserForm1.Label1.Caption = "Unique items: " & NoDupes.Count 
    ' Show the UserForm
    UserForm1.Show 
End Sub

代码逻辑如下：
- 首先，创建一个 Collection