View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] ndav79@yahoo.com is offline
external usenet poster
 
Posts: 1
Default merging cells and then deleting rows and duplicate entry

Hi,
the example below shows what i want to do.

first last address city zip language
john d 125 55 st ny 11111 spanish
john d 125 55 st ny 11111 english
john d 255 24 st ny 12444 spanish
john d 255 24 st ny 12444 english

and so on.... with different names and a person having maybe four
address or knows 3 languages

I want it to end up like this:

first last address city zip language
john d 1.125 55 st ny 1.11111 spanish,english
2.255 24 st 2.12444
in one row. The excel file is pretty big with many names.

I found this code but it needs more so the same address for example
would not show twice in a cell.

r=1
do until cells(r,1)=""
if cells(r+1,1)=cells(r,1) then
cells(r,2)=cells(r,2) & "," & cells(r+1,2)
rows(r+1).delete
else
r=r+1
end if
loop

Any thoughts would be apreciated.
thanx