sql server一对多怎么查询_Excel | VBA(6)——一对多查询，几行代码代替复杂公式

一起来学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当然，如果数据较多，也可使用定义数组的方法。如下图(横屏幕查看，效果更好)：

结果如下：

----------------------------

如有帮助，请点亮“在看”哦