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