Come per la precedente (DateFiller) anche questo permette di valorizzare una sequenza non corretta di date/ore ma al contrario dell'altro i valori presi in considerazine sono l'ora e non piĆ¹ la data. Il tutto opera sfruttando la funzione DateDiff e l'incremento di un'ora ottenuto dividendo il giorno per 24 ore (1/24)

Sub DataOra_Filler()
    Dim r, c As Integer
    Dim ok As Boolean
    ok = True
    r = 7 'riga di partenza
    c = 1
    Application.Calculation = xlManual
    Application.ScreenUpdating = False
    While ok
        If Cells(r + 1, c) = "" Then
            ok = False
        Else
            If DateDiff("h", Cells(r, c).Value, Cells(r + 1, c).Value) <> 1 Then
                Rows(r + 1).EntireRow.Insert
                Cells(r + 1, c).Value = Cells(r, c).Value + (1 / 24)
            End If
            r = r + 1
        End If
    Wend
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
End Sub