need to insert values from column A into column B every n rows

[milosz]

I have two columns of text

Column A contains 100 rows

Column B contains 500 rows

I want to insert a value from Column A into Column B every 5th row.

How could I do this?

 

[MickG]

Try:-

[COLOR="Navy"]Sub[/COLOR] MG31Jul30
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range("A1:A100")
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    n = n + 5
    Cells(n, "B") = Dn.Value
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[milosz]

WORKS GREAT! This was JUST what I was looking for.

I sort of even understand it... kind of

There's lots of Excel functions I don't know and lots of VBA syntax that I don't know. But I can roughly follow how this works. I know enough to understand the integers I need to change to work with different sized lists. And, I can look up the functions I don't know and then learn more exactly how this works.

 

[MickG]

You're welcome.