Excel - Makro til at formatere rapport

Problem

Forhåbentlig kan jeg sige hvad jeg leder efter på en måde, der giver mening for alle. Jeg har en kunderapport, som jeg kører, og den eksporterer på en grim måde.

Det ser sådan ud:

 Adresse Forstad Postnr. Leveringsvejledning Telefonnummer Faxnummer E-mailadresse

Alle ovenstående oplysninger findes i kolonne A, og jeg vil gerne oprette en makro, der har oplysningerne i kolonne AF, så hver overskrift har en ny kolonne.

Jeg kan optage rigtig basale makroer, så jeg vil nok have brug for nogen til at skrive en til mig, så jeg kan simpelthen kopiere og indsætte * undskyld *.

Forhåbentlig er det virkelig enkelt at nogen, og de er villige til at hjælpe mig ud. Eventuelle forslag / råd er meget værdsat!

Opløsning

Objektiv:

At splitte linjer er en celle og flytte hver linje til en ny celle på samme række.

Forudsætninger:

1. Data starter ved ROW 2

2. Dataene findes i kolonne A

3. Kolonne ved siden af A er, hvor dataene skal befolkes

4. Hver linje i datacellerne skal flyttes til en ny celle i samme række

Steps:

1. Læs antagelserne

2. Lav en sikkerhedskopi af filen

3. Tryk ALT + F11 og indsæt et nyt modul

4. Indsæt koden (efter trin)

5. Udfør koden

Kode:

 Sub SpiltData () Dim lMaxRows As Long Dim lRowBeanCounter Så Lang Dim VPos Som Variant Dim sHold Som String Dim sTemp Som String Dim ICellCounter Som Integer Dim lStartAtRow Så Lang lStartAtRow = 1 lMaxRows = Cells (Rows.Count, "A"). xLUp) .Row For lRowBeanCounter = lStartAtRow Til lMaxRows sTemp = Celler (lRowBeanCounter, "A") iCellCounter = 2 Gør mens sTemp "" vPos = 0 vPos = InStr (1, sTemp, Chr (10)) Hvis vPos> 0 derefter sHold = Venstre (sTemp, vPos - 1) sTemp = Trim (Mid (sTemp, vPos + 1)) Ellers sHold = sTemp sTemp = "" Afslut, hvis iCellCounter = iCellCounter + 1 celler (lRowBeanCounter, iCellCounter) = sHold Loop Næste lRowBeanCounter End Sub