☰

如何用随机日期填充 Excel 数据的空白行？

tag-icon • tag-icon microsoft-excel
如何用随机日期填充 Excel 数据的空白行？

我有一个看起来像

A
2019/10/1
2019/8/11
2019/8/10
2019/10/10
2017/10/26
2016/10/10
2020/6/18
2015/5/8
2018/10/28
2019/6/26
2013/2/2
2020/9/7
2019/12/19
2018/6/6
2015/4/9
2020/4/9
2020/9/20
2016/1/8
2020/7/20
2018/9/4

大约有 200 个空白行。我想用 2019 年 1 月至 12 月之间的随机日期填充空白行。我该怎么做？

答案1

使用如下数据：

在此处输入图片描述

此宏：

Sub FillInTheBlanks()
    Dim i As Long, N As Long, wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    
    N = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 1 To N
        If Cells(i, "A").Value = "" Then
            Cells(i, "A").Value = wf.RandBetween(43466, 43830)
            Cells(i, "A").NumberFormat = "yyyy/mm/dd"
        End If
    Next i
End Sub

将产生：

在此处输入图片描述

笔记）：

这：

wf.RandBetween(43466, 43830)

产生随机日期2019 年 1 月 1 日和 312019 年 12 月。

答案2

我尝试添加新列并使用以下格式来解决问题。

=IF([A1]="","9/15/19"-RANDBETWEEN(1,60),[A1])

相关内容