Прескочи към основното съдържание Прескочи към навигацията

Как да размяня  клетки в Excel?

VBA за Excel

Здравейте, често ми се налага да разменям местата на информацията между две клетки. Примерно формула или текст от А10 да се прехвърли в В10, а тази от В10 в А10. Ще съм благодарна, ако споделите макрос или друга идейка.

Екранна снимка от форума

Здравейте, на картинката съм показала един от начините за размяна на местата на две клетки. Работи и за няколко маркирани съседни клетки, включително и цели колони. Размяната може да стане и по редове, в зависимост от изгледа на курсора преди пускане бутона на мишката.

Надявам се този метод да свърши работа!

Същата работа върши и следното: 1. Маркира се дясната или долна клетка (или съседни клетки, колона или ред) 2. Натиска се Ctrl + x 3. Маркира се съседната лява или горна клетка. 4. Натиска се Ctrl + + (Ctrl и +) С лаптоп съм и натискам Ctrl + Shift + =, не съм го пробвала директно с Ctrl + +

Лесно и удобно (нали се сещате как съм го правила до сега - по "бабешкия" начин) Благодаря!

Ако ползваме VBA :

Sub myrepl() Dim rrr As Integer, ccc As Integer ss = Selection.Count If ss <> 2 Then MsgBox "Трябва да са селектирани точно 2 клетки!" Exit Sub End If i = 0 For Each c In Selection i = i + 1 If i = 1 Then tt = c.Value rrr = c.Row ccc = c.Column End If If i = 2 Then Cells(rrr, ccc) = c.Value c.Value = tt End If Next End Sub

Благодаря но исках друго нещо да постигна. Вижте това https://aula.bg/u/MzgwODUzMDg2Ng и ако може някой да ми обясни как е постигнато. Ще ви бъда много благодарен !


Вашият отговор

Запиши се в Аула

или
Вашият имейл е защитен при нас.