求大神帮看下，如图A列日期时间格式

Option Explicit
Sub abc()
　Dim a, i, y, h
　a = [a1].CurrentRegion.Resize(, 1).Value
　For i = 1 To UBound(a)
　　y = CDate(Format(a(i, 1), "yyyy/m/d"))
　　h = CDate(Format(a(i, 1), "h:m:s"))
　　If h >= #8:00:00 PM# Then y = y + 1
　　a(i, 1) = y
　Next
　With [b:b]
　　.NumberFormatLocal = "yyyy/m/d"
　　.Resize(UBound(a)) = a
　End With
End Sub

=TEXT(IF(HOUR(A1)>=20,A1+1,A1),"yyyy/m/d")

'如果打开文件后需要从指定序号开始打印那么可以把上次打印终止时的序号记录到一个文件中去就可以了
Option Explicit
Sub abc()
　Dim dt, i
　With Sheets("sheet1")
　　dt = .[a1].Value
　　For i = 1 To 100
　　　.[a2] = Val(Format(dt, "yymmdd")) * 1000 + i
　　　'.PrintOut <指定打印区域>
　　　Call delay(0.05) '适当调整延时时间，因为打印机可能响应不过来
　　Next
　End With
End Sub
Function delay(t)
　Dim dt
　dt = Timer
　Do
　　DoEvents
　Loop Until Timer - dt >= t
End Function