如何创建根据条件创建各种验证列表的宏VBA

Sub CreateConditionalValidationList()
    Dim ws As Worksheet
    Dim rng As Range
    Dim validationList As String
    Dim conditionRange As Range
    
    ' 设置工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:A10")
    Set conditionRange = ws.Range("B1:B10")
    
    ' 清除现有的数据验证
    rng.Validation.Delete
    
    ' 创建条件列表
    For Each cell In rng
        ' 根据条件设置验证列表
        Select Case cell.Value
            Case "条件1"
                validationList = "选项1,选项2,选项3"
            Case "条件2"
                validationList = "选项4,选项5,选项6"
            Case "条件3"
                validationList = "选项7,选项8,选项9"
            Case Else
                validationList = ""
        End Select
        
        ' 添加数据验证
        If validationList <> "" Then
            With cell.Validation
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=validationList
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
            End With
        End If
    Next cell
End Sub