Excel - Sorok másolása az 1. lapról a 2. lapra

Probléma

Van egy makró, amely másolja a sorokat az 1. lapról a 2. lapra. A fogás az 1-es lapból származik. A pl. Pl. Ezt a sort át kell másolni, és a lap 2. lapján 10-szer beilleszteni, majd másolni a következő sort az A4-es lapból, és ha 2-ben van az oszlopban, akkor 2-szer illessze be a 2-es lapot, és így tovább.

Megoldás

Feltételezem, hogy csak az A3-as adatokról van adat (szám)

lásd az alábbi mintaadatokat (ez az 1. lapon található)

A3 10

A4 az 2

most próbálja ki ezt a makrót, és lásd a 2. lapot

 Sub teszt () Dim r As Range, c As Range, dest As Range Dim j Hosszú, r1 Tartományi munkalapként ("sheet1") Aktiválja az r = Range (tartomány ("A3"), tartomány ("A3") .End (xlDown)) Minden c esetén rj = c.Value c.EntireRow.Copy munkalapokkal ("sheet2") Állítsa be az dest = .Cells (sorok.Count, "A") végét (xlUp) .Offset (1, 0) r1 = tartomány (dest, dest.Offset (j - 1, 0)) r1.PasteSpecial vége következő c alkalmazás.cutcopymode = false vége