copy alternative cells

[sagar]

I have data in A column,(@3600 names) in that I wnat to copy alternative cells in another sheet

for example, the data is as follows
A1:Sagar
A2:John
A3:Fred
A4:Lydia
A5:Rosy
A6:Grace

I want to copy the alternative cells as follows

Output
A1: Sagar
A2: Fred
A3:Rosy

can any one help with some solution-Sagar

[VBA Noob]

Hi,

You could use a helper column.

Either enter this in B1

=IF(ODD(ROW(B1))=ROW(),1,0)

Then filter Column B on the Number 0 and delete

or use

=IF(ODD(ROW(A1))=ROW(),A1,"")

and filter on non blanks

VBA Noob

[sagar]

Hi,

Thanks for your help, any other option without filtering blanks

Bye
Sagar

[VBA Noob]

Yes,

Try

=IF(OFFSET(A1,ROW(A1)-1,0)="","",OFFSET(A1,ROW(A1)-1,0))

VBA Noob