作者：乔山办公网日期：
返回目录：excel表格制作
什么叫内容相同的次数
请追问
是指B=苹果A=1重复出现的次数，还是1或2重复出现最多的次数
请详细说明清楚
类似的工程不用vba，用sumproduct函数，顶多配合数组函数就可以了
两个条件抄：
筛选第一列姓名为 张三袭，李四
ActiveSheet.Range("$A$1:$R$316920").AutoFilter Field:=1, Criteria1:=Array("张三", "李四"), Operator:=xlFilterValues筛选第二列成绩为 优zd，良
ActiveSheet.Range("$A$1:$R$316920").AutoFilter Field:=2, Criteria1:=Array("优", "良"), Operator:=xlFilterValuesPrivate Function GetQryCDT() As String '获取知界面条件道
If Not IsNull(dtpEndDate.value) Then GetQryCDT = GetQryCDT & " and [FEndDate] <='" & dtpEndDate.value & "'" '日期型空间版
If Trim(txtBarCode.Text) <> "" Then GetQryCDT = GetQryCDT & " and [FBarCode] like '%" & txtBarCode.Text & "%'" '文本权控件
If chkState.Item(0).value = Unchecked Then GetQryCDT = GetQryCDT & " And FBillState<2" '多选项控件
End Function
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8, Operator:= _
xlFilterValues, Criteria1:=">=" & Format(Sheet2.Range("D3"), "M/D/YYYY") _
, Operator:=xlAnd, Criteria2:="<=" & Format(Sheet2.Range("D1"), "M/D/YYYY")
====
我的是源数据百在sheet1里面，筛选的度时候条件在sheet2的D3和D1单元格；我是筛选指定日期区间的数据
若要增加其他条件的话，按照上面再增加条专件就可以了，当然实话说我对VBA是基本不懂，我所用的都是百度拼凑的，按照思路一个属一个条件去找的解决办法