VBA创建工作表的数据有效性

在 VBA 中，您可以使用以下代码创建工作表的数据有效性：

Sub AddDataValidation()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换Sheet1为您要添加数据有效性的工作表名称

    Dim rng As Range
    Set rng = ws.Range("A1:A10") '替换A1:A10为您要添加数据有效性的单元格范围

    With rng.Validation
        .Delete '删除现有的数据有效性
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="Option1,Option2,Option3" '替换Formula1为您的选项列表，用逗号分隔
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = "请选择有效的选项"
        .ShowError = True
    End With
End Sub

这将在工作表的指定单元格范围内创建一个数据有效性，其中选项列表由 Formula1 参数指定。您可以将选项列表替换为您需要的内容。