- Макро ће додати лист са именом Мастер у вашу радну свеску и копираће ћелије са сваког листа у вашој радној свесци на овом радном листу.
- Први макро ради нормалну копију, а други макро копира вредности.
- Подређене макронаредбе користе доле наведене функције, макрое неће радити без функција.
Користите овај сх.Ровс ("1: 4"). Копирајте да бисте копирали више од једног реда.
Суб Тест4 () Дим сх Као радни лист Дим ДестСх Као радни лист Дим Ласт Ас Лонг Иф СхеетЕкистс ("Мастер") = Тачно МсгБок "Мастер листа већ постоји" Екит Суб Енд Иф Апплицатион.СцреенУпдатинг = Фалсе Сет ДестСх = Ворксхеетс.Адд ДестСх .Наме = "Мастер" За свако сх у овој радној свесци. Радни листови Ако је сх.Наме ДестСх.Наме Онда ако је сх.УседРанге.Цоунт> 1 Онда Ласт = ЛастРов (ДестСх) сх.Ровс ("1"). Копирај ДестСх.Целлс ( Ласт + 1, 1) Енд Иф Енд Иф Нект Апплицатион.СцреенУпдатинг = Труе Енд Суб Суб Тест4_Валуес () Дим сх Као радни лист Дим ДестСх Као радни лист Дим Ласт Ас Лонг Иф СхеетЕкистс ("Мастер") = Тачно МсгБок "Мастер листа већ постоје "Изађи под крај Ако је Апплицатион.СцреенУпдатинг = Фалсе Сет ДестСх = Ворксхеетс.Адд ДестСх.Наме =" Мастер "За сваки сх у ТхисВоркбоок.Ворксхеетс Иф сх.Наме ДестСх.Наме Тхен Иф сх.УседРанге.Цоунт> 1 Тхен Ласт = ЛастРов (ДестСх) Витх сх.Ровс ("1") ДестСх.Целлс (Ласт + 1, 1) .Ресизе (.Ровс.Цоунт, _ .Цолумнс.Цоунт) .Валуе = .Валуе Енд Витх Енд Иф Енд Иф Нект Апплицатион .Сцрее нУпдатинг = Труе Енд Суб Фунцтион ЛастРов (сх Ас Ворксхеет) Он Еррор Ресуме Нект ЛастРов = сх.Целлс.Финд (Вхат: = "*", _ Афтер: = сх.Ранге ("А1"), _ Лоокат: = клПарт, _ ЛоокИн: = клФормулас, _ СеарцхОрдер: = клБиРовс, _ СеарцхДирецтион: = клПревиоус, _ МатцхЦасе: = Фалсе). Грешка при поновном покретању Иди на 0 Крајња функција Функција Ластцол (сх Као радни лист) Укључено Грешка Настави Сљедећи Ластцол = сх.Целлс.Финд (Шта: = "*", _ После: = сх.Ранге ("А1"), _ Потражи: = клПарт, _ ЛоокИн: = клФормулас, _ Налог за претрагу: = клБиЦолумнс, _ Дирекција за претрагу: = клПретходно, _ Подударање: = Нетачно ). Колона Укључена грешка Иди на 0 Крај функције Функција СхеетЕкистс (СНаме Ас Стринг, _ Оптионал БиВал ВБ Ас Воркбоок) Ас Боолеан Он Еррор Настави даље Ако ВБ није ништа Затим поставите ВБ = ТхисВоркбоок СхеетЕкистс = ЦБоол (Лен (Схеетс (СНаме). )) Крај функција