Excel - aruande makro

Probleem

Loodetavasti võin ma sõna otsida nii, et see oleks kõigile mõistlik. Mul on kliendiraport, mida ma juhin ja see ekspordib inetu viisil.

See näeb välja selline:

 Aadress Suburb State Postiindeks Kohaletoimetamise juhised Telefoninumber Faksinumber E-posti aadress 

Kõik ülaltoodud andmed on A-veerus ja sooviksin luua makro, millel on veerus AF olev teave, nii et igal rubriigil on uus veerg.

Ma saan salvestada tõesti põhilisi makroid, nii et mul on ilmselt vaja kedagi, kes kirjutab ühe minu jaoks, et saaksin lihtsalt * kopeerida ja kleepida *.

Loodetavasti on see kellelegi väga lihtne ja nad on valmis mind aitama. Kõik soovitused / nõuanded on väga teretulnud!

Lahendus

Eesmärk:

Liinide jagamiseks on rakk ja iga rida liigutatakse samasse ritta uude lahtrisse.

Eeldused:

1. Andmed algavad 2. real

2. Andmed on A veerus

3. Veeru kõrval asuv veerg on koht, kus andmed tuleb asustada

4. Iga andmelementide rida tuleks viia samasse ritta uude lahtrisse

Sammud:

1. Lugege eeldusi

2. Tehke failist varukoopia

3. Vajutage ALT + F11 ja sisestage uus moodul

4. Kleebi kood (pärast samme)

5. Käivitage kood

Kood:

 Alam SpiltData () Dim lMaxRows nii kaua kui lRowBeanCounter nii pika kui vPos Nagu variant Dim sHold as String Dim sTemp kui string Dim iCellCounter as Integer Dim lStartAtRow Nagu pikk lStartAtRow = 1 lMaxRows = Rakud (read.Count, "A"). xlUp) .Row for lRowBeanCounter = lStartAtRow To lMaxRows sTemp = Rakud (lRowBeanCounter, "A") iCellCounter = 2 Tehke, kui sTemp "" vPos = 0 vPos = InStr (1, sTemp, Chr (10)) Kui vPos> 0 Siis sHold = Vasak (sTemp, vPos - 1) sTemp = kärpimine (keskmine (sTemp, vPos + 1)) Else sHold = sTemp sTemp = "" lõpp Kui iCellCounter = iCellCounter + 1 lahtrit (lRowBeanCounter, iCellCounter) = sHold Loop Järgmine lRowBeanCounter Lõpu alam 

Märge

Täname rizvisa1 selle foorumi vihje eest.

Eelmine Artikkel Järgmine Artikkel

Top Näpunäited