一对多查询它最牛

一对多查询它最牛

大家新年快乐，祝大家在狗年，旺旺旺……，心想事成，身体健康，全家幸福。今天和大家分享“一对多查询它最牛”，如果数据上万行了，用一对多查询的数组公式会卡表，为了解决这个问题，建议大家用vba编程代码实现，也就是下面的方法2，用它才66666

一、数组公式实现一对多查询，数据多了会卡表

1、公式截图

2、公式

=INDEX(B:B,SMALL(IF($A$2:A8=$E$2,ROW($A$2:A8),2^20),ROW(A1)))&""

3、公式解释

首先判断区域A2:A8是否有等于曹丽的，如果有就显示本身的行号，没有就没显示最大的行号1048576，2^20=1048576

用small函数下拉第1小，第2小，第3小……

最后用index函数把B列的数量引用过去

为什么最后还要&"",目的是为了屏蔽0

二、vba编程实现

1、动画效果

2、代码

Option Explicit

Sub 一对多查询()

Dim arr1, x&, St$, arr2(1 To 100000, 1 To 1), k&

'arr2定义为足够大的空间

St = [E2]

[F2:F1000].ClearContents '清空原有的数据

arr1 = Range("A1").CurrentRegion '把数据区域写入数组

For x = 2 To UBound(arr1) '循环数组arr1的行

If arr1(x, 1) = St Then '如果有等于st那么就计数，装入数组arr2中

k = k + 1

arr2(k, 1) = arr1(x, 2)

End If

Next x

If k = 0 Then Exit Sub '如果一个也找不到，就退出

[F2].Resize(k, 1) = arr2

End Sub

3、复制上面的代码→快捷键Alt+F11→插入菜单→模块→粘贴代码→把光标定位到任意一行代码→快捷键F5

关注方法：用手指长按下面的二维码图4秒→识别图中的二维码→关注

三、近10期文章：大家可以用手指点击就可以查找看了，如果觉得不错，记得分享到你的朋友圈

8、Vlookup实现多表查找

290集函数案例视频售价100元

包含函数数组、嵌套、加权、降维等讲解

525集Excel 视频售价100元

包括基础技巧、函数、透视表，VBA。

在线网络开设的班级，常年招生