用DATEVALUE函数将日期转化为数值型的序列号，每运行一次就让序列号自动加1，再将其转化为日期。

日期序列号与日期是可以相互转化的

6# gatesin 如果能提供个简单的代码示范，小弟不胜感激！全部论坛币拱手奉上，多谢！

写代码需要楼主先上附件，而且最好能更清楚的说明下问题

没时间啊，有时间我写一个

我的建议是将起始和结束的日期放在一个保护的单元格中（例如一个工作表的最后一行），以免被其他人破坏，或者干脆将放置起始和结束的日期单元格所在的工作隐藏起来，只在VBA程序中调用这两个值所在的单元格就可以。

以下VBA程序可实现持续的累加，你计算的程序完成后就可以调用以下模块完成日期的累加，为下一轮地计算准备好开始和结束日期。

Sub aa()


'这两个语句是赋初始值的，也可以手工赋初始值
'    ThisWorkbook.Worksheets("sheet1").Cells(65535, 1).Value = "2010-1-1"
'    ThisWorkbook.Worksheets("sheet1").Cells(65535, 2).Value = "2010-3-1"

'这两行是在初始值的单元格上累加一天
    ThisWorkbook.Worksheets("sheet1").Cells(65536, 1).Value = ThisWorkbook.Worksheets("sheet1").Cells(65535, 1).Value + 1
    ThisWorkbook.Worksheets("sheet1").Cells(65536, 2).Value = ThisWorkbook.Worksheets("sheet1").Cells(65535, 2).Value + 1
   
  '这两行是将累加后的值覆盖初始值所在的单元格
    ThisWorkbook.Worksheets("sheet1").Cells(65535, 1).Value = ThisWorkbook.Worksheets("sheet1").Cells(65536, 1).Value
    ThisWorkbook.Worksheets("sheet1").Cells(65535, 2).Value = ThisWorkbook.Worksheets("sheet1").Cells(65536, 2).Value
   
   
End Sub

参见附件中的程序