Excel - Makro formát správy

Problém

Dúfajme, že môžem povedať, čo hľadám spôsobom, ktorý dáva zmysel všetkým. Mám zákaznícku správu, ktorú spúšťam, a vyváža ju škaredým spôsobom.

Vyzerá to takto:

 Adresa Suburb Štát PSČ Dodacie pokyny Telefónne číslo Faxové číslo E-mailová adresa

Všetky vyššie uvedené informácie sú v stĺpci A a chcel by som vytvoriť makro, ktoré obsahuje informácie v stĺpci AF, takže každý nadpis má nový stĺpec.

Môžem nahrávať naozaj základné makrá, takže budem pravdepodobne potrebovať niekoho, kto by mi to napísal, takže môžem jednoducho skopírovať a vložiť * ľúto *.

Dúfajme, že je to pre niekoho naozaj jednoduché a sú ochotní mi pomôcť. Akékoľvek návrhy / rady sú veľmi vítané!

Riešenie

cieľ:

Na rozdelenie riadkov je bunka a každý riadok sa presunie do novej bunky v tom istom riadku.

predpoklady:

1. Začiatok dát na ROW 2

2. Údaje sú uvedené v stĺpci A

3. Stĺpec vedľa A je miesto, kde sa údaje musia vyplniť

4. Každý riadok v bunkách údajov by mal byť presunutý do novej bunky v tom istom riadku

kroky:

1. Prečítajte si predpoklady

2. Vytvorte zálohu súboru

3. Stlačte ALT + F11 a vložte nový modul

4. Vložte kód (po krokoch)

5. Spustite kód

kód:

 Sub SpiltData () Dim lMaxRows ako dlhé Dim lRowBeanCounter ako dlhé Dim vPos ako variant Dim sHold As String Dim sTemp As String Dim iCellCounter Ako celé číslo Dim lStartAtRow As long lStartAtRow = 1 lMaxRows = Bunky (Rows.Count, "A"). xlUp) .Row Pre lRowBeanCounter = lStartAtRow Na lMaxRows sTemp = Bunky (lRowBeanCounter, "A") iCellCounter = 2 Do Zatiaľ čo sTemp "" vPos = 0 vPos = InStr (1, sTemp, Chr (10)) Ak vPos> 0 Potom sHold = Left (sTemp, vPos - 1) sTemp = Trim (Mid (sTemp, vPos + 1)) Else sHold = sTemp sTemp = "" Koniec Ak iCellCounter = iCellCounter + 1 buniek (lRowBeanCounter, iCellCounter) = sHold Loop Next lRowBeanCounter End Sub