Sub test()
Dim xR As Range
Dim D1, D2 As Date
Sheets("sheet2").Cells.Delete
D1 = InputBox("輸入日期", "開始日期")
D2 = InputBox("輸入日期", "結(jié)束日期")
If D1 > D2 Then
MsgBox ("日期輸入錯(cuò)誤")
Exit Sub
End If
Set xR = Range("sheet1!A1").CurrentRegion
With xR
.AutoFilter
.AutoFilter Field:=1, Criteria1:=">=" & D1, Operator:=xlAnd, Criteria2:="<=" & D2
Range("sheet1!A1").CurrentRegion.Copy
Range("sheet2!A1").PasteSpecial xlValues
.AutoFilter
End With
End Sub