Macro Required or a Shortcut

Abbas999

Board Regular
Joined
Jan 4, 2015
Messages
102
[TABLE="width: 575"]
<tbody>[TR]
[TD="class: xl64, width: 575"]Hi All members,

I have around 2K records in a excel sheet with fields, Company, City, First name, Last name, Email, Then First name, Last Name, Email, Then First name Last name, Email, and so on....

Let me explain this. Each row contain a Company details and their workers first name, last name, email.
Each company have at least one worker and up to 8 workers.


Example Picture - It shows One Company one city but 6 workers working for them but data is in a single row.


[/TD]
[/TR]
</tbody>[/TABLE]

Unknown
ABCDEFGHIJK
255Company NameCity/ProvFirst 1Last 1Email 1First 2Last 2Email 2First 3Last 3Email 3
256ISTITUTO CLINICO HUMANITASRozzanoSimonaCamardasimona.camarda@humanitas.itMonicaFlorianelloufficio.stampa@humanitas.itMartaGalbiatimarta.galbiati@materdomini.it
Filtered


Here is what i want to organize them in excel sheet. In above picture it shows 1 Company with six workers in a single row. I want six rows for one company but only difference is worker name and email.


Unknown
ABCDE
255Company NameCity/ProvFirst NameLast nameEmail
256ISTITUTO CLINICO HUMANITASRozzanoSimonaCamardasimona.camarda@humanitas.it
257ISTITUTO CLINICO HUMANITASRozzanoMonicaFlorianelloufficio.stampa@humanitas.it
258ISTITUTO CLINICO HUMANITASRozzanoMartaGalbiatimarta.galbiati@materdomini.it
259ISTITUTO CLINICO HUMANITASRozzanoTatianaDebellitatiana.debelli@gavazzeni.it
260ISTITUTO CLINICO HUMANITASRozzanoLauraCapardonilaura.capardoni@humanitas.it
261ISTITUTO CLINICO HUMANITASRozzanoWalterBruno walter.bruno@humanitas.it
Filtered


I want to know if there is a way to do this in a better way? Other than first inserting rows then copying and pasting name emails.

Thank you in advance
 
Are there any empty rows or columns between A260 and the end of your starting data?

Unknown
ABCDEFGH
LEGA CONSUMATORIMilanoLauraPraderiufficiostampa@legaconsumatori.it
LEGA DEL FILO D'ORO - ONLUSOsimoGianlucaDe Tollisraccoltafondi@legadelfilodoro.itChiaraAmbroginiambrogini.c@legadelfilodoro.it
LEGA ITALIANA PER LA LOTTA CONTRO I TUMORIRomaUfficioStampaufficio.stampa@lilt.it
LEGA NAZIONALE PER LA DIFESA DEL CANEMilanoCarolinaFagiolifundraising@legadelcane.orgFrancescaFagioliredazioneweb@legadelcane.org
LEGA NORD PADANIA - SEGR. FEDERALEMilanoIvaGaribaldiivagaribaldi@gmail.com
LEGA PALLAVOLO - SERIE A FEMMINILEMilanoDanieleTodiscotodisco@legavolleyfemminile.itConsueloMangifestamangifesta@legavolleyfemminile.it
LEGA PALLAVOLO - SERIE A MASCHILEBOLOGNAStefaniaBonamicibonamici@legavolley.itChiaraMazzonimazzoni@legavolley.it
LEGA SERIE A - LEGA SERIE BMilanoTizianoMauristampa@legaseriea.itAlbertoMonguidistampa@legaserieb.it
LEGALCOMMUNITYMilanoStefaniaBonfantistefania.bonfanti@legalcommunity.it
LEGAMBIENTERomaMilenaDominicim.dominici@legambiente.it
LEGANCE - AVVOCATI ASSOCIATIMilanoFrancescaCastiglionifcastiglioni@legance.itElisaZettiezetti@legance.it
LEGISLAZIONE TECNICA SRLRomaPierode Paolispiero.depaolis@legislazionetecnica.it
LEICA - LEICA CAMERA ITALIA SRLMILANOGiadaTriolagiada.triola@leica-camera.com
LENOVO ITALY SRLSan Felice - SegrateSimonaMenghinismenghini@lenovo.com

<tbody>
[TD="align: center"]423[/TD]

[TD="align: right"][/TD]

[TD="align: right"][/TD]

[TD="align: center"]424[/TD]

[TD="align: center"]425[/TD]

[TD="align: right"][/TD]

[TD="align: right"][/TD]

[TD="align: center"]426[/TD]

[TD="align: center"]427[/TD]

[TD="align: right"][/TD]

[TD="align: right"][/TD]

[TD="align: center"]428[/TD]

[TD="align: center"]429[/TD]

[TD="align: center"]430[/TD]

[TD="align: center"]431[/TD]

[TD="align: right"][/TD]

[TD="align: right"][/TD]

[TD="align: center"]432[/TD]

[TD="align: right"][/TD]

[TD="align: right"][/TD]

[TD="align: center"]433[/TD]

[TD="align: center"]434[/TD]

[TD="align: right"][/TD]

[TD="align: right"][/TD]

[TD="align: center"]435[/TD]

[TD="align: right"][/TD]

[TD="align: right"][/TD]

[TD="align: center"]436[/TD]

[TD="align: right"][/TD]

[TD="align: right"][/TD]

</tbody>
Filtered


THIS SHOWS, Each Company have at least one worker. And up to 8 workers. Maybe code understands if there are more than one worker then do the macro?
 
Last edited:
Upvote 0

Excel Facts

Do you hate GETPIVOTDATA?
Prevent GETPIVOTDATA. Select inside a PivotTable. In the Analyze tab of the ribbon, open the dropown next to Options and turn it off

Forum statistics

Threads
1,223,723
Messages
6,174,121
Members
452,545
Latest member
boybenqn

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top