Hi,
I have two columns of data Starting in A1 and B1.
Column A has email addresses and column B has ID numbers.
At the moment if a person has more than one id their email address appears twice in column A.
I want to end up with one email address per person and instead of all the id numbers being in column B copy them across into column C, D, E etc. there could be up to 10 Id's.
If anyone could help I would be grateful.
Example attached.
Last edited by timbo1957; 08-07-2013 at 05:52 AM.
That is set-up for your example, you will need to change the ranges and columns as appropriate.
Sub macro_1() Dim count Range("A2:B16").Sort Range("A2"), xlAscending count = 2 Do Until Range("A" & count) = "" If Range("A" & count) = Range("A" & count - 1) Then Cells(count - 1, Columns.count).End(xlToLeft).Offset(0, 1) = Range("B" & count) Rows(count).Delete Else count = count + 1 End If Loop End Sub
Hi,
try the macro in the attached file.
Thanks
Babu.S
Hi timbo1957,
If you are not opposed to using a formula setup...
...or for a macro setup
Last edited by jeffreybrown; 08-07-2013 at 05:50 AM.
HTH
Regards, Jeff
Thanks eveyone all good solutions.
You're welcome…we are glad you have a workable solution and thanks for the feedback...
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
timbo1957 
Register To Reply
Bookmarks