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