Rearranging data

[jbyrne]

Hi,

I have file numbers in column A and phone numbers in column B

I need a macro that looks at the file number and if it sees a duplicate file number below it to put the phone number across instead of down.

In my example, I need c5 cell to have (555)555-5555 and d5 to have (666-6666 etc.

When completed there should only be one file number per row with phone numbers going across instead of down.

Any help would be appreciated.
Jim

Book1
	A	B	C	D
1	FILENUMBER	PHONENUMBER
2	372982	(111)111-1111
3	123547	(222)222-2222
4	237426	(333)333-3333
5	273822	(444)444-4444
6	273822	(555)555-5555
7	273822	(666)666-6666
8	273822	(777)777-7777
9	565634	(888)888-8888
10	987652	(999)999-9999
Sheet1

 

[tactps]

How about:

Sub macro()
[a2].Select
Do Until ActiveCell.Text = ""
If ActiveCell.Text = ActiveCell.Offset(1, 0).Text Then
ActiveCell.Offset(1, 1).Copy Destination:=Range("iv" & ActiveCell.Row).End(xlToLeft).Offset(0, 1)
ActiveCell.Offset(1, 0).EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub

 

[jbyrne]

Thanks for the reply tact- it did remove the matching file numbers but did not put the additional phone numbers relating to the matching file number to the right of the 1st file number.

 

[jbyrne]

I take that back...

Tact,

I spoke to soon- thanks I see the data to the right-

works great! thanks for your help