Automatic cut and paste

E

Erix

Hi all,

I have a problem and couldn't figure out how to solve.

I would like to cut only even numbered rows and paste them to the
right side of the previous row on a big worksheet.

Let me show an example;

a b c
1 q w e
2 a s d
3 z x c
4 j k l

An what i would like to do is;

a b c
1 q w e a s d
2
3 z x c j k l
4


Thanks.


Erix.
 
D

Don Guillett

try

Sub lineemup()
For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row Step 2
Range(Cells(i, 1), Cells(i, 3)).Cut Cells(i - 1, 4)
Next
End Sub
 
E

Erix

try

Sub lineemup()
For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row Step 2
Range(Cells(i, 1), Cells(i, 3)).Cut Cells(i - 1, 4)
Next
End Sub

Thank you.

Erix.
 
H

Herbert Seidenberg

Here is a way without VBA
1. Enter the formula =mod(row(),2) into the last column and copy it
down. You should get alternate 1 and 0.
2. Select the last column and do Copy, Paste Special, Values. The
formula disappears.
3. Select all columns and sort by the last column, descending order.
4. Select the bottom half of the data, the one next to all the zeros,
and move it to the right side of the top half of data.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Scrabble Value calculation for Welsh words 0
Appending/merging rows horizontally 1
Combine words from columns 17
Group 1
Merge from a table 3
Combinations... 1
problem in file 3
Fill array with Values 4

Top