Excel - Ismételje meg a sorokat meghatározott számú alkalommal

Az Excel munkalapok sorai egy meghatározott számú alkalommal megismételhetők egy felhasználó által definiált függvény segítségével. A felhasználó által definiált függvény megírható a sorok ismételt megismétlésével . Néhány tudás a programozási fogalmakról, mint például az if-akkor-más körülmények és a ciklusok szükségessége egy ilyen funkció írásához. A Selection.insert paranccsal sorokat adhatunk az Excel Office szoftver munkalapjához. Nem szükséges a kódot semmiből írni, mivel a kódrészletek szabadon hozzáférhetők a munkalapokban. Azonban biztosítani kell, hogy a felhasználó által definiált függvény vagy szubrutin meghatározott számú alkalommal megismételje a sorokat .

Probléma
Megoldás
jegyzet

Probléma

Tudja-e valaki, hogy ismételje meg a táblázatban lévő sorokat az adott sorban lévő cellában meghatározott számú alkalommal?

ebből a táblázatból:

A oszlop B oszlop

Péter 3

James 7

David 4

Szükségem van ennek a táblázatnak:

A oszlop B oszlop

Péter 3

James 7

David 4

Bármilyen ötlet egy egyszerű módja ennek?

Megoldás

Próbáld ezt:

 Sub CopyData ()
Dim lRow As Long
Dim RepeatFactor As változat
lRow = 1
Csináld (cellák (lRow, "A") "")
RepeatFactor = Cellák (lRow, "B")
Ha ((RepeatFactor> 1) és IsNumeric (RepeatFactor)) Ezután
Tartomány (cellák (lRow, "A"), cellák (lRow, "B"))
Tartomány (cellák (lRow + 1, "A"), cellák (lRow + RepeatFactor - 1, "B")).
Kijelölés.Kapcsolja a Shiftet: = xlDown
lRow = lRow + RepeatFactor - 1
Vége Ha
lRow = lRow + 1
Hurok
Vége vége