用于数据验证的Excel VBA代码，可在一个单元格中进行多项选择-用于多列

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Dim selectedValues As String
    
    ' 定义数据验证范围
    Set rng = Range("A1:A10")
    
    ' 检查是否在数据验证范围内发生了变化
    If Not Intersect(Target, rng) Is Nothing Then
        ' 清除目标单元格的数据验证
        Target.Validation.Delete
        
        ' 遍历数据验证范围内的每个单元格
        For Each cell In rng
            ' 检查单元格是否被选中
            If cell.Value <> "" Then
                ' 将选中的值添加到字符串中
                selectedValues = selectedValues & cell.Value & ","
            End If
        Next cell
        
        ' 去除字符串末尾的逗号
        selectedValues = Left(selectedValues, Len(selectedValues) - 1)
        
        ' 设置目标单元格的数据验证为选中的值
        With Target.Validation
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=selectedValues
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
End Sub