Separate records from Vertical to Horizontal

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

PM - 16 Dec 2005 14:13 GMT

I have addresses in an Excel spreadsheet. Here is how they are formatted:

row 1: (blank)
row 2: name
row 3: address
row4: city, state, zip

This then repeats about 700 times.

Can anyone help me create a formula that copies these 4 rows to a single row
in another tab? For example, row1 would go to columnA in the next tab, row2
would go to columnB in the next tab, etc? I'd need it to repeat each time,
so I have a tab that has each record in a single row (for printing labels).

Please help! I cannot figure out the formula.

PM

Reply to this Message

Max - 16 Dec 2005 14:26 GMT

Assuming the source data is in A1 down,

Put in B1: =INDEX($A:$A,ROW(A1)*4-4+COLUMN(A1))
Copy B1 across 4 cols to E1, fill down until zeros appear
signalling exhaustion of data from col A

If required, freeze the results in cols B to E with an in-place:
Copy > Paste special > check "Values" > OK
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

> I have addresses in an Excel spreadsheet. Here is how they are formatted:
>
[quoted text clipped - 13 lines]
>
> PM

Reply to this Message

Gord Dibben - 16 Dec 2005 17:44 GMT

In addition to Max's suggestion, you may want to break up the City,State,Zip
cell into 3 distinct cells after you get the 4 rows into the one row format.

Select that column and Data>Text to Columns>Delimited by comma and Finish.

Most labelling programs like Word work better with those in separate columns.

Gord Dibben Excel MVP

>Assuming the source data is in A1 down,
>
[quoted text clipped - 34 lines]
>>
>> PM

Reply to this Message

Peo Sjoblom - 16 Dec 2005 14:51 GMT

Why do you need blanks to go there, I would delete them
select the import column, press f5, select special and blanks,
press Ctrl - (or edit>delete), select entire row, that will give you the
same data without the blanks, then use

=OFFSET(Sheet1!$A$1,(ROW(1:1)-1)*3+COLUMN(A:A)-1,0)

replace Sheet1 with the sheet name, if you insist of copying over empty
cells

=OFFSET(Sheet1!$A$1,(ROW(1:1)-1)*4+COLUMN(A:A)-1,0)

for the former copy across 3 cells and then copy down as long as needed
for the latter copy across 4 cells and then down

(use the fill handle to copy across/down)

Signature

Regards,

Peo Sjoblom

> I have addresses in an Excel spreadsheet. Here is how they are formatted:
>
[quoted text clipped - 13 lines]
>
> PM

Reply to this Message