萌新寻找大佬中

vba7879

大哥们 帮一下我吧，就2个要求  
  1.匹配后的数据的单元格可以自动调整大小
  2.我现在的b1是数据验证的，但是我想用字典放进去，但字典好像只能放到控件和窗体里吧 ，我要放到单元格里，不然下面匹配数据不好弄啊（有花花的，谢谢大家了）

vba7879

来个人吧

vba7879

liulang0808

自动大小？这个要怎样自动大小？单元格可以设置自适应的
第二 join(d.keys,",")之类的看看是否可行

vba7879

liulang0808 发表于 2020-3-17 22:16
自动大小？这个要怎样自动大小？单元格可以设置自适应的
第二 join(d.keys,",")之类的看看是否可行

嗯 自动大小 我知道怎么弄了cells.entirerow.autofit
您说的那个join（dic.keys)写在哪里呀

大灰狼1976

字典你已经写好了，只要把字典keys赋值给数据有效性序列就行。

1. Sub test() '字典去重
   
2. Dim arr, brr
   
3. Dim i%
   
4. Set dic = CreateObject("scripting.dictionary")
   
5. arr = Sheets("资料库").Range("a2:a" & Sheets("资料库").Cells(Rows.Count, 1).End(xlUp).Row)
   
6. 
   
7. For i = 1 To UBound(arr)
   
8.     dic(arr(i, 1)) = ""
   
9. Next
   
10. 
    
11. With Sheets("查询表").[b1].Validation
    
12.     .Delete
    
13.     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
14.               xlBetween, Formula1:=Join(dic.keys, ",")
    
15. End With
    
16. End Sub

复制代码

vba7879

我顶，我顶，我顶我再顶

vba7879

哦顶顶顶。。。。

vba7879

唉，可能是我没说清楚 ，就是我现在的数据验证是通常过引用单元格的 也就是必须要有引用的一列，我想能不能直接将字典里去重后的数据放进数据验证，不用先引用到单元格，

wodewan

数据有效性，对公式字符串有个255的限制（版本不同好像限制的字数也不同，记不清了），如果不用自定义名称引用，直接formula=“。。。”放进去超字数了，后面的数据会丢失；如果不想表中引用可以考虑用COMBOBOX，不受这个限制，就是丑了点。另外，把你那个赋值数组改循环了，单元格赋值语句放循环外面去了，每次循环都写一次数据，卡的很。看你自己的需求吧。附件供参考。