方法一:序列填充 http://www.foxtable.com/webhelp/scr/0140.htm
方法二:写代码,如
Dim d1 As Date = "2019-01-01"Dim d2 As Date = "2019-01-13"Do While d1 <= d2 Dim nr As Row = Tables("表A").addnew nr("日期") = d1 d1 = d1.adddays(1)Loop