Formula needed to repeat pattern

[ymurray]

I have to populate various spreadsheets using the following number sequence:


1,1,1,1,1,1
2,2,2,2,2,2,2,2,2,2,2,2,2
3,3,3,3,3,3
4,4,4,4,4,4,4,4,4,4,4,4,4
etc..




So basically, I have to follow sequential numbers in the special pattern of 6 instances of 1, 13 instances of 2, 6 instances of 3, 13 instances of 4, etc. I have to go all the way down to 80 instances. Is there a formula I can use in order to not have to do this manually? I have about 4 different spreadsheets I need to do this for.

 

[Fluff]

Glad we could help & thanks for the feedback

 

[Rick Rothstein]

I know I am late to this thread, but I thought the OP and future readers of this thread might find this one-liner solution to be of interest...

[table="width: 500"]
[tr]
	[td]Sub ymurray()
  Range("A1:A760") = Application.Transpose(Split(Join(Application.Transpose(Evaluate("IF({1},REPT(ROW(1:80)&"" "",13-7*mod(ROW(1:80),2)))")), "")))
End Sub[/td]
[/tr]
[/table]