【多条件查找】返回多列内容

于恒

如图如附件，

目的：
在同一个文件夹中，根据2022~2024年的分表，
汇总到汇总表中，

汇总表的学校、专业已经提前写好（顺序不一样），
现在要在汇总表中查询 2022~2024年的分数线、位次两列的内容，

求代码？是不是得用数组啊

shiruiqiang

要用字典，数组也行

gwjkkkkk

gwjkkkkk

请参考附件。。。

简七

数据结构变一下是不是好筛选点，把年份和类型拆出来单独一列

于恒

简七 发表于 2025-1-12 10:27
数据结构变一下是不是好筛选点，把年份和类型拆出来单独一列

有道理啊！！！！

飞天篮球猪

插件解法...适用大数据...仅供参考...

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2025.1.12
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Application.ScreenUpdating = False
   
5.     Set sh = ThisWorkbook.Sheets(1)
   
6.     p = ThisWorkbook.Path & ""
   
7.     Dim tm: tm = Timer
   
8.     On Error Resume Next
   
9.     For Each f In fso.GetFolder(p).Files
   
10.         If LCase$(f.Name) Like "*.xls*" Then
    
11.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
    
12.                 fn = fso.GetBaseName(f)
    
13.                 Set wb = Workbooks.Open(f, 0)
    
14.                 arr = wb.Sheets(1).UsedRange
    
15.                 wb.Close False
    
16.                 For i = 2 To UBound(arr)
    
17.                     For j = 3 To 4
    
18.                         s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(1, j)
    
19.                         d(s) = arr(i, j)
    
20.                     Next
    
21.                 Next
    
22.             End If
    
23.         End If
    
24.     Next f
    
25.     With sh
    
26.         .UsedRange.Offset(1, 2).ClearContents
    
27.         arr = .UsedRange
    
28.         For i = 2 To UBound(arr)
    
29.             For j = 3 To UBound(arr, 2)
    
30.                 s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(1, j)
    
31.                 If d.exists(s) Then
    
32.                     arr(i, j) = d(s)
    
33.                 End If
    
34.             Next
    
35.         Next
    
36.         .UsedRange = arr
    
37.     End With
    
38.     Set d = Nothing
    
39.     Application.ScreenUpdating = True
    
40.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
41. End Sub
    

复制代码

于恒

ykcbf1100 发表于 2025-1-12 15:07
参与一下。。。

太强大了，草爷，我研究一下这个字典的用法，。。。。