Комбинујте више колона у један у Екцелу

Употреба овог макроа ће вам омогућити да транспонујете или конвертујете податке из више редова и колона у Мицрософт Екцел табелу у једну колону.
Конвертујте редове и колоне у једну колону
Рецимо да имате следеће податке у Екцел табели:480, 000 600, 000 720, 000520, 000 650, 000 780, 000
300, 000 375, 000 450, 000
432, 000 540, 000 648, 000
260, 000 325, 000 390, 000
304, 000 380, 000 456, 000
340, 000 425, 000 510, 000
304, 000 380, 000 456, 000
Наш макро ће вам омогућити да конвертујете горе наведене податке, тако да се овако чита у вашем документу:
480, 000520, 000
300, 000
432, 000
260, 000
304, 000
340, 000
304, 000
600, 000
650, 000
375, 000
540, 000
325, 000
380, 000
425, 000
380, 000
720, 000
780, 000
450, 000
648, 000
390, 000
456, 000
510, 000
456, 000
Овај макро програмиран је са претпоставком да се ваши подаци крећу од реда 1 до реда 8 и колона од А до Ц. Имајте на уму да можете да подесите макро тако да одговара тачном скупу података.
Такође имајте на уму да је макро тест оперативни макро, док ће ундо поништити резултат макроа.
Суб тест ()Дим ј Ас Лонг, к Ас Лонг, р Ас Ранге, дест Ас Ранге
ј = Распон ("А1"). Крај (клТоРигхт)
За к = 1 до ј
Постави р = Распон (ћелије (1, к), ћелије (1, к). Енд (клДовн))
р.Цопи
Сет дест = Целлс (Ровс.Цоунт, "А") Енд (клУп) .Оффсет (3, 0)
дест.ПастеСпециал
Нект к
Енд Суб
Суб поништи ()
Дим р Ас Ранге
Постави р = Распон ("а1"). Крај (клДовн) .Оффсет (1, 0)
Сет р = Ранге (р, Целлс (Ровс.Цоунт, "А"). Енд (клУп))
р.ЕнтиреРов.Делете
Енд Суб