[VBA] Multiply each cell of a column 5 times

**Eldexoly** · 10-22-2011, 10:43 AM

Hi,

This is for sure sth easy to code in VBA, but I'm relatively new to it and I feel stucked.

I have a column with date, e.g. column A with the values John (cell A1), Mary (cell A2) & Tom (cell A3).

I need to replicate that matrix in other column (let's say column B) multiplying each value 5 times. Following with the example, I would have John (cells B1:B5), Mary (cells B6:B10) & Tom (cells B11:B15).

I've tryed with a For Each loop, but may I need to anidate a For-Next inside a For Each.

Could you help me on this please?

Thank you!

**JBeaucaire** · 10-22-2011, 11:25 AM

With a formula, in B1, then copied down:

=INDEX(A:A, CEILING(ROW()/5,1))

**JBeaucaire** · 10-22-2011, 11:30 AM

And a VBA version:

Please Login or Register  to view this content.

**MarvinP** · 10-22-2011, 11:32 AM

Hi Eldexoly and welcome to the forum.

Find the attached with the code that does what you want.

**Eldexoly** · 10-22-2011, 12:26 PM

Thank you Sirs!! That's what I'm looking for.

I prefer a VBA solution because I need to repeat the process many thousand of times and formulas would increase a lot the weight of the file.