UC知道vba循环筛选结果
来源：百度知道 编辑：UC知道 时间：2024/05/16 01:40:05
vba循环筛选结果
这现在用EXCEL的宏实现了筛选功能.但现在不知道怎么循环处理筛选后的结果集.例如SHEET工作表有10行数据,我现在筛选后还有3行数据,那我怎么循环处理筛选后的这3行数据呢?请给出具体的代码.谢谢.下面贴的是我实现筛选的代码.即A列的序号是6或者3,并且列二大于1-5号. 请高手给出循环处理筛选后结果集的代码.
Range("E1").Select
ActiveCell.Value = "序号"
Range("F1").Select
ActiveCell.Value = "列二"
Range("E2").Select
ActiveCell.Value = "6"
Range("E3").Select
ActiveCell.Value = "3"
Range("F2").Select
ActiveCell.Value = ">2008-01-05"
Range("F3").Select
Columns("A:C").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("E1:F3"), Unique:=False
ActiveWindow.SmallScroll Down:=-18
这现在用EXCEL的宏实现了筛选功能.但现在不知道怎么循环处理筛选后的结果集.例如SHEET工作表有10行数据,我现在筛选后还有3行数据,那我怎么循环处理筛选后的这3行数据呢?请给出具体的代码.谢谢.下面贴的是我实现筛选的代码.即A列的序号是6或者3,并且列二大于1-5号. 请高手给出循环处理筛选后结果集的代码.
Range("E1").Select
ActiveCell.Value = "序号"
Range("F1").Select
ActiveCell.Value = "列二"
Range("E2").Select
ActiveCell.Value = "6"
Range("E3").Select
ActiveCell.Value = "3"
Range("F2").Select
ActiveCell.Value = ">2008-01-05"
Range("F3").Select
Columns("A:C").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("E1:F3"), Unique:=False
ActiveWindow.SmallScroll Down:=-18
这个问题不好处理，你最好用subtotal()，这个函数应可以满足基本的计算，如果，非得要循环，你最好选排序（就是你筛选的那列）后，另加一列，填充上连序的序号，然后用这个序号用sbutotal()找出最大，最小值，实现循环。
这还差不多..