Excel VBA：格式控制下拉列表填充单元格中的唯一值

Private Sub Worksheet_Activate()

Dim levelDrop As Shape
Set levelDrop = Worksheets("Sheet1").Shapes("Drop Drown 7").ControlFormat

If levelDrop.ListIndex = 1 Then

Worksheets("Sheet1").Range("B31:B") = Worksheets("Control_Sheet").Range("I3:I213").RemoveDuplicates

End If

End Sub
Private Sub Worksheet_Activate()

Dim levelDrop