Excel VBA:使用下拉列表显示表格数据

Sub CreateDropdown()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置工作表和工作区域
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A10") ' 假设数据范围是A1到A10
    
    ' 清除之前的数据验证
    rng.Validation.Delete
    
    ' 添加新的数据验证，创建下拉列表
    With rng.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="Option1,Option2,Option3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = "请从下拉列表中选择一个选项。"
    End With
End Sub