这两天帮后台伙伴解决了一个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(1, 12) Then '判断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 实例（2） - 批量将工作表拆分为单独文件
Excel vba 实例（4） - 根据已有名称，批量新建表格
Excel vba 实例（5） - 快速合并n多个相同值的单元格
Excel vba 实例（6） - 一键汇总多个sheet数据到总表
Excel vba 实例（8）- 利用正则表达式进行定向提取
Excel vba 实例（9）- 批量插入、删除表格中的空行
Excel vba 实例（10）- 统计同一列中出现次数并标注
Excel vba实例（12）-如何合并多个单元格而不丢失单元格的数据？
Excel vba实例（13） - 自动生成序号、一键排版（列宽、行高自适应等）
Excel VBA 实例（14） - 依据指定单元格的值，复制并插入相同数量的行
欢迎交流！
微信公众号：永恒君的百宝箱
个人博客：www.yhjbox.com
