求大家帮忙！谢谢！

elflg

直接见码，我的目的是筛选sheet1一个时间段的数据再粘贴到sheet2中，但是小弟我想把2015/12/21和2015/12/22这两个时间换成引用sheet3单元格A1和A2中的数据，一直写对，求指点！！！！！！
Sub qwe()
    Sheets("sheet1").Select
    Rows("1:1").EntireRow.Select
    Selection.AutoFilter
    ActiveSheet.Range("<=2015/12/22").AutoFilter Field:=2, Criteria1:= _
        ">= 2015/12/21 ", Operator:=xlAnd, Criteria2:="<=2015/12/22"
    ActiveCell.Range("A1:W47109").Select
    Selection.Copy
     Sheets("sheet").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

elflg

。。。。。。没有人么