Copy Column With Values n times in excel

[Jaune]

Hi all,

I have been going through all of the possible answers in Mr Excel and none of them seems to fit my specific problem.

I would just like to have a scenario like this:
1
2
3
4
5

This must be copied horizontally n times.

Thus lets say A1 = 5, then the output must be:
1 1 1 1 1
2 2 2 2 2
3 3 3 3 3
4 4 4 4 4
5 5 5 5 5

 

[MickG]

Try:-

[COLOR="Navy"]Sub[/COLOR] MG19Jul41
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range("A2", Range("A" & Rows.Count).End(xlUp))
Rng.Resize(, Range("A1").Value) = Rng.Value
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Scott T]

If you want a formula solution

	A	B	C	D	E	F
1	5
2
3	1	1	1	1	1
4	2	2	2	2	2
5	3	3	3	3	3
6	4	4	4	4	4
7	5	5	5	5	5

<tbody>
</tbody>

In B3 copy across and down

=IF(COLUMNS($A$3:A3)+1<=$A$1,A3,"")