Excel VBA 活取随机日期

这个函数用于获取fstDate到lstDate之间的随机日期

Sub AUTO_CALENDAR()
    Dim fstDate As Date
    Dim lstDate As Date
    fstDate = #1/1/2023#
    lstDate = #12/31/2025#
    col = "K"
    For i = 2 To 10001
        Cells(i, col) = CStr(Format(Int(lstDate - fstDate + 1) * Rnd + fstDate, "yyyyMMdd"))
    Next i
End Sub

fstDate　是随机写入日期范围的初始日期值（包含）
lstDate 是随机写入日期范围的截至日期（包含）
for i 为需要写入数据的行号
col 是写入位置的列名