Excel - Makro zum Formatieren des Berichts

Problem

Hoffentlich kann ich das, wonach ich suche, so ausdrücken, dass es für jeden Sinn ergibt. Ich habe einen Kundenbericht, den ich laufe und der auf hässliche Weise exportiert.

Es sieht aus wie das:

 Adresse Vorortstaat Postleitzahl Lieferanweisung Telefonnummer Faxnummer E-Mail-Adresse

Alle obigen Informationen befinden sich in Spalte A, und ich möchte ein Makro erstellen, das die Informationen in Spalte AF enthält, sodass jede Überschrift eine neue Spalte enthält.

Ich kann wirklich einfache Makros aufnehmen, daher brauche ich wahrscheinlich jemanden, der mir eins schreibt, damit ich es einfach kopieren und einfügen kann * sorry *.

Hoffentlich ist das für jemanden wirklich einfach und er ist bereit, mir zu helfen. Anregungen / Ratschläge wird sehr geschätzt!

Lösung

Zielsetzung:

Zeilen teilen ist eine Zelle und verschiebt jede Zeile in eine neue Zelle in derselben Zeile.

Annahmen:

1. Daten beginnen bei REIHE 2

2. Die Daten befinden sich in Spalte A

3. In der Spalte neben A müssen die Daten ausgefüllt werden

4. Jede Zeile in den Datenzellen sollte in eine neue Zelle in derselben Zeile verschoben werden

Schritte:

1. Lesen Sie die Annahmen

2. Erstellen Sie eine Sicherungskopie der Datei

3. Drücken Sie ALT + F11, und fügen Sie ein neues Modul ein

4. Fügen Sie den Code ein (nach den Schritten)

5. Führen Sie den Code aus

Code:

 Sub SpiltData () Dim lMaxRows As Long Dim lRowBeanCounter As 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"). xlUp) .Row For lRowBeanCounter = lStartAtRow To lMaxRows sTemp = Cells (lRowBeanCounter, "A") iCellCounter = 2 Do While sTemp "" vPos = 0 vPos = InStr (1, sTemp, Chr (10) If vPos> 0 Then sH = Left (sTemp, vPos - 1) sTemp = Trim (Mid (sTemp, vPos + 1)) Else sHold = sTemp sTemp = "" End If iCellCounter = iCellCounter + 1 Cells (lRowBeanCounter, iCellCounter) = sHold Loop Next lRowBeanCounter End Sub