主页 / computer / 问题 / 1611774
Accepted
kdm.J
Asked: 2020-12-22 17:46:18 +0800 CST

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

  • 772

我有一个看起来像

一个
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 月到 2019 年 12 月之间的随机日期填充空白行。我该怎么做？

microsoft-excel

2 个回答

  1. Best Answer

    使用以下数据：

    在此处输入图像描述

    这个宏：

    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 日和 2019年12 月31日之间的随机日期。

    • 1

  2. 我尝试添加新列并使用以下格式来处理问题。

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

相关问题