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