Excel VBA 实例(15) – 按指定字段一键筛选并取最低价记录 - 永恒君的百宝箱

Excel VBA 实例(15) – 按指定字段一键筛选并取最低价记录

实用技巧 永恒君 191℃ 0评论

这两天帮后台伙伴解决了一个excel的问题,感觉普遍性比较大,和各位分享一下。

问题需求

这位伙伴应该是在公司里干采购的,经常要在excel表里记录非常多的采购信息,包括采购产品、型号、时间、价格等等,如下图:

她的需求:1、输入产品的采购编码,一点击按钮,采购的记录就全部筛选出来;2、筛选出来的记录中,再选出价格最小的记录。

这个需求,其实直接通过“数据”-“筛选”-选中需要的编码即可。

但是数据量大、经常要操作的的时候,如果每个产品采购编码都要去这样操作一遍,然后再筛选,复制,粘贴,确实很占用时间。

所以才会考虑用VBA来解决这个问题。

需求分析

假设存放数据记录的表格称sheet1,筛选出来的记录放在sheet2,思路其实也简单:1、在sheet1中每一行都检查一遍,符合条件的编码就把这条记录复制到sheet2中;2、sheet1全部检查完之后,开始在sheet2中检查价格一栏,选出最小价格,将改行的记录再筛选出来即可。

说起来简单,需要攒代码的时候,就要格外的细心和仔细。

这里把其中主要涉及到的问题细节详细说一下:

1、如何检查每一行?

这个简单,标记好开头和结束位置,然后设置循环。例如,有多少行就循环几次。

a = Sheet1.[A65536].End(xlUp).Row '结束行 First = 2 '开始行 Last = a  For i = Last To First Step -1  '设置每一行检查一次 ...... Next 

2、如何判断编码是否相同,然后复制?

If Sheet1.Cells(i, 1) = Sheet2.Cells(112Then '判断Sheet1的编码是否和sheet2中需要找的一样    Sheet1.Range(Sheet1.Cells(i, 1), Sheet1.Cells(i, 9)).Copy Sheet2.Cells(count, 1)
   '如果一样,则整条记录复制过去    count = count + 1 
   'sheet1中每找到一条记录,就在Sheet2里添加一条 End If 

3、如何选出价格一栏中最小价格?

IF... Set rng = Range(Sheet2.Cells(First1, 7), Sheet2.Cells(Last1, 7)) '选定价格区域 min = rng.Find(Application.min(rng))'价格最小值 min_row = rng.Find(Application.min(rng)).Row'价格最小值所在行 

主要是上面三个问题,组合起来用即可。

演示一下:

怎么样,是否感觉非常快捷省事?

完整代码有点多了,就不贴了。有需要的话微信公号后台回复“实例15”即可

不少人对VBA代码有抵触心理,其实没有那么复杂,把他看成一个稍微复杂点的函数即可。

当然如果并不打算深入学习VBA,只是临时使用下,那只要会复制黏贴就好了!

至于怎么用VBA代码,可以参考之前的文章:

Excel vba 实例(1) – 批量制作工资表头

Excel vba 实例(2) – 批量将工作表拆分为单独文件

Excel vba 实例(3) – 多个工作簿批量合并

Excel vba 实例(4) – 根据已有名称,批量新建表格

Excel vba 实例(5) – 快速合并n多个相同值的单元格

Excel vba 实例(6) – 一键汇总多个sheet数据到总表

Excel vba 实例(7)-一键批量打印工作簿

Excel vba 实例(8)- 利用正则表达式进行定向提取

Excel vba 实例(9)- 批量插入、删除表格中的空行

Excel vba 实例(10)- 统计同一列中出现次数并标注

Excel vba 实例(11)- 拆分单元格并自动填充

Excel vba实例(12)-如何合并多个单元格而不丢失单元格的数据?

Excel vba实例(13) – 自动生成序号、一键排版(列宽、行高自适应等)

Excel VBA 实例(14) – 依据指定单元格的值,复制并插入相同数量的行

欢迎交流!

微信公众号:永恒君的百宝箱

个人博客:www.yhjbox.com

anyShare分享到:

转载请注明:永恒君的百宝箱 » Excel VBA 实例(15) – 按指定字段一键筛选并取最低价记录

喜欢 (1)
发表我的评论
取消评论
表情