Excel - Makro att formatera rapport

Problem

Förhoppningsvis kan jag ord vad jag letar efter på ett sätt som är vettigt för alla. Jag har en kundrapport som jag kör och den exporterar på ett fult sätt.

Det ser ut så här:

 Adress Förort Postnummer Leveransanvisningar Telefonnummer Faxnummer E-postadress

Alla ovanstående uppgifter finns i kolumn A, och jag vill skapa ett makro som har informationen i kolumn AF så att varje rubrik har en ny kolumn.

Jag kan spela in egentligen grundläggande makron, så jag kommer antagligen behöva någon att skriva en för mig så jag kan enkelt kopiera och klistra in * ledsen *.

Förhoppningsvis är detta verkligen enkelt för någon och de är villiga att hjälpa mig. Några förslag / råd är mycket uppskattade!

Lösning

Mål:

Att dela upp linjer är en cell och flytta varje rad till en ny cell i samma rad.

antaganden:

1. Data startar vid ROW 2

2. Uppgifterna finns i kolumn A

3. Kolumn bredvid A är där data måste fyllas i

4. Varje rad i datacellerna ska flyttas till en ny cell i samma rad

Steg:

1. Läs antagandena

2. Gör en säkerhetskopia av filen

3. Tryck ALT + F11 och sätt in en ny modul

4. Klistra in koden (efter steg)

5. Kör koden

Koda:

 Sub SpiltData () Dimma lMaxRows Så länge Dim lRowBeanCounter Så länge Dim VPos Som Variant Dim sHold Som String Dim sTemp Som String Dim ICellCounter Som Integer Dim DimStartAtRow Så länge lStartAtRow = 1 lMaxRows = Cells (Rows.Count, "A"). xLUp) .Row För lRowBeanCounter = lStartAtRow Till lMaxRows sTemp = Cells (lRowBeanCounter, "A") iCellCounter = 2 Gör medan sTemp "" vPos = 0 vPos = InStr (1, sTemp, Chr (10)) Om vPos> 0 sedan sHold = Vänster (sTemp, vPos - 1) sTemp = Trim (Mid (sTemp, vPos + 1)) Annars sHold = sTemp sTemp = "" Avsluta om iCellCounter = iCellCounter + 1 celler (lRowBeanCounter, iCellCounter) = sHold Loop Nästa lRowBeanCounter End Sub