Екцел - Макро за копирање / лепљење изабраног опсега

Питање

Имам сажетак података по мјесецима на једном листу и сирове податке у другом листу. Уместо креирања више радних листова за моје необрађене податке за сваки месец, желим да избришем податке претходног месеца и да их заменим новим подацима. Да бисте то урадили, морам да копирам формуле које су креирале резиме у другу колону (за нови месец), а затим копирам и налепите вредност сумарних података текућег месеца (тако да када се изворни изворни подаци промене, то не би променило моје вредности тамо).

Пример

 АБЦД Јан Феб Мар Апр 1 5 6 7

Волео бих да мој крајњи резултат изгледа (нпр. Копирајте из А3: А6 и залијепите на Б3. Затим ће следећег мјесеца копирати из Б3: Б6 и залијепити на Ц3, и тако даље).

 АБЦД јан феб мар апр 1 1 5 5 6 6 7 7

Јан и Феб су исти у овом тренутку јер ће се копирање и лепљење догодити пре него што се нови необрађени подаци замене.

Надам се да има смисла. Имам врло мало знања у писању ВБ-а, али могу да прочитам и разумем једноставне. Могао било тко помоћ мене са макро који ће то учинити аутоматски?

Решење

Овај макро користи улазно поље да пита који мјесец ажурирате. Користите нумеричке вредности уместо да куцате у месецу. Примјер: Јан. = 1, Феб. = 2, Мар. = 3. Претпостављам да не желите ажурирати сијечањ, тако да ће макронаредба изаћи ако је 1 унесен у улазни оквир (осим ако се не ажурира од просинца онда можемо промијенити то).

Надам се да ово помаже.

 Суб Упдате_Монтх () Дим одговор Ас Вариант Дим јј = 3 ансвер = ИнпутБок ("Који месец ажурирате?" & ВбЦрЛф & _ "Ек: јануар = 1, фебруар = 2, март = 3, итд.)" Изаберите одговор Случај 1 Излаз Суб Цасе 2 За ј = 3 до 6 Опсег ("Б" & ј) = Опсег ("А" & ј) Следећи ј Случај 3 За ј = 3 до 6 Опсег ("Ц" & ј) = Распон ( "Б" & ј) Даље ј Случај 4 За ј = 3 до 6 Опсег ("Д" & ј) = Опсег ("Ц" & ј) Следећи ј Случај 5 За ј = 3 до 6 Распон ("Е" & ј ) = Опсег ("Д" & ј) Даље ј Случај 6 За ј = 3 до 6 Опсег ("Ф" & ј) = Опсег ("Е" & ј) Даље ј Случај 7 За ј = 3 до 6 Распон (" Г "& ј) = Опсег (" Ф "& ј) Следећи ј Случај 8 За ј = 3 до 6 Опсег (" Х "& ј) = Опсег (" Г "& ј) Следећи ј Случај 9 За ј = 3 6 Опсег ("И" & ј) = Опсег ("Х" & ј) Следећи ј Случај 10 За ј = 3 до 6 Опсег ("Ј" & ј) = Распон ("И" & ј) Следећи ј Случај 11 ј = 3 до 6 Опсег ("К" & ј) = Опсег ("Ј" & ј) Следећи ј Случај 12 За ј = 3 до 6 Опсег ("Л" & ј) = Распон ("К" & ј) Следећи ј Енд Изаберите Енд Суб