Fill Down Multiple non-adjacent Columns

[PaulGotts]

Hi There,

Is there a way to fill down multiple non-adjacent columns at the same time?

I have a large worksheet and need to fill down a formula in every 5th column without altering the data in the other columns.

Thanks kindly.
Paul G.

 

[ukmikeb]

Hi

Something like this :-

Sub PopulateColumns()
Dim LR as Long
LR = Range("A" & Rows.Count).End(xlUp).Row
With Range("S2:S" & LR)
    .Offset(, 5).Formula = "=$s2*5"
    .Offset(, 10).Formula = "=$s2*15"
    .Offset(, 15).Formula = "=$s2*25"
End With
End Sub

Adjust the Columns/Formulae accordingly.

hth

 

[PaulGotts]

Thank you for the response and time put towards this Mike.

Is there any way to avoid VBA?

Thanks kindly.

 

[ukmikeb]

Paul

Put the respective formulae in their individual columns and drag each down separately.

Unforunately, it's not possible to Select the first cells through Select and Ctrl and either drag that down or copy down the columns.

 

[PaulGotts]

Thank you Mike, I feared this was the result.

I've found a decent non-VBA work around where I hide all but the columns of interest and copy down the first column. Once complete, I am able to double-click the fill icon on the adjacent columns one at a time.

Fingers crossed the developers of Excel use this forum for R&D. Some great stuff on the mr.excel message boards.

 

[ukmikeb]

Paul

Pleased to have got there in the end.

I tried out your solution - very impressive - I'll have to put that in the memory bank.

Good luck with your project.