下拉框有效互斥性

sd2846999

我A1选择了1，A2就不能选择1，请教一下怎么能办到。

活在理想的世界

不是不能选1，而是没有1

zhenghui13

不知道你想要的具体效果，猜测你想表达上面选中过了在当前单元格不可见。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim D As Object
   
3. Dim i
   
4. Dim m
   
5. Set D = CreateObject("Scripting.Dictionary")
   
6. For i = 1 To 5
   
7.     D(i) = ""
   
8. Next i
   
9. For m = 1 To Cells(65536, 1).End(xlUp).Row
   
10.     If D.exists(Cells(m, 1).Value) Then D.Remove Cells(m, 1).Value
    
11. Next m
    
12. If D.Count < 1 Then Exit Sub
    
13. With Target.Validation
    
14.     .Delete
    
15.     .Add 3, 1, 1, Join(D.keys, ",")
    
16. End With
    
17. End Sub

复制代码

zhenghui13

附件供仅参。。。

sd2846999

zhenghui13 发表于 2018-7-13 16:37
附件供仅参。。。

感谢大神，666