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