求助o>_<o

顶一顶让大神看到

自动更新日期吗

我觉得 日期在一个单元格
时在一个单元格
最后在合并起来就ok了

=DATE(2009,1,0)+MOD(ROW(A24),24)+1回车下拉

你是一下，如果你要显示2009-1-1 24时的话，这个也可以，大概思路是先分列，把日期与时间分开，再排序，把0时的都排一起，然后把日期再-1，再把0时换成24时，再合并在一起，再排序，说起来比较繁琐，做起来比较简单的

为了日后，还是分开两列比较好。

Sub InputDate()
Application.ScreenUpdating = False
Dim iDay As Integer
Dim iHour As Integer
[a1] = "Date"
[b1] = "Clock"
[a2].Activate
For iDay = 1 To 365
For iHour = 1 To 24
ActiveCell = DateValue("2009-1-1") + iDay - 1
ActiveCell.Offset(0, 1) = iHour
ActiveCell.Offset(1, 0).Activate
Next iHour
Next iDay
End Sub