VBA-创建一个复选框，其中的选项是根据执行的删除重复项动态设置的

Private Sub CheckBox1_Click()
    Dim rng As Range
    Dim cell As Range
    Dim uniqueValues As Collection
    
    ' 获取当前工作表的数据范围
    Set rng = ActiveSheet.UsedRange
    
    ' 创建一个集合对象来存储唯一值
    Set uniqueValues = New Collection
    
    ' 遍历数据范围，将唯一值添加到集合中
    On Error Resume Next
    For Each cell In rng
        uniqueValues.Add cell.Value, CStr(cell.Value)
    Next cell
    On Error GoTo 0
    
    ' 清除之前的选项
    For i = 1 To Me.Controls.Count
        If TypeName(Me.Controls(i)) = "CheckBox" Then
            Me.Controls(i).Delete
        End If
    Next i
    
    ' 根据唯一值创建新的选项
    For i = 1 To uniqueValues.Count
        Set chkBox = Me.Controls.Add("Forms.CheckBox.1")
        chkBox.Caption = uniqueValues(i)
        chkBox.Left = 10
        chkBox.Top = 10 + (i - 1) * 20
    Next i
End Sub