使用vba进行动态筛选

2016年8月10日 作者： 来源：

原始数据如下：

日期	姓名	基本工资	奖金	加班费	补助	实发工资
2010-5-1	张丹	1300	200	130	200	1830
2010-5-2	李娜	1500	300	200	100	2100
2010-5-3	刘刚	1200	100	30	200	1530
2010-5-4	赵海	1300	300	300	200	2100
2010-5-5	王艳	1600	200	60	100	1960

输入开始和结束日期，点击确定按钮

	开始日期	2010-5-1	OK
	结束日期	2010-5-2
日期	姓名	基本工资	奖金	加班费	补助	实发工资
2010-5-1	张丹	1300	200	130	200	1830
2010-5-2	李娜	1500	300	200	100	2100

Sub Click_OK( )
    Dim sdate As Date
    Dim edate As Date
    sdate = Sheets("sheet2").Cells(2, 3)
    edate = Sheets("sheet2").Cells(3, 3)
    Rows("7:15").Select
    Selection.Delete Shift:=xlUp
    Sheets("Sheet1").Select
    Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=">=" & sdate, Operator:=xlAnd, _
        Criteria2:="<=" & edate
    Range("A1:G13").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A7").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Sheets("Sheet2").Select
    Range("C2").Select
End Sub