定时选择性删除如表创建以3月5日，到4
更新：
举手之劳，不用加分
原来的Clear把单元格式的设置也清除了，如框线，小数位数设置等等，如你要保留格式，用ClearContents就行，以下假定你不清除格式
1：删除所有D3:D8单元格中的公式
把Cells。 Clear 换成 Range("D3:D8")。SpecialCells(xlCellTypeFormulas)。ClearContents
2：删除所有D3:D8单元格中的所有内容
把Cells。 Clear 换成 Range("D3:D8")。ClearContents
3：整列的表示：range("d:e") 表示d列到e列
整行的表示：range("1:2...全部
更新：
举手之劳，不用加分
原来的Clear把单元格式的设置也清除了，如框线，小数位数设置等等，如你要保留格式，用ClearContents就行，以下假定你不清除格式
1：删除所有D3:D8单元格中的公式
把Cells。
Clear 换成 Range("D3:D8")。SpecialCells(xlCellTypeFormulas)。ClearContents
2：删除所有D3:D8单元格中的所有内容
把Cells。
Clear 换成 Range("D3:D8")。ClearContents
3：整列的表示：range("d:e") 表示d列到e列
整行的表示：range("1:2") 表示1到2行
前后可以为同一如range("2:2") 表示2行
自己体会一下吧，欢迎进入vba编程一族
==================================
我做的是定时删除工作表的内容，是在工作表的Worksheet_Activate()做的，你只要在4月25号打开这个工作表，内容自动清除
alt +f11进入vbe后 双击sheet1 选worksheet open 输入
Private Sub Worksheet_Activate()
Dim rq
rq = #4/25/2010#
If Date > rq Then ActiveSheet。
Cells。Clear
End Sub
当然你也可是加入到Workbook_Open()
进入vbe后 双击thisworkbook 选workbook open 输入
Private Sub Workbook_Open()
Dim rq
rq = #4/25/2010#
'假定"sheet1"为你要删除的工作表
If Date > rq Then Sheets("sheet1")。
Cells。Clear
End Sub
注：如别人要禁用了宏，就没用了
。收起
