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