photosdematures.com

Видели смо функцију транспоновања у Екцеловом радном листу када залепимо било коју табелу података на радни лист, а оно што транспонује је да мења положај редова и колона, тј. Редови постају колоне, а колоне постају редови у табели података, будући да је то радни лист функцију у ВБА користимо је са методом Апплицатион.ворксхеет у ВБА.

Како транспоновати у ВБА?

Промена редова и колона једна је од техника манипулације подацима коју готово сви корисници раде у екцелу. Процес претварања хоризонталних података у вертикалне и вертикалне податке у хоризонталне назива се „транспоновање“ у Екцелу. Сигуран сам да морате да будете упознати са транспоновањем на редовном радном листу, у овом чланку ћемо вам показати како се користи метода транспоновања у ВБА кодирању.

Можемо да транспонујемо у ВБА помоћу две методе.

1. Транспонујте помоћу ТРАНСПОСЕ формуле.
2. Транспонујте помоћу специјалне методе лепљења.

Када транспонујемо, замењујемо редове у колоне и колоне у редове. На пример, ако су подаци у низу 4 Кс 3, онда постају низ 3 Кс 4.

Погледајмо неке примере за транспоновање колоне у ред у ВБА.

# 1 - ВБА транспоновање помоћу ТРАНСПОСЕ формуле

Као што користимо ТРАНСПОСЕ у екцелу, слично томе можемо користити и ТРАНСПОСЕ формулу у ВБА. У ВБА немамо формулу ТРАНСПОСЕ, па морамо да користимо у класи функције Радни лист.

За пример погледајте доњу слику података.

Покушаћемо да пренесемо овај низ вредности. Следите кораке у наставку да бисте транспоновали податке.

Корак 1: Покрените потпоступак

Шифра:

 Суб Транспосе_Екампле1 () Енд Суб 

Корак 2: Прво морамо да одлучимо где ћемо транспоновати податке. У овоме сам изабрао да транспортујем из ћелије Д1 у Х2. Дакле, унесите ВБА код као Опсег („Д1: Х2“). Вредност =

Шифра:

 Суб Транспосе_Екампле1 () Опсег ("Д1: Х2"). Вредност = Крај Суб 

Корак 3: Сада нам је у горе поменутом опсегу потребна вредност опсега од А1 до Б5. Да бисте дошли до ове отворене класе „Функција радног листа“ и изабрали формулу „Транспозиција“.

Корак 4: У Арг 1 доставити опсег извора података тј. Домет („А1: Д5“).

Шифра:

 Суб Транспосе_Екампле1 () Ранге ("Д1: Х2"). Валуе = ВорксхеетФунцтион.Транспосе (Ранге ("А1: Д5")) Енд Суб 

У реду, завршили смо са ТРАНСПОСЕ кодирањем формуле. Сада покрените код да бисте видели резултат у опсегу ћелија од Д1 до Х2.

Као што смо видели горњу слику, претворио је опсег ћелија из колона у редове.

# 2 - ВБА транспоновање помоћу специјалне пасте пасте методе

Такође можемо да транспонујемо методом Пасте Специал. Узмите у обзир исте податке и за овај пример.

Прво што морамо да урадимо да бисмо транспоновали је копирање података. Зато напиши код као Домет („А1: Б5“). Копија

Шифра:

 Суб Транспосе_Екампле2 () Опсег ("А1: Б5"). Копирај Крај Суб 

Следећа ствар је да морамо да одлучимо где ћемо лепити податке. У овом случају, изабрао сам Д1 као жељену одредишну ћелију.

Шифра:

 Суб Транспосе_Екампле2 () опсег ("А1: Б5"). Опсег копирања ("Д1"). Енд Суб 

Једном када је изабрана жељена одредишна ћелија, морамо одабрати „Пасте Специал Метход“.

Помоћу пасте специал можемо да извршимо све радње које имамо помоћу уобичајених метода лепљења на радном листу.

Занемарите све параметре и одаберите последњи параметар, тј. Транспонујте и учините ово ТРУЕ.

Шифра:

 Суб Транспосе_Екампле2 () опсег ("А1: Б5"). Опсег копирања ("Д1"). ПастеСпециал Транспосе: = Труе Енд Суб 

Ово ће такође транспоновати податке као и претходни метод.

На овај начин можемо да користимо формулу ТРАНСПОСЕ или методу Пасте Специал да бисмо транспоновали податке за пребацивање редова у колоне и колоне у редове.

Ствари које треба запамтити

• Ако користимо функцију ТРАНСПОСЕ радног листа, обавезно је израчунати број редова и колона за транспоновање података. Ако имамо 5 редова и 3 колоне, онда током транспоновања постају 3 реда и 5 колона.
• Ако желите исто обликовање током коришћења пасте специал, онда морате користити аргумент Пасте Типе као „клПастеФорматс“

Овај ВБА Транспосе Екцел предложак можете преузети одавде - ВБА Транспосе Екцел Темплате