MARK EVERY FOURTH ROW

[lehigh46]

HI ALL,

In column A, I have consecutive numbers 1 thru 7,000

In column B, I would like to write a formula and copy it down to show
a number 1 on every fourth line .

How can I accomplish this?


Thanks for your help.

Tom Snyder


x-- 100 Proof News - http://www.100ProofNews.com
x-- 3,500+ Binary NewsGroups, and over 100,000 other groups
x-- Access to over 1.6 Terabytes per Day - $8.95/Month
x-- UNLIMITED DOWNLOAD

 

[N Harkawat]

Assumng the range is between A1:A7000
on cell B1 type the following and copy it all the way down
=if(mod(row(),4)=0,"",1)

This will copy the number 1 on ever 4th row in column B

 

[Domenic]

Try the following...

For every fourth line, starting with the first cell...

B1, copied down:

=IF(MOD(ROW()-ROW($B$1)+0,4)=0,1,"")

For every fourth line, starting with the first occurrence of 'fourth'...

B1, copied down:

=IF(MOD(ROW()-ROW($B$1)+1,4)=0,1,"")

Hope this helps!

 

[Don Guillett]

try this
Sub every4throw()
For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row Step 4
Cells(i, "b").Offset(0, 1) = 1
Next i
End Sub