How to put every other row in two seperate columns

[dmb41]

I have a large amount of data that needs to be split into two rows (based on how it is configured)

Like the following example:

A
B
C
D
E
F
G
H
...etc

What I am looking to get is
A B
C D
E F
G H

So the data is sorted (every other) into two columns.

 

[dmb41]

EDIT: I have a large amount of data that needs to be split into two *columns (based on how it is configured)

 

[Rasm]

Write a macro - along the one below - you have to start with last row then count backwards - in this case the last row is 21 and it assumes the first row is your column header- but modify code to suit your needs.

For i = 21 To 3 Step -2
    ActiveSheet.Cells(i - 1, 2).Value = ActiveSheet.Cells(i, 1).Value
    ActiveSheet.Rows(i).Delete
Next i

 

[Rasm]

if you have a lot of rows then make sure to make

Application.ScreenUpdating = False

b4 loop and True after loop

 

[dmb41]

Thanks a lot! Exactly what I am looking for. I haven't used macros much but this was easy to use.

 

[Rasm]

Well - get busy -

 

[ANMB]

Good Evening,

I have a similar challenge. I have 114 files, that have in one column, Qur'anic Arabic words, each in a separate row, with the English translation underneath each Qur'anic Arabic word in another row, with some blank rows here and there.

I want to have the Qur'anic Arabic word in Column A and the corresponding translation in Column B - and I don't know how to write macros. I do have a macros written to delete the blank rows, and I will have to see if works on all of the files. But I still need each language text, in separate columns. I would attach a file as an example, but unsure how to do so?

Thank you.

~ ANMB