Início / computer / Perguntas / 1611774
Accepted
kdm.J
Asked: 2020-12-22 17:46:18 +0800 CST

Como preencher linhas em branco de dados do Excel com datas aleatórias?

  • 772

Eu tenho um excel que se parece com

UMA
1/10/2019
11/08/2019
10/08/2019
10/10/2019
26/10/2017
10/10/2016
18/06/2020
08/05/2015
28/10/2018
26/06/2019
02/02/2013
09/09/2020
19/12/2019
06/06/2018
04/04/2015
04/04/2020
20/09/2020
01/01/2016
20/07/2020
04/09/2018

Existem cerca de 200 linhas em branco. Quero preencher as linhas em branco com datas aleatórias entre janeiro e dezembro de 2019. Como posso fazer isso?

microsoft-excel

2 respostas

  1. Best Answer

    Com dados como:

    insira a descrição da imagem aqui

    Esta macro:

    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

    vai produzir:

    insira a descrição da imagem aqui

    Notas):

    isto:

    wf.RandBetween(43466, 43830)

    produz uma data aleatória entre 1 de janeiro de 2019 e 31 de dezembro de 2019 .

    • 1

  2. Tentei adicionar uma nova coluna e usar a formatação abaixo para lidar com o problema.

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

relate perguntas