excel通过VBA进行多条件统计

 时间:2024-09-27 17:32:45

通过函数数组可以进行多条件查找,但是容易出错,而且很慢。下面分享一条通过VBA实现多条件查找的经验给大家

工具/原料

EXCEL软件

方法/步骤

1、以商场2015年第一季度电器销售统计为例子,“产品”、“品牌”、“月份”3个条件的销售额进行查询。

excel通过VBA进行多条件统计

2、假设要统计“康佳鹁鼍漉糍”的“1月”份“各类家电”的销售额,先建一个对应列的工作簿。如图,输入条件1:“成品名称”,条件2:“品牌名称”,条件3:“月份”

excel通过VBA进行多条件统计

3、下面到了建立宏的步骤:单击菜单栏中的“开发工具”——插入——表单控件——按钮,在出现的十字箭头上拖住画出一个按钮,如图所示。

excel通过VBA进行多条件统计

4、在弹出的查找红对话框中选择“录制”,在弹出的“录制新宏”对话框中,修改宏名称为“查找”,单击确定。

excel通过VBA进行多条件统计

5、单击“开发工具”——查看代码,打开VBA编辑器,如图所示。

excel通过VBA进行多条件统计

6、在VBA编辑器点击插入-模块,如图

excel通过VBA进行多条件统计

7、现螅岔出礤在我们来输入代码:Sub查找()DimiAsInteger,jAsIntegerarr1=Sheets("数据").Range("稆糨孝汶;A2:D"&Sheets("数据").Cells(Rows.Count,"A").End(xlUp).Row)arr2=Sheets("查找").Range("A2:D"&Sheets("查找").Cells(Rows.Count,"A").End(xlUp).Row)Fori=1ToUBound(arr2)Forj=1ToUBound(arr1)Ifarr2(i,1)=arr1(j,1)Andarr2(i,2)=arr1(j,2)Andarr2(i,3)=arr1(j,3)Thenarr2(i,4)=arr1(j,4)GoTo100EndIfNextarr2(i,4)=""100:NextSheets("查找").Range("A2:D"&Sheets("查找").Cells(Rows.Count,"A").End(xlUp).Row)=arr2EndSub

excel通过VBA进行多条件统计

8、现在回到EXCEL表格,右击按钮,选择“编辑文字”,修改按钮名称为“统计”。那么就完成了

excel通过VBA进行多条件统计

如何用VBA代码实现列表框的关闭与显示 vba 怎么结束程序 利用Excel自定义名称在图表中引用数据 Excel工作表如何快速跳转到指定区域技巧! Excel中如何快速定位当前活动单元格?
热门搜索
兄妹动漫 爱心公益图片 海里的鱼图片 玻璃器皿图片 银锭图片