求助。。如何用代码实现跨表引用重复数据只显示一次

Benfyhu

求助各位老师：如何用代码实现跨表引用重复数据只显示一次（不能用公式，也不要辅助列）？（引用本身的表已经是实现）。如图

niko88819

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Intersect([f13], 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 = Sheet2.Range("D10:D" & Sheet2.Range("D65536").End(xlUp).Row)
   
8.     If Not IsArray(arr) Then Exit Sub
   
9.     For i = 1 To UBound(arr)
   
10.         If arr(i, 1) <> "" 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

复制代码

Benfyhu

niko88819 发表于 2022-11-13 08:17

非常感谢您的帮助

niko88819

Benfyhu 发表于 2022-11-14 09:17
非常感谢您的帮助

问题得到满意解答在你发贴首页(或是1楼) 先编辑后保存  把标题的 "求助" 改为 "已解决"
请参考这连接怎么做
https://club.excelhome.net/thread-1643934-1-1.html