moving contents

Is there any way to move mutliple cells from one column to
another column without having to grab each individual
cell. i.e. I want to move every forth cell in my A
column (A1,A5,A9,A13 etc.) and place them into my B column
(B1,B5,B9,B13 etc.)

I'm dealing with over 2000 rows and it would take me too
much time to do each individually.
Thanks.

You could use a macro to move the data (try this on a backup copy of the
data):

Sub MoveValues()
Dim c As Range
For Each c In Sheets("Data").Range("A1:A2000")
If c.Row Mod 4 = 1 Then
c.Offset(0, 1).Value = c.Value
c.ClearContents
End If
Next
End Sub

Stephen wrote:
> Is there any way to move mutliple cells from one column to
> another column without having to grab each individual
> cell. i.e. I want to move every forth cell in my A
> column (A1,A5,A9,A13 etc.) and place them into my B column
> (B1,B5,B9,B13 etc.)
>
> I'm dealing with over 2000 rows and it would take me too
> much time to do each individually.
> Thanks.


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html