Excel - Macro pour formater le rapport

Problème

J'espère pouvoir dire ce que je recherche d'une manière qui ait du sens pour tout le monde. J'ai un rapport client que je publie et qui exporte d'une manière moche.

Cela ressemble à ceci:

 Adresse État de banlieue Code postal Instructions de livraison Numéro de téléphone Numéro de fax Adresse électronique

Toutes les informations ci-dessus sont dans la colonne A, et je voudrais créer une macro qui a les informations dans la colonne AF afin que chaque en-tête ait une nouvelle colonne.

Je peux enregistrer des macros très basiques, donc il me faudra probablement quelqu'un pour m'en écrire une pour pouvoir simplement copier et coller * désolé *.

J'espère que c'est très simple pour quelqu'un et qu'il est prêt à m'aider. Toutes les suggestions / conseils sont grandement appréciés!

Solution

Objectif:

Pour diviser des lignes est une cellule et déplacez chaque ligne vers une nouvelle cellule sur la même ligne.

Hypothèses:

1. Les données commencent à l’emprise 2

2. Les données sont dans la colonne A

3. La colonne à côté de A est l'endroit où les données doivent être renseignées

4. Chaque ligne des cellules de données doit être déplacée vers une nouvelle cellule de la même ligne.

Pas:

1. Lire les hypothèses

2. Faites une sauvegarde du fichier

3. Appuyez sur ALT + F11 et insérez un nouveau module

4. Collez le code (après les étapes)

5. Exécutez le code

Code:

 Sub SpiltData () Dim lMaxRows As Long Dim lRowBeanCounter As Long Dim vPos As Variant Dim sHold As String Stuemp 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 = Cellules (lRowBeanCounter, "A") iCellCounter = 2 Faites pendant que sTemp "" vPos = 0 vPos = InStr (1, sTemp, Chr (10) si v. = Left (sTemp, vPos - 1) sTemp = Trim (Mid (sTemp, vPos + 1)) Sinon sHold = sTemp sTemp = "" Fin si iCellCounter = iCellCounter + 1 cellules (lRowBeanCounter, iCellCounter) = sLold Paddle