'刪除某天之前的數據
Dim?da?As?Date
da?=?InputBox("請輸入欲刪除的截止日期:註意格式，如?2014-10-25",?"輸入",?Default)
If?MsgBox("程序將對"?&?da?&?"?前的記錄（不包含此日期當天的記錄）進行刪除，刪除後數據不可恢復，是否繼續？",?vbOKCancel,?"警告！！！")?=?1?Then
Application.DisplayAlerts?=?False
Dim?cRow%,?x%
cRow?=?[C65536].End(xlUp).Row
For?x?=?cRow?To?2?Step?-1
If?Range("C"?&?x)?<?da?Then
Rows(x).Delete
End?If
Next?x
Application.DisplayAlerts?=?True
End?If
Cancel?=?True
End?Sub