Incluir datas faltantes numa lista já existente.


#1

Olá, amigos preciso de uma ajuda numa questão.
na minha tabela tem uma coluna DATA, que já tem dados (umas 200 linhas aprox). Porém não contem todos os dias do mês
ex.
DATA
12/12/2018
11/12/2018
09/12/2018
06/12/2018
05/12/2018
03/12/2018
o que eu preciso é incluir uma linha e preencher com a data que está faltando, por exemplo, após o dia 11/12/2018 já pula para 09/12, eu gostaria de incluir automaticamente uma linha após o dia 11 já preenchida com 10/12/2018, semelhantemente entre os dias 09/12 e 06/12 incluir 2 linhas com 08/12 e 07/12 respectivamente.
Conseguiram entender? acredito que isso só será possível via VBA, caso os moderadores queiram podem mudar o tópico. Desde já agradeço a oportunidade.


#2

@matheuspa27, acredito que precisará de adaptação, mas algo assim resolveria:

    i = Cells(1, 1).End(xlDown).Row
    Data = Cells(i, 1).Value
    
    i = i - 1
    Data = Data + 1
    Do While i > 1
        If Cells(i, 1).Value > Data Then
            Rows(i + 1 & ":" & i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(i + 1, 1).Value = Data
            Data = Data + 1
        Else
            Data = Data + 1
            i = i - 1
        End If
    Loop

Obs.: Considerei sua coluna de datas estando na coluna A.