Excel - ridade X koopia kopeerimine

Makroid saab Exceli kontoritarkvaras kasutada ridade kopeerimiseks x korda . Korduvad ülesanded, nagu andmete kopeerimine ridadest, muutuvad käsitsi võimatuks, kui Exceli töölehe kirjete arv on liiga kõrge. Isegi väiksemate töölehtede puhul on soovitav kasutada töölehe X-kordade arvu ridade kopeerimiseks makroid . Makrod täidavad ülesande automaatselt minimaalse inimtegevusega, vähendades vigade võimalusi. Eelkirjeldatud makroid saab alla laadida erinevatest võrguressurssidest ja muuta soovitud ülesannete täitmiseks. Vajalikuks võib osutuda mõned teadmised programmeerimisest.

Probleem

Ma tahaksin võtta oma arvutustabelis esimese rea, kopeerida "X" mitu korda, seejärel võtta järgmine rida, kopeerige see sama "X" kordade arvuga, kuni ridade lõpuni.

Proov

 ColA ColB ColC TextA TextA1 TextA2 TextB1 TextB2 TextC2 tulemused (näiteks 3 korda) ColA ColB ColC TextA TextA1 TextA2 TextA1 TextA2 TextA TextA1 TextA2 TextB TextB1 TextB2 TextB TextB1 TextB2 TextB1 TextB1 TextB2 TextB1 TextB1 TextB2 TextB1 TextB1 TextC2 TextB1 TextB2 TextC1

Lahendus

See on makro:

 Alamtest () Mõõtmine vahemikuna, c kui vahemik Dim rng1 kui vahemik, c1 kui vahemik Dim dest As kui vahemik, j kui tervikuna, k kui terviku töölehtedena ("sheet2") Cells.Clear koos töölehtedega ("sheet1") rng = Range (.Range ("A2"), .Range ("A2"). End (xlDown)) j = WorksheetFunction.CountA (.Rows ("1: 1")) 'msgbox j Iga c jaoks rng1 = Range (c.Offset (0, 1), .Cells (c.Row, Columns.Count) .End (xlToLeft)) 'msgbox rng1.Address iga c1 jaoks rng1 Set dest = Töölehed ("sheet2"). Rakud (read.Count, "a"). End (xlUp) .Offset (1, 0) 'msgbox dest.Address Kui c1 = "" Siis GoTo line1 dest.Offset (0, 0) = c dest.Offset (0, 1) = .Cells (1, c1.Column) 'dest.Offset (0, 2) = c1 rida1: Järgmine c1 Järgmine c Lõpeta lõpus

Teine meetod - andmebaasi tabel .-

ref: wlakenbachi blogi

//spreadsheetpage.com / ...