Екцел - Пошаљи вредност ћелије у циљ

У Мицрософту, извршавање израчуна и поравнавање редовних записа може се обавити формулама у Екцел канцеларији. Слање вредности ћелије у Екцел-у у циљ може се извршити помоћу вредности копирања и уноса вредности у циљну ћелију. У колони А ако је вредност нула, ау колони К вредност је већа од нуле, копирајте вредност колоне "А" и налепите је у колону "К". Вредност колоне контролише се једноставним функцијама копирања у Виндовсу. Да бисте додали више колона, направите формулу као "Ц: К". Израчун се врши за следећу колону док се не достигне последња колона, а вредност се копира и налепи на циљани ступац.

Питање

Да ли је могуће послати вредност ћелије (копирај и залепи специјално) у другу ћелију где се вредност не би пореметила када се вредност извора промени у '0'?

Мој радни лист са калкулатором зарада добија информације са других радних листова сваке недеље у Екцел фајлу и израчунава платни списак за текућу недељу. Претходна седмица је имала вриједности, али сада, у текућој седмици, ћелије за претходну седмицу су 0.

Мој циљ је да задржим вредности претходне недеље у другом низу ћелија, тако да могу имати укупан број за месец.

Пример:

А3 има формулу:

 = ИФ (А3 = 'Калкулатор зарада'! М2, ВЛООКУП (Х1, 'Калкулатор зарада'! $ Б $ 3: $ М $ 28, 8, ФАЛСЕ), 0)

Та вредност треба да буде постављена на К3, али само ако је више од '0'.

Ако А3 врати вредност '0', било која вредност која је већа од '0' која је претходно била постављена у К3 би остала сама.

Лако сам ово радио ручно тако што сам једноставно копирао вредности које желим да сачувам, а затим помоћу 'пасте специал' команде и одабиром 'валуес', налепљене на циљ. "Прескочи празнине" не раде ништа. Макро:

Суб Мацро1 ()

'Мацро1 Мацро

Опсег ("Ц3")

АцтивеВиндов.СцроллРов = 10

Опсег ("Ц3: И52")

Селецтион.Цопи

Опсег ("К3")

Селецтион.ПастеСпециал Пасте: = клВалуес, Оператион: = клНоне, СкипБланкс: = _

Труе, Транспосе: = Фалсе

Опсег ("К3")

Апплицатион.ЦутЦопиМоде = Фалсе

Енд Суб

Преписује вредности претходних недеља са нулама било да изаберем да прескочим празнине или не (вероватно зато што су ћелије нуле, а не празне!)

Радим с низом А3: И54 и желим копирати и залијепити било које вриједности веће од '0' у К3: К54 задржавајући све вриједности које су претходно биле објављене у К3: К54 које су веће од '0'.

Решење

Можда ово може да вас доведе у правом смеру ако је моја интерпретација тачна.

Ово ће упоредити колону А са оним што је тренутно у колони К ........

А1 упоређује вредност у К1

А2 упоређује вредност у К2

етц ....

Ако је колона А нула и колона К је већа од нуле, онда задржите вредност у колони К. Иначе копирајте вредност у колону А у колону К.

 Суб Мацро1 () Дим јј = 3 До До Ранге ("А" & ј) = "" Ако је опсег ("А" & ј) = 0 Онда Распон ("К" & ј) = Распон ("К" & ј) Елсе Ранге ("К" & ј) = Распон ("А" и "ј") Крај Ако ј = ј + 1 крај петље

Да бисте додали више колона, макро изгледа као "Ц: К"

 Суб Мацро1 () Дим јј = 3 До До Ранге ("Ц" & ј) = "" Ако је опсег ("Ц" & ј) = 0 Онда Распон ("К" & ј) = Распон ("К" & ј) Други опсег ("К" & ј) = Распон ("Ц" & ј) Крај Ако Ако је Распон ("Д" & ј) = 0 Онда Распон ("Л" & ј) = Распон ("Л" & ј) Елсе Опсег ("Л" & ј) = Опсег ("Д" & ј) Крај Ако Ако је Распон ("Е" & ј) = 0 Онда Распон ("М" & ј) = Распон ("М" & ј) Елсе Ранге ("М" & ј) = Опсег ("Е" & ј) Крај Ако Ако је Распон ("Ф" & ј) = 0 Онда Распон ("Н" & ј) = Распон ("Н" & ј) Опсег опсега ( "Н" & ј) = Распон ("Ф" & ј) Крај Ако Ако је Распон ("Г" & ј) = 0 Онда Распон ("О" & ј) = Распон ("О" & ј) Елсе Ранге (" О "& ј) = Опсег (" Г "& ј) Крај Ако Ако је Распон (" Х "& ј) = 0 Онда Распон (" П "& ј) = Опсег (" П "& ј) Елсе Ранге (" П ") "& ј) = Опсег (" Х "& ј) Крај Ако Ако је Распон (" И "& ј) = 0 Онда Распон (" К "& ј) = Распон (" К "& ј) Елсе Ранге (" К ") & ј) = Опсег ("И" & ј) Крај Ако ј = ј + 1 Суб Енд крај петље