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