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