下拉菜单数据动态更新、去重、去0、重复值等

radarzhong

一、B列值不重复，且自动不提取0值或空行值
二、A列不论输入汉字、0、非0数字，在C列下拉菜单能正确提取，且随A列值的变化自动更新、删除空值、0值。
三、能否通过完善数组等公示和数据有效性完成，实在不行请用宏，谢谢。

请解答，谢谢！！！

苏小亓

请解答.zip (7.87 KB, 下载次数: 12)

2022-11-10 11:21 上传

点击文件名下载附件

良良

B2=IFERROR(INDEX(A$2:$A$97,MATCH(1,(COUNTIFS(B$1:B1,A$2:$A$97)=0)*(A$2:$A$97<>0),)),"")，数组三键，下拉。
C2数据有效性设置序列来源：
=OFFSET(B2,,,ROWS(1:65536)-COUNTBLANK(B:B)-1)

radarzhong

苏小亓 发表于 2022-11-10 11:21

先感谢，我测试下

radarzhong

良良 发表于 2022-11-10 11:57
B2=IFERROR(INDEX(A$2:$A$97,MATCH(1,(COUNTIFS(B$1:B1,A$2:$A$97)=0)*(A$2:$A$970),)),"")，数组三键，下 ...

先感谢，我测试下

radarzhong

radarzhong 发表于 2022-11-10 16:12
先感谢，我测试下

再请问下，不用B列的辅助列，直接通过下拉菜单满足需求怎么弄？

radarzhong

良良 发表于 2022-11-10 11:57
B2=IFERROR(INDEX(A$2:$A$97,MATCH(1,(COUNTIFS(B$1:B1,A$2:$A$97)=0)*(A$2:$A$970),)),"")，数组三键，下 ...

再请问下，不用B列的辅助列，直接通过下拉菜单满足需求怎么弄？

radarzhong

苏小亓 发表于 2022-11-10 11:21

再请问下，不用B列的辅助列，直接通过下拉菜单满足需求怎么弄？

苏小亓

radarzhong 发表于 2022-11-10 16:29
再请问下，不用B列的辅助列，直接通过下拉菜单满足需求怎么弄？

那就要用宏了吧。

niko88819

radarzhong 发表于 2022-11-10 16:29
再请问下，不用B列的辅助列，直接通过下拉菜单满足需求怎么弄？

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Intersect([c2], Target) Is Nothing Then Exit Sub
   
3.     If Target.Rows.Count > 1 Then Exit Sub
   
4.     Dim arr, brr, i&, j&, k&, s
   
5.     Dim d As Object
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     arr = Range("a2:a" & Range("a15").End(xlUp).Row)
   
8.     If Not IsArray(arr) Then Exit Sub
   
9.     For i = 1 To UBound(arr)
   
10.         If arr(i, 1) <> "" And arr(i, 1) <> 0 Then d(arr(i, 1)) = ""
    
11.     Next
    
12.     s = Join(d.keys, ",")
    
13.     With Target.Validation
    
14.         .Delete
    
15.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=s
    
16.     End With
    
17.     Set d = Nothing
    
18. End Sub

复制代码