„Excel“ - nukopijuokite eilutes iš 1 lapo į 2 lapą

Problema

Turiu turėti makrokomandą, kuri nukopijuos eilutes nuo 1 lapo iki 2 lapo. Gaudyklė yra iš 1 lapo A, pvz., A3 gali turėti 10 skaičių. Turiu nukopijuoti šią eilutę ir įklijuokite jį 10 kartų ant 2 lapo ir tada nukopijuokite kitą eilutę iš 1 A4 formato lapo ir, jei toje stulpelyje yra 2, įklijuokite jį 2 kartus 2 lape ir pan.

Sprendimas

Manau, kad turite duomenų (skaičių) tik iš A3

žr. toliau pateiktus mėginių duomenis (tai yra 1 lape)

A3 yra 10

A4 yra 2

dabar išbandykite šį makrokomandą ir žr

 Sub bandymas () Dim r Kaip diapazonas, c Kaip diapazonas, dest Kaip diapazonas Dim j Kaip ilgas, r1 kaip diapazono darbalapiai ("lapas1") Aktyvinti rinkinį r = intervalas (intervalas ("A3"), diapazonas ("A3") .End (xlDown)) Kiekvienam c Į rj = c.Value c.EntireRow.Copy With Worksheets ("sheet2") Nustatykite dest = .Cells (eilutės.Skaičiuoti, "A"). Pabaiga (xlUp)., 0) Nustatyti r1 = Diapazonas (dest, dest.Offset (j - 1, 0)) r1.PasteSpecial End su Next c application.cutcopymode = false Pabaigos pabaiga