Excel - rapport om een macro op te maken

Kwestie

Hopelijk kan ik zeggen wat ik zoek op een manier die voor iedereen zin heeft. Ik heb een klantenrapport dat ik gebruik en het exporteert op een lelijke manier.

Het ziet er zo uit:

 Adres Voorstadstatus Postcode Leveringsinstructies Telefoonnummer Faxnummer E-mailadres

Alle bovenstaande informatie staat in kolom A en ik wil graag een macro maken met de informatie in kolom-AF, dus elke kop heeft een nieuwe kolom.

Ik kan echt eenvoudige macro's opnemen, dus ik zal waarschijnlijk iemand nodig hebben om er een voor me te schrijven, zodat ik het * sorry * kan kopiëren en plakken.

Hopelijk is dit heel eenvoudig voor iemand en ze zijn bereid om me te helpen. Alle suggesties / adviezen worden zeer op prijs gesteld!

Oplossing

Doelstelling:

Splits lijnen is een cel en verplaats elke regel naar een nieuwe cel op dezelfde rij.

Veronderstellingen:

1. Gegevens beginnen bij RIJ 2

2. De gegevens staan in kolom A

3. Kolom naast A is waar de gegevens moeten worden ingevuld

4. Elke regel in de datacellen moet worden verplaatst naar een nieuwe cel in dezelfde rij

Stappen:

1. Lees de veronderstellingen

2. Maak een back-up van het bestand

3. Druk op ALT + F11 en plaats een nieuwe module

4. Plak de code (na stappen)

5. Voer de code uit

Code:

 Sub SpiltData () Dim lMaxRows als Long Dim lRowBeanCounter als Long Dim vPos As Variant Dim sHold As String Dim sTemp As String Dim iCellCounter As Integer Dim lStartAtRow As Long lStartAtRow = 1 lMaxRows = Cells (Rows.Count, "A"). Einde ( xlUp). Row For lRowBeanCounter = lStartAtRow naar lMaxRows sTemp = Cellen (lRowBeanCounter, "A") iCellCounter = 2 Do While sTemp "" vPos = 0 vPos = InStr (1, sTemp, Chr (10)) If vPos> 0 Then sHold = Links (sTemp, vPos - 1) sTemp = Trim (Mid (sTemp, vPos + 1)) Else sHold = sTemp sTemp = "" Einde Als iCellCounter = iCellCounter + 1 Cellen (lRowBeanCounter, iCellCounter) = sHold Loop Volgende lRowBeanCounter End Sub