怎么每隔10-20分钟取一个时间，要求包含月日小时分钟

xiangbaoan

1. Sub test()
   
2.   Dim ar, d As Date, i As Long
   
3.   Range("A1").CurrentRegion.ClearContents
   
4.   i = 0
   
5.   d = #9/21/2021#
   
6.   ar = Split("0 月 0 日 0 时 0 分")
   
7.   Randomize Timer
   
8.   Do While d < #9/23/2021#
   
9.     d = DateAdd("n", 20 + Rnd() * 11, d)
   
10.     ar(0) = Month(d)
    
11.     ar(2) = Day(d)
    
12.     ar(4) = Hour(d)
    
13.     ar(6) = Minute(d)
    
14.     i = i + 1
    
15.     Cells(i, 1).Resize(, UBound(ar) + 1) = ar
    
16.   Loop
    
17. End Sub

复制代码