Екцел - Поновите редове одређени број пута

Редови у радном листу програма Екцел могу се поновити одређени број пута уз помоћ кориснички дефинисане функције. Кориснички дефинисана функција може бити написана да понови редове одређени број пута . Нека сазнања о концептима програмирања као што су услови иф-тхен-елсе, а не док петље могу бити потребне за писање такве функције. Команда Селецтион.инсерт се може користити за убацивање редова у радни лист програма Екцел Оффице. Нема потребе за писањем кода од нуле, јер су исечци кода слободно доступни за употребу на радним листовима. Међутим, мора се осигурати да се кориснички дефинирана функција или потпрограм понављају редове одређеног броја пута на право мјесто.

Питање
Решење
Белешка

Питање

Да ли неко зна како да понови редове у табели одређеним бројем пута наведеним у ћелији која је присутна у том реду?

тј. из ове табеле:

Колона А Колона Б

Петер 3

Јамес 7

Давид 4

Морам да направим ову табелу:

Колона А Колона Б

Петер 3

Јамес 7

Давид 4

Има ли идеја о једноставном начину да се ово уради?

Решење

Пробајте ово:

 Суб ЦопиДата ()
Дим лРов Ас Лонг
Дим РепеатФацтор Ас Вариант
лРов = 1
До вхиле (ћелије (лРов, "А") "")
РепеатФацтор = Ћелије (лРов, "Б")
Иф ((РепеатФацтор> 1) И ИсНумериц (РепеатФацтор)) Затим
Опсег (ћелије (лРов, "А"), ћелије (лРов, "Б"))
Опсег (ћелије (лРов + 1, "А"), ћелије (лРов + РепеатФацтор - 1, "Б")).
Селецтион.Инсерт Схифт: = клДовн
лРов = лРов + РепеатФацтор - 1
Енд Иф
лРов = лРов + 1
Лооп
Енд Суб