将VBA代码应用于多列-允许从数据验证列表中选择多个选项

Sub AddMultiSelectDataValidation()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 定义部门和职位列表
    Dim departments() As Variant
    departments = Array("销售部", "技术部", "市场部", "财务部")
    
    Dim positions() As Variant
    positions = Array("经理", "主管", "员工", "实习生")
    
    ' 添加部门数据验证
    With ws.Range("A2:A10").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, Formula1 Join(departments, ",")
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
    
    ' 添加职位数据验证
    With ws.Range("B2:B10").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, Formula1:=Join(positions, ",")
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
End Sub