Прилично је ретка потреба за заменом ћелија на мјестима једни с другима када радите у Мицрософт Екцеловој таблици. Ипак, постоје такве ситуације и они морају бити решени. Хајде да сазнамо на који начин је могуће замијенити ћелије на местима у Екцелу.
Садржај
Нажалост, у стандардној алатној кутији таква функција не постоји, која би, без додатних радњи или без промјене опсега, могла промијенити двије ћелије на местима. Али, истовремено, иако ова процедура кретања није тако једноставна као што би волела, то се и даље може организирати на неколико начина.
Прво решење проблема укључује банално копирање података у одвојено подручје са накнадном заменом. Да видимо како је то учињено.
Сада су подаци о транзиту избрисани, а задатак покретања ћелија је завршен.
Наравно, овај метод није сасвим згодан и захтева много додатних акција. Ипак, он примјењује већину корисника.
Други начин, с којим је могуће заменити ћелије на мјестима, може се назвати једноставним повлачењем и пада. Истина, када се користи ова опција, ћелије ће се померити.
Изаберите ћелију коју желите да преместите на другу локацију. Поставите курсор на своју границу. У овом случају, она се мора трансформисати у стрелицу, на којој се налазе показивачи усмјерени у четири правца. Држали смо тастер Схифт на тастатури и превуцили га до места које желимо.
По правилу, ово би требало да буде суседна ћелија, јер када се креће на овај начин, цијели распон се помера.
Према томе, помицање кроз неколико ћелија често се дешава погрешно у контексту одређене табеле и користи се прилично ретко. Али сама потреба за промјеном садржаја региона далеко један од другог не нестаје, већ захтијева друга рјешења.
Као што је већ речено, у Екцелу нема брзог и коректног начина без копирања у транзитни опсег да бисте променили две ћелије међу собом ако нису у суседним подручјима. Али то се може постићи коришћењем макроа или додатака треће стране. Причаћемо о коришћењу једног таквог посебног макроа испод.
Sub ПеремещениеЯчеек()
Dim ra As Range: Set ra = Selection
msg1 = "Произведите выделение ДВУХ диапазонов идентичного размера"
msg2 = "Произведите выделение двух диапазонов ИДЕНТИЧНОГО размера"
If ra.Areas.Count 2 Then MsgBox msg1, vbCritical, "Проблема": Exit Sub
If ra.Areas(1).Count ra.Areas(2).Count Then MsgBox msg2, vbCritical, "Проблема": Exit Sub
Application.ScreenUpdating = False
arr2 = ra.Areas(2).Value
ra.Areas(2).Value = ra.Areas(1).Value
ra.Areas(1).Value = arr2
End Sub
Након уметања кода, затворите прозор едитора тако што ћете кликнути на стандардизовано дугме за затварање у горњем десном углу. Тако ће код бити уписан у меморију књиге и његов алгоритам се може репродуцирати да би се обавиле потребне операције.
Важно је напоменути да када затворите датотеку, макро се аутоматски брише, па следећи пут када га морате поново написати. Да не бисте сваки пут радили за одређену књигу, ако планирате трајно извршити такве кретање у вашој књизи, датотеку треба сачувати као Екцел радну свеску са подршком за макро (клсм).
Лекција: Како креирати макро у Екцелу
Као што видите, у Екцел-у постоји неколико начина за помјерање ћелија у односу на друге. Ово се може урадити са стандардним алатима програма, али ове опције су прилично неугодне и трају дуго. Срећом, постоје макрои и додатци произвођача независних произвођача који омогућавају што је могуће брзо и једноставно решавање задатка. Дакле, за кориснике који морају да константно примењују такве покрете, то је друга опција која ће бити најоптималнија.