一起来学office，提高办公技能
问题情境
Excel069 | VLOOKUP一对多查找：不连续相同内容对应的多个数据一次提取
Excel145 | INDEX+SMALL，一对多查找的又一犀利组合
以上两篇文章，朋友们熟悉吗？
经常读我公众文章的朋友一看就知道，那是两篇关于一对多查找 的文章。
两种方式，不管是VLOOKUP还是 INDEX+SMALL，都用到了构建新的数组，一是公式写起来比较麻烦，二是如果数据量过大，运行速度较慢。
今天，韩老师给几行代码，可以轻松解决以上问题。
VBA实现
代码如下（横屏幕查看，效果更好）：
Sub xf()
Dim i%, k%, irow% "定义整形变量
irow = Range("a1").CurrentRegion.Rows.Count "irow为当前数据表数据行数
k = 4 "因为查询数据从F4单元格开始显示，所以K赋初值4
Range("f4", "i" & irow).Clear "清除显示区域数值，以备显示下一次查询结果
For i = 2 To irow
If Range("b" & i).Value = Range("g1").Value Then
Range("f" & k) = k - 3
Range("g" & k).Value = Range("b" & i).Value
Range("h" & k).Value = Range("c" & i).Value
Range("i" & k).Value = Range("d" & i).Value
k = k + 1
End If
Next
End Sub
当然，如果数据较多，也可使用定义数组的方法。
如下图（横屏幕查看，效果更好）：
结果如下：
----------------------------
如有帮助，请点亮“在看”哦
