Repeat date 9 times then move to next date

[dscheetz21]

I want to auto fill this date sequence:

1/1/17
1/1/17
1/1/17
1/1/17
1/1/17
1/1/17
1/1/17
1/1/17
1/1/17
1/2/17...

Basically, repeat the date X times, then move to the next date. I cannot for the life of me figure this out. It can't be that hard?!

 

[My Aswer Is This]

Assuming you want these dates in column "A"

Try this vba script:

Sub Add_Dates()
Application.ScreenUpdating = False
Dim i As Long
Dim x As Long
x = 1
    For i = 1 To 366 * 9 Step 9
        Cells(i, 1).Resize(9).Value = DateAdd("D", x - 1, "1,1,2017")
        x = x + 1
    Next
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

If you want the range formatted using the script:
Try this modified script:

Sub Add_Dates()
Application.ScreenUpdating = False
'Modified 5-25-17 12:46 AM EDT
Dim i As Long
Dim x As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
x = 1
    For i = 1 To 366 * 9 Step 9
        Cells(i, 1).Resize(9).Value = DateAdd("D", x - 1, "1,1,2017")
        x = x + 1
    Next
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & Lastrow).NumberFormat = "D/M/YY"
Application.ScreenUpdating = True
End Sub

 

[footoo]

Or by formula:

Enter 1/1/17 in A1
Enter in A2 : =IF(MOD(ROW(),9)=1,A1+1,A1)
Fill down