Excel - Makro za formatiranje izvješća

Problem

Nadam se da mogu reći ono što tražim na način koji svima odgovara. Imam izvješće o klijentu da trčim i izvozi na ružan način.

Izgleda ovako:

 Adresa Predgrađe Država Poštanski broj Uputa za isporuku Broj telefona Broj faksa Adresa e-pošte

Sve gore navedene informacije nalaze se u stupcu A, a ja bih htio stvoriti makronaredbu koja ima informacije u stupcu AF tako da svaki naslov ima novi stupac.

Ja mogu snimiti stvarno osnovne makronaredbe, tako da ću vjerojatno trebati netko napisati jedan za mene tako da mogu jednostavno kopirati i zalijepiti * sorry *.

Nadam se da je ovo stvarno jednostavno nekome i da su mi voljni pomoći. Bilo koji sugestija / savjet je vrlo cijenjen!

Riješenje

Cilj:

Razdvajanje linija je ćelija i premještanje svake linije u novu ćeliju u istom retku.

pretpostavke:

1. Podaci počinju u ROW 2

2. Podaci su u stupcu A

3. Stupac pored slova A je mjesto gdje se podaci moraju popuniti

4. Svaki redak u ćelijama podataka treba premjestiti u novu ćeliju u istom retku

koraci:

1. Pročitajte pretpostavke

2. Izradite sigurnosnu kopiju datoteke

3. Pritisnite ALT + F11 i umetnite novi modul

4. Zalijepite kôd (nakon koraka)

5. Izvršite kôd

Kodirati:

 Sub SpiltData () Dim lMaxRows kao dugo Dim lRowBeanCounter Koliko dugo Dim vPos kao varijanta Dim sHold Kao String Dim sTemp As String Dim iCellCounter As Integer Dim lStartAtRow As Long lStartAtRow = 1 lMaxRows = Cells (Rows.Count, "A"). xlUp) .Row Za lRowBeanCounter = lStartAtRow Za lMaxRows sTemp = Ćelije (lRowBeanCounter, "A") iCellCounter = 2 Do while sTemp "" vPos = 0 vPos = InStr (1, sTemp, Chr (10)) Ako vPos> 0 Zatim sHold = Lijevo (sTemp, vPos - 1) sTemp = Trim (srednja (sTemp, vPos + 1)) Else sHold = sTemp sTemp = "" Kraj Ako je iCellCounter = iCellCounter + 1 ćelije (lRowBeanCounter, iCellCounter) = sHold Loop Sljedeća