用微信扫码二维码

分享至好友和朋友圈

Excel|不用公式的跨表查询：查询指定顾客的购买记录如下图所示，左侧是购买记录表，右侧需要查询指定顾客的购买记录：

这是典型的一对多查找。

韩老师曾经在Excel|不用公式的跨表查询：查询指定顾客的购买记录一文中介绍了高级筛选的方法，但是这种方法不方便随着选定顾客改名而自动查询，需要每次都要运行高级筛选。

也曾经在Excel|跨表查询：查询指定顾客的购买记录一文中介绍了公式法，但运用数组的方法，一旦数据量大，查找速度就会降低。

今天给大家介绍一种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

如图：

实现的效果：

在G1单元格通过下拉菜单选择顾客姓名，点击旁边的“查询”按钮，即可实现自动查询多次购买记录。

特别声明：以上内容(如有图片或视频亦包括在内)为自媒体平台“网易号”用户上传并发布，本平台仅提供信息存储服务。

Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.