VBA of formule?

[jonajona25]

Beste mensen,
Ik probeer al tijden lang een begin te maken met VBA programmering in Excel. Denk ik eindelijk een regeltje in een macro op te kunnen nemen en uit te voeren lukt het nog niet! Het gaat om soortgelijke gegevens die allemaal in kolom A onder elkaar staan. van regel 1 t/m 921. Geen vast aantal regels per adres. Wat ik wil is bedrijfsnaam in kolom 1A, e-mail in 1B etc. Kan iemand me hiervoor een passende oplossing geven en eventueel erbij uitleggen hoe die daarbij is gekomen als het niet te moeilijk is?

Alvast dank!
Jonathan

Voorbeeld:

Somerset Chamber of Commerce & Industry
E-mail
manager@somerset-chamber.co.uk
Website
http://www.somerset-chamber.co.uk
Primary telephone:
01823 444924
Fax:
N/A
Equity House
Blackbrook Park Avenue
Blackbrook Business Park
Taunton
Somerset
TA1 2PX

Ayrshire Chamber of Commerce
E-mail
enquiries@ayrshire-chamber.org
Website
http://www.ayrshire-chamber.org/
Primary telephone:
01292 678666
Fax:
01292 678667

Suite 1005
Glasgow Prestwick International Airport
PRESTWICK
KA9 2PL
United Kingdom

 

[snb]

Wat je vraagt is niet simpel. Ik ga ervan uit dat tussen 2 adressen een lege rij zit.

sub voorbeeld()
  for each ar in sheets(1).columns(1).specialcells(2).areas
    ar.cells(1).offset(,1).resize(,ar.cells.count)=worksheetfunction.transpose(ar)
  next
End Sub

 

[jonajona25]

Formule of VBA

Thx voor je bericht! Echter weet ik ef niet hoe ik verder kan... Gezien ik geen blad/ kolom/ rij terug zie in het scriptje dat je schreef. Ik weet dus ook niet waar ik het kan plakken
Zou je ietsje duidelijker willen zijn?

Dank
Jonathan