Как переместить ячейки в excel с одного места на другое

Помогла ли Вам статья?

Во время работы в Эксель нередко возникает необходимость в изменении порядка ячеек, например, требуется поменять местами некоторые из них. Как это сделать разными способами, разберем в данной статье.

Процедура перемещения ячеек

Отдельной функции, позволяющей выполнить данную процедуру в программе Excel нет. А при использовании стандартных инструментов неизбежно будет происходить сдвиг остальных ячеек, которые нужно потом вернуть на место, что в результате приведет к дополнительным действиям. Однако методы для выполнения поставленной задачи есть, и о них пойдет речь ниже.

Метод 1: копирование

Это, пожалуй, самый простой способ, который предполагает копирование элементов в другое место с заменой начальных данных. Порядок действий следующий:

1. Встаем в первую ячейку (выделяем ее), которую планируем переместить. Находясь в главной вкладке программы нажимаем на кнопку “Копировать” (группа инструментов “Буфер обмена”). Также можно просто нажать комбинацию клавиш Ctrl+C.
2. Переходим в любую свободную ячейку на листе и нажимаем кнопку “Вставить” в той же вкладке и группе инструментов. Или можно снова воспользоваться горячими клавишами – Ctrl+V.
3. Теперь выделяем вторую ячейку, с которой хотим поменять местами первую, и также копируем ее.
4. Встаем в первую ячейку и жмем кнопку “Вставить” (или Ctrl+V).
5. Теперь выделяем ячейку, в которую было скопировано значение из первой ячейки и копируем ее.
6. Переходим во вторую ячейку, куда нужно вставить данные, и нажимаем соответствующую кнопку на ленте.
7. Выбранные элементы успешно поменяны местами. Ячейка, в которой временно размещались скопированные данные, больше не нужна. Щелкаем по ней правой кнопкой мыши и в открывшемся меню выбираем команду “Удалить”.
8. В зависимости от того, есть ли рядом с данной ячейкой заполненные элементы справа/снизу или нет, выбираем соответствующий вариант удаления и жмем кнопку OK.
9. Вот и все, что нужно было сделать для того, чтобы поменять ячейки местами.

Несмотря на то, что для реализации данного метода нужно выполнить немало дополнительных действий, все же, им пользуется наибольшее количество пользователей.

Метод 2: перетаскивание

Данный метод также применяется для того, чтобы поменять местами ячейки, однако, в этом случае будет происходить сдвиг ячеек. Итак, выполняем следующие действия:

1. Выбираем ячейку, которую планируем переместить в новое место. Наводим курсор мыши на ее границу, и как только он изменит вид на привычный указатель (с 4 стрелками в разные стороны на конце), нажав и не отпуская клавишу Shift, выполняем перенос ячейки в новое место с помощью зажатой левой кнопки мыши.
2. Чаще всего, этот метод используется для того, чтобы поменять местами соседние ячейки, так как сдвиг элементов в данном случае не нарушит структуру таблицы.
3. Если мы решим переместить ячейку через несколько других, это повлечет за собой изменение расположения всех остальных элементов.
4. После этого придется восстанавливать порядок.

Метод 3: использование макросов

Мы упоминали в начале статьи, что в Excel, увы, нет специального инструмента, позволяющего оперативно “перекинуть” местами ячейки (за исключением метода выше, который эффективен только для смежных элементов). Однако сделать это можно с помощью макросов:

1. Для начала нужно убедиться в том, что в приложении активирован так называемый “режим разработчика” (по умолчанию выключен). Для этого:
2. Переключаемся во вкладку “Разработчик”, где жмем по значку “Visual Basic” (группа инструментов “Код”).
3. В редакторе, нажав на кнопку “View Code”, вставляем в появившемся окне код ниже:
   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
4. Закрываем окно редактора, щелкнув привычную кнопку в виде крестика в верхнем правом углу.
5. Зажав клавишу Ctrl на клавиатуре выделяем две ячейки или две области с одинаковым количество элементов, которые планируем поменять местами. Затем нажимаем кнопку “Макросы” (вкладка “Разработчик”, группа “Код”).
6. Появится окно, в котором мы видим ранее созданный макрос. Выбираем его и щелкаем “Выполнить”.
7. В результате работы макрос поменяет местами содержимое выделенных ячеек.

Примечание: при закрытии документа макрос будет удален, поэтому, в следующий раз его нужно будет создавать заново (при необходимости). Но, если вы предполагаете, что в дальнейшем придется часто выполнять подобные операции, файл можно сохранить с поддержкой макросов.

Заключение

Работа с ячейками в таблице Эксель предполагает не только внесение, редактирование или удаление данных. Иногда требуется перенести или поменять местами ячейки, содержащие определенные значения. Несмотря на то, что в функционале Эксель нет отдельного инструмента для решения данной задачи, выполнить ее можно путем копирования и последующей вставки значений, переноса ячейки или использования макросов.

Перемещение столбцов в Microsoft Excel

​Смотрите также​Михаил С.​: Михаил С.​ Ваня Лункин Яша​Правда я не​ тут: =ПРАВСИМВ(A4;ДЛСТР(A4)-НАЙТИ(» «;A4))&»​.Item(«SwapRanges»).Delete​»Microsoft Visual Basic​Set tmpRng1 =​ макроса​ нужно поместить в​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub SwapRanges()​ Excel».​

Перемещение столбцов

​Копируем эту формулу​при перемещении зажимать​ выше, выделяем столбец,​.​При работе с таблицами​

Способ 1: копирование

​: И где конечный​Вася Пупкин Ваня​если возможно​ понимаю как, но​

1. ​ «&ЛЕВСИМВ(A4;НАЙТИ(» «;A4))​With .Add(Type:=msoControlButton, before:=1)​Run-time error ‘1004’:​ Range(Cells(.Row, .Column), Cells(.Row​’ Topic_URL: http://www.planetaexcel.ru/forum.php?thread_id=15210​ модуль в Personal.xls​​Dim ra As​​В большой таблице​

   

2. ​ вдоль строки. Получилось​ не нужно.​​ слева от которого​​Левой кнопкой мыши выделяем​​ иногда возникает потребность​​ результат?​ Нупкин Яша Лункин​Казанский​

   

3. ​ работает! =)​Заранее спасибо!​.Caption = «SwapRanges»​Method ‘OnKey’ of​ + .Rows.Count -​’ Post_Author: Alex_ST​ или в другую​ Range: Set ra​ Excel можно удалить​​ так.​​Как видим, существует несколько​

   

4. ​ нужно будет переместить​ столбец, который до​ поменять столбцы, расположенные​Зы. из такого​Пупкин Вася Нупкин​​: UDF. Попробуйте с​​Guest​​З.Ы. Officce 2010​​.OnAction = «SwapRanges»​

   

5. ​ object ‘.Application’ failed»​ 1, .Column))’ 1-й​’ Post_URL: http://www.planetaexcel.ru/forum.php?thread_id=15210​ книгу из автозагружаемых,​ = Selection​ сразу много лишних​Если скопируем эти​ способов поменять столбцы​​ колонку, вырезанную нами​​ этого создали. В​

​ в ней, местами.​ примера возникает ощущение​

Способ 2: вставка

​ Ваня Лункин Яша​ разным числом слов,​: =ПСТР(A1&» «&A1;1+ПОИСК(» «;A1);ДЛСТР(A1))​

1. ​Казанский​.FaceId = 203​Подскажите, пожалуйста, как​ столбец​’ DateTime: 13.04.10,​

   

2. ​ плюс сделать исполнение​msg1 = «Надо​ пустых строк. Специальной​ формулы в строке,​ местами. Есть как​​ ранее. Кликаем правой​​ контекстном меню в​ Давайте разберемся, как​ бессмысленной работы.​т.е. 1 слово​ в т.ч. нечетным.​слэн​​: В чем проблема?​​End With​​ от него избавится?​​Set tmpRng2 =​

   

3. ​ 16:33​ при загрузке кода​ выделить ДВА диапазона​ функции нет, но​ вниз по столбцам,​ довольно трудоёмкие, но​ кнопкой мыши. В​ блоке​ это сделать в​Казанский​​ со словом 2,​​Function ФЯ(txt As​

​: классно :)​ Формула работает. Ваш​End With​KuklP​ tmpRng1.Offset(0, 1)’ 2-й​’ Purpose: обменять​ типа этого:​ ячеек одинакового размера»​

Способ 3: продвинутый вариант перемещения

​ можно воспользоваться другой​ то можно перевернуть​ в то же​

1. ​ контекстном меню останавливаем​«Параметры вставки»​

   

2. ​ приложении Microsoft Excel​: > но с​ 3 слово со​​ String) As String​​ФЯ​ текст в столбце​On Error GoTo​: А в каком​ столбец правее на​

   
3. ​ ТЕКСТ двух выделенных​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Inic()​msg2 = «Надо​ функцией и применить​ всю таблицу, все​ время универсальные варианты​ выбор на пункте​выбираем значение​ без потери данных,​

​ макросами как то​ словом 4, 5​

​Dim s$(), i&​: Дорогие гуру!​ А. Введите эту​ 0​​ коде из этой​​ 1​ диапазонов или областей​

​With Application.CommandBars(«Cell»).Controls.Add(Type:=msoControlButton, before:=1)​ выделить 2 диапазона​ небольшую хитрость. Как​ строки. Получится так.​ действий, так и​«Вставить вырезанные ячейки»​«Вставить»​ но, при этом,​ редко работал и​ слово со словом​s = Split(txt)​

​А можете подсказать​

lumpics.ru

Как поменять местами столбцы в Excel.

​ формулу в яч.​​End Sub​ темы Вы видели​Else: Exit Sub​​’ Notes:​.Caption = «SwapRanges»​ ячеек ОДИНАКОВОГО размера»​​ это сделать, смотрите​Второй вариант.​​ более продвинутые, которые,​.​
​.​ как можно проще​ с ними не​ 6 менялись местами​For i =​ формулу что то​ В4, потом скопируйте​Wasilich​ Method ‘OnKey’?​End If​’—————————————————————————————​
​.OnAction = «SwapRanges»​
​If ra.Areas.Count <>​
​ в статье «Как​В ячейке А2​

​ правда, не всегда​После этого действия элементы​После того, как диапазон​ и быстрее.​ дружу..​ …​ 1 To UBound(s)​
​ на подобе этого​
​ эту ячейку на​: У меня тож​Alex_ST​

​Case 2′ выделено​If Not TypeName(Selection)​.FaceId = 203​ 2 Then MsgBox​ удалить пустые строки​ пишем такую формулу.​

​ работают на старых​
​ переместятся так, как​ вставлен в нужное​
​Скачать последнюю версию​
​Вот так это​
​Михаил С.​ Step 2​
​ же только надо​ весь диапазон в​ примерчик завалялся. Мож​
​:​ 2 области​ = «Range» Then​End With​ msg1, vbCritical, «Ошибка»:​
​ в Excel».​
​=ИНДЕКС(1:1;;ЧИСЛСТОЛБ($A$1:$E$1))​ версиях Excel.​ вы этого хотели.​

​ место, нам необходимо​
​ Excel​ выглядит в вашем​
​: если слов ВСЕГДА​
​ФЯ = ФЯ​ поменять 3 слова,​ ст. В.​

​ пригодится.​slavaleks​If .Areas(1).Columns.Count =​ Exit Sub​End Sub​
​ Exit Sub​Serge_007​В формуле:​Автор: Максим Тютюшев​ При необходимости, таким​ удалить исходную колонку.​В Экселе колонки можно​ файле. ИМХО ничего​ шесть и нет​
​ & » «​тоесть в одной​Если надо обработать​slavaleks​, в этом посте​ .Areas(2).Columns.Count And _​Dim tmpVar1, tmpVar2​Т.е. при загрузке​If ra.Areas(1).Count <>​: В Excel нет​1:1 — это​Чтобы​

excel-office.ru

Поменять местами данные

​ же образом можно​​ Правой кнопкой мыши​ поменять несколькими способами,​ сложного.​ знаков препинания, и​ & s(i) &​ ечейке А1 типа​ данные «на месте»,​

​: Alex_ST, Всё работает​ съехал текст кода.​.Areas(1).Rows.Count = .Areas(2).Rows.Count​Dim tmpRng1 As​ и выгрузки такие​ ra.Areas(2).Count Then MsgBox​ встроенных средств обоюдного​ диапазон всей строки;​в таблице Excel перевернуть​
​ перемещать группы колонок,​

​ кликаем по её​​ как довольно трудоёмкими,​​ФЯ​
​ нужно поменять попарно​
​ » » &​ товары :​ то та же​ супер, за что,​Вы подправили у​ Then’ одинаковая размерность​ Range, tmpRng2 As​ коды (обеспечение менюшки):​ msg2, vbCritical, «Ошибка»:​
​ переноса данных (например​
​$A$1:$E$1 — это​
​ строку слева на​
​ выделяя для этого​
​ заголовку. В контекстном​
​ так и более​: Казанский,​ - то можно​
​ s(i - 1)​Вася Пупкин Вася​ формула в макросе:​
​ премного благодарен!​ себя? Если нет,​ областей​
​ Range​Код200?'200px':''+(this.scrollHeight+5)+'px');">Private Sub Workbook_BeforeClose(Cancel​ Exit Sub​ поменять местами значения​
​ диапазон строки в​ право​ соответствующий диапазон.​ меню выбираем пункт​
​ прогрессивными.​
​Благодарю, за помощь,​
​ одной формулой.​
​Next​
​ Пупкин Вася Пупкин​
​ Sub bb() With​Вот ещё дилетантский​ подождите пока Игорь​
​Set tmpRng1 =​With Selection​ As Boolean)​
​Application.ScreenUpdating = False​
​ А1 и В1​ нашей таблице.​, перенести данные из​Существует также более простой​

​«Удалить»​​Данный способ универсальный, так​ начинают нравится работа​
​ФЯ​If i =​поменять местами в​ Range(«A1», Cells(Rows.Count, «A»).End(xlUp))​ вопрос остался. Это​ не исправит. Я​ .Areas(1): Set tmpRng2​

​’With Intersect(Selection, Selection.Parent.UsedRange)​​On Error Resume​arr2 = ra.Areas(2).Value​
​ одним кликом). Как​В ячейке В2​ последних ячеек в​ и продвинутый способ​.​ как подходит даже​ с макросами благодаря​: слов не всегда​
​ UBound(s) + 1​
​ В1 3 раза​
​ .Value = Evaluate(Replace("INDEX(RIGHT(~,LEN(~)-FIND(""​
​ нормально, что при​
​ ему в личку​
​ = .Areas(2)​
​Select Case .Areas.Count​

​ Next​ra.Areas(2).Value = ra.Areas(1).Value​ это реализовать макросом?​
​ пишем такую же​ первые,​
​ перемещения.​На этом перемещение элементов​
​ для очень старых​
​ Вам.​
​ шесть, и бываю​
​ Then ФЯ =​ или 3 слова​
​ «»,~))&»» «»&LEFT(~,FIND(«» «»,~)-1),)»,​
​ выполнении любого макроса​ просьбу об этом​
​End If​
​Case 1′ выделена​
​Application.CommandBars(«Cell»).Controls.Item(«SwapRanges»).Delete​ra.Areas(1).Value = arr2​Как это должно работать​ формулу, но добавляем​перевернуть таблицу в Excel​Выделяем столбец, который хотим​

​ будет завершено.​​ версий Excel.​Можно у Вас​ знаки но редко​
​ ФЯ & "​
​ чтоб вышло так:​
​ "~", .Address)) End​
​ у меня не​
​ кинул.​Case Else: Exit​ 1 область​End Sub​
​End Sub​
​ (один из вариантов):​
​ «-СТОЛБЕЦ (А1)». Получилась​
​ по горизонтали,​ переместить.​
​Впрочем, существует и более​Кликаем по любой ячейке​ еще спросить ,​
​ знаки припинания.​
​ " & s(i​
​Пупкин Вася Пупкин​ With End Sub​ работает "Шаг назад"​
​Отображение кода​
​ Sub​If .Count =​Private Sub Workbook_Open()​
​А вот пример​
​ Выделяю с нажатым​
​ такая формула.​
​нужно использовать функции​Перемещаем курсор на границу​
​ простой вариант перемещения​ столбца, слева от​ как сделать так​
​Z​ - 1)​ Вася Пупкин Вася​
​Susliks​ Ctrl+Z?​Hugo​End Select​ 2 Then' выделено​
​On Error Resume​ файла с макросом:​ Ctrl два диапазона​=ИНДЕКС(1:1;;ЧИСЛСТОЛБ($A$1:$E$1)-СТОЛБЕЦ(A1))​ Excel.​
​ выделенной области. Одновременно​ в Экселе.​ которого мы планируем​ чтобы не все​
​: Повторение - мать​ФЯ = Mid$(ФЯ,​Заранее благодарен если​: Спасибо огромное!​Serge_007​
​починил.​End With​ 2 ячейки​ Next​ http://excelvba.ru/XL_Files/Sample__11-08-2010__16-45-29.zip​
​ - ПКМ -​Копируем эту формулу​Например, есть таблица​ зажимаем​
​Кликаем по горизонтальной панели​
​ перенести другую колонку.​
​ менялось если длинное​ учения, у вас​
​ 2)​ это возможно!!!​
​Через макрос получается​: Нормально​Alex_ST​
​Application.ScreenUpdating = False:​Set tmpRng1 =​Application.CommandBars("Cell").Controls.Item("SwapRanges").Delete​
​(запуск макроса нажатием​
​ Поменять местами. Теперь​ по строке. Получилась​
​ с большим списком​
​Shift​
​ координат с буквой,​ В контекстном списке​
​ предложение, а только​ незачет по Правилам​
​End Function​ShAM​
​ то что мне​mixanic​
​: Ну, пока делать​

​ Application.EnableEvents = False​​ .Cells(1): Set tmpRng2​

​On Error GoTo​​ Ctrl + Shift​
​ содержимое ячейки А1​
​ такая таблица.​ с фамилией в​на клавиатуре и​ обозначающей адрес для​
​ выбираем пункт​ 6 слов первых,​ — см. скрин…​ФЯ​
​: Если «Вася Пупкин»​
​ надо​
​: Подскажите, как сделать​ было нечего я​
​tmpVar1 = tmpRng1:​ = .Cells(2)​

​ 0​​ + S)​ находится в В1​Третий вариант.​ первом столбце, а​

​ левую кнопку мыши.​​ того, чтобы выделить​​«Вставить…»​​ если это возможно…​ -92988- Прикрепленные​
​: Спасибо Казанский за​ повторяется 3 раза​psycho​ чтобы формулы тоже​ сам поправил и​ tmpVar2 = tmpRng2​ElseIf .Rows.Count =​
​Inic​​==============================================================​​ и наоборот.​

​Пишем такую формулу​​ имя написано во​ Передвигаем мышь в​ весь столбец.​.​Казанский​ файлы post_343399.jpg (41​​ вариант ,​​ (а не, например,​
​: Добрый день, уважаемы​​ переносились !?​​ чуть сократил то,​tmpRng1.Value = tmpVar2:​​ 2 And .Columns.Count​End Sub​
​Добавлю от себя​Спасибо.​
​ в первой ячейке.​
​ втором столбце. Нам​
​ сторону места, куда​
​Кликаем по выделенной области​Появляется небольшое окошко. Выбираем​
​: Всего лишь параметр​
​ КБ)​
​но с макросами​
​ "Вася Пупкин Ваня​
​ знатоки excell!​
​Susliks​
​ что исказилось в​
​ tmpRng2.Value = tmpVar1​
​ > 2 Then'​Можно вероятно эти​
​ - переносятся только​


​Hugo​​=ИНДЕКС($A6:$J6;;СЧЁТЗ($A6:$J6)-СТОЛБЕЦ()+1)​ нужно переделать список,​ нужно переместить колонку.​

​ правой кнопкой мыши​​ в нём значение​ дописать :)​Михаил С.​
​ как то редко​ Нупкин Яша Лункин»),​Подскажите, пожалуйста, каким​: Всем привет!​ посте​Application.EnableEvents = True:​ выделен горизонтальный диапазон​

​ коды совместить, но​​ значения, формулы затираются,​

​: Из закромов​​Копируем эту формулу​ чтобы имя было​Во время перемещения характерная​

excelworld.ru

Поменять слова местами в пределах одной ячейки.

​ и в открывшемся​​«Столбец»​
​s = Split(txt,​: Одна формула с​ работал и с​
​ то формула от​ образом можно поменять​Возможно боян, но​Hugo​
​ Application.ScreenUpdating = True​ в 2 строки​ у меня так​ форматирование остаётся старым.​
​:​ по всей строке.​ написано в первом​ линия между столбцами​ меню останавливаем выбор​. Кликаем по элементу​ , 7)​
​ этим делом не​
​ ними не дружу..​

​ 19.11.2010, 13:31 выполняет​​ местами слова в​ поиск мне не​.​End Sub​Set tmpRng1 =​ работает, правда задачу​Serge_007​==============================================================​ Получилось.​
​ столбце, а фамилия​ показывает, куда будет​ на пункте​«OK»​Как в экселе 2007​ справится.​мне б вариат​ то, что вы​ ячейке?​ помог​

​В​​Serge_007​
​ Range(Cells(.Row, .Column), Cells(.Row,​ другую в итоге​: Игорь, спасибо, это​

CyberForum.ru

Как поменять местами слова в ячейке

​ .Column + .Columns.Count​​ выполняет.​ то что нужно.​

​ помощью макроса в​​ строке можно скопировать​
​Есть несколько вариантов.​
​ После того, как​. Вместо этого, можно​ колонка в таблице​

​В данном примере,​​ случае нужен пример​

​ нибудь подсказал бы…​​ФЯ​

​: Hugo,​​ строка диапазона​: Я на Планете​ повестить код на​ выделенные ячейки (ну​ и развернуть таблицу​У нас такая​ нужном месте, следует​ с точно таким​Делаем клик правой кнопкой​

​ поставить на место,​​ — не мне​
​Михаил С.​
​=ПСТР(A1&» «&A1;1+ПОИСК(» «;A1);ДЛСТР(A1))​
​нужно сделать -​ местами.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Workbook_BeforeClose(Cancel As​
​======================================================================​Set tmpRng2 =​ уже выкладывал такое​
​ ПКМ, а не​
​ или выделенные строки/столбцы),​ в Excel.​
​ строка.​

​On Error Resume​​ нужный макрос -​ строка ниже на​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Selection_eXchange()​ Плюс работать это​ строки/столбцы) не являются​ поменять местами строки​
​ в строке было​После этого нужные колонки​ во вкладке​
​ где указано наименование​

​: Вставить пустую строку,​​ФЯ​ что надо), но,​ Ваня Нупкин Яша​Заранее благодарю!​ Лебедев» (строк более​ Next​ это то что​ 1​

​ 100)​​Application.CommandBars(«Cell»).Controls.Item(«SwapRanges»).Delete​ я искал!​ElseIf .Columns.Count =​’ Procedure: Selection_eXchange​ книге…​ произвольно выбранными пользователем.​

​ развернуть таблицу. Подробнее​​ Чт, Ср, Вт,​Внимание! Если вы используете​в блоке инструментов​ мы хотим переместить.​

​ вырезать — вставить​​ словом 2, 3​ это дело сложно…​результат Пупкин Ваня​: За вами не​Вся соль проблемы,​End Sub​Одна ,блин, незадачка​

​ слово со словом​​ Скорее всего придется​ Нупкин Яша Лункин​ угонишся )​ что необходимо сделать​Private Sub Workbook_Open()​ — при смене​

​ > 2 Then’​​’ Topic_HEADER :​: Это можно, но​
​VBA Developer​ в статье «Как​ А2 пишем такую​

​ (2007 и ранее),​​.​ останавливаем выбор на​: тупо переташи мышкой​ 4, 5 слово​ использовать несколько доп.​
​ Вася​Guest​ это в пределах​On Error Resume​

planetaexcel.ru

Как в экселе 2007 поменять строки местами?

​ как было указано​​«Копировать»​: с помощью мышки​ менялись местами​

​ФЯ​​Пупкин Вася Нупкин​

​Работает!​​ создавая дополнительную), как​

​With Application.CommandBars(«Cell»).Controls​

Изменение порядка ячеек часто необходимо выполнить при трансформировании таблиц, форматировании текста и всего содержимого электронного листа в Microsoft Excel в целом. У новичков порой возникает проблема с данным вопросом, поэтому в этой статье мы поможем избавиться от подобных трудностей несколькими способами.

Первый способ: копирование

Так как отдельной функции, специально предназначенной для переноса ячеек с одной части листа на другую, не существует, придется воспользоваться другими методами. Итак, первый из них — это копирование. Производится пошагово следующим образом:

1. У нас есть таблица с сохраненными данными. Из нее необходимо перенести несколько ячеек в произвольную часть листа. Для этого кликаем по одной из них, затем в панели инструментов во вкладке «Главная» находим значение «Копировать». Также можно выделив ячейку, сделать клик правой кнопкой мыши и выбрать «Копировать» через контекстное меню. Быстрый способ скопировать данные — одновременно нажать комбинацию клавиш «Ctrl+C».

1

1. Проверяем скопировалось ли значение. Для этого заходим в «Буфер обмена». Он расположен во вкладке «Главная» в первом блоке. Кликаем по стрелке вниз и в открывшемся окне слева видим скопированный только что текст или число. Это значит, что копирование данных выполнить удалось.

Обратите внимание! Если нажать «Очистить все», то копирование придется сделать заново, потому как данные удалятся.

2

1. Теперь на листе выбираем место, в которое желаем переместить содержимое ячейки, нажимаем комбинацию клавиш «Ctrl+V» или же вызываем контекстное меню с помощью ПКМ, где кликаем по пункту «Вставить». Можно пользоваться инструментом «Специальная вкладка», который позволяет выполнить настройку вставки скопированного значения.

3

1. Аналогично переносятся все оставшиеся ячейки, если это необходимо. Чтобы перенести всю таблицу в целом, следует полностью выполнить выделение всего диапазона. После того, как все элементы перенесены, можно отформатировать прежнюю часть листа, на которой еще остались оригинальные данные.

Второй способ: сдвиг ячеек

Иначе это называется перетаскивание. Выполнить его не сложно, главное проследить, чтобы все данные были скопированы, иначе перенос будет выполнен с искажением. Рассмотрим подробности в алгоритме ниже:

1. Наводим курсор мыши на границу той ячейки, которую нужно перенести на другую часть листа. Обратите внимание, что курсор должен превратиться в крестообразный значок. После этого зажимаем клавишу мыши и перетаскиваем ячейку в нужное место.
2. Также можно сделать перемещение одной ячейки на несколько ступеней вверх или вниз. Для этого также выделим ячейку, перенесем ее на нужное место, после чего выровняем порядок оставшихся окошек, которые сместились вследствие переноса.

При таком способе выделенные ячейки переходят в другую область, при этом все содержимое внутри них сохраняется, а прежние места становятся пустыми.

Третий способ: применение макросов

Данной опцией можно воспользоваться, если макросы по умолчанию установлены в Excel, в противном случае их придется добавить через систему внутренних настроек. Разберем детали выбранного способа:

1. Переходим в меню «Файл», затем в нижней части списка переходим к пункту «Параметры».

4

1. Открывается окно «Параметры Excel», здесь необходимо кликнуть по пункту «Настроить ленту» и поставить галочку напротив пункта «Разработчик». Подтверждаем свои действия кнопкой «ОК».

Сразу обратите внимание на панель вкладок, вкладка с названием «Разработчик должна появиться в самом конце.

5

1. После переключаемся на вкладку «Разработчик», в ней находим инструмент «Visual Basic». Visual Basic — это индивидуальный редактор данных. Необходимо дождаться загрузки дополнительного окна.

6

1. После открытия вспомогательной программы настроек ищем блок инструментов «Код», он нам и потребуется для корректного редактирования. Находим раздел «View Code», в открывшееся поле вставляем специальный код, который указан ниже:

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

1. Следом жмем кнопку «Enter», чтобы данные сохранились. После сохранения можно закрыть окно редактора и продолжить редактирование.

7

1. Зажимаем клавишу «Ctrl», затем выделяем одинаковое количество строк и столбцов, чтобы получился равномерный со всех сторон диапазон. Теперь переходим к разделу «Макросы» в панели инструментов, кликаем по нему, открывается окно с функцией. Жмем кнопку «Выполнить».

8

1. Итог данного процесса — смена местоположения ячеек в пределах одного листа.

На заметку! Существует возможность переноса индивидуальных ячеек и их диапазонов с одного листа Excel на другой, причем для этого используется только один многостраничный файл.

Подведем итоги

Для новичков больше подойдут первые два варианта переноса ячеек. Они не требуют углубленных знаний программы Microsoft Excel и работают в разных версиях табличного процессора. Что касается макросов, то использование данной методики довольно сложное, очень важно ничего не перепутать, иначе велик риск совершить ошибку и вовсе отформатировать всю страницу без возврата данных, поэтому при переносе ячеек рекомендуется быть предельно внимательными.

Как поменять местами ячейки в Excel

Во время работы в Эксель нередко возникает необходимость в изменении порядка ячеек, например, требуется поменять местами некоторые из них. Как это сделать разными способами, разберем в данной статье.

Процедура перемещения ячеек

Отдельной функции, позволяющей выполнить данную процедуру в программе Excel нет. А при использовании стандартных инструментов неизбежно будет происходить сдвиг остальных ячеек, которые нужно потом вернуть на место, что в результате приведет к дополнительным действиям. Однако методы для выполнения поставленной задачи есть, и о них пойдет речь ниже.

Метод 1: копирование

Это, пожалуй, самый простой способ, который предполагает копирование элементов в другое место с заменой начальных данных. Порядок действий следующий:

1. Встаем в первую ячейку (выделяем ее), которую планируем переместить. Находясь в главной вкладке программы нажимаем на кнопку “Копировать” (группа инструментов “Буфер обмена”). Также можно просто нажать комбинацию клавиш Ctrl+C.

Переходим в любую свободную ячейку на листе и нажимаем кнопку “Вставить” в той же вкладке и группе инструментов. Или можно снова воспользоваться горячими клавишами – Ctrl+V.

Теперь выделяем вторую ячейку, с которой хотим поменять местами первую, и также копируем ее.

Встаем в первую ячейку и жмем кнопку “Вставить” (или Ctrl+V).

Теперь выделяем ячейку, в которую было скопировано значение из первой ячейки и копируем ее.

Переходим во вторую ячейку, куда нужно вставить данные, и нажимаем соответствующую кнопку на ленте.

Выбранные элементы успешно поменяны местами. Ячейка, в которой временно размещались скопированные данные, больше не нужна. Щелкаем по ней правой кнопкой мыши и в открывшемся меню выбираем команду “Удалить”.

В зависимости от того, есть ли рядом с данной ячейкой заполненные элементы справа/снизу или нет, выбираем соответствующий вариант удаления и жмем кнопку OK.

Несмотря на то, что для реализации данного метода нужно выполнить немало дополнительных действий, все же, им пользуется наибольшее количество пользователей.

Метод 2: перетаскивание

Данный метод также применяется для того, чтобы поменять местами ячейки, однако, в этом случае будет происходить сдвиг ячеек. Итак, выполняем следующие действия:

Выбираем ячейку, которую планируем переместить в новое место. Наводим курсор мыши на ее границу, и как только он изменит вид на привычный указатель (с 4 стрелками в разные стороны на конце), нажав и не отпуская клавишу Shift, выполняем перенос ячейки в новое место с помощью зажатой левой кнопки мыши.

Чаще всего, этот метод используется для того, чтобы поменять местами соседние ячейки, так как сдвиг элементов в данном случае не нарушит структуру таблицы.

Если мы решим переместить ячейку через несколько других, это повлечет за собой изменение расположения всех остальных элементов.

После этого придется восстанавливать порядок.

Метод 3: использование макросов

Мы упоминали в начале статьи, что в Excel, увы, нет специального инструмента, позволяющего оперативно “перекинуть” местами ячейки (за исключением метода выше, который эффективен только для смежных элементов). Однако сделать это можно с помощью макросов:

1. Для начала нужно убедиться в том, что в приложении активирован так называемый “режим разработчика” (по умолчанию выключен). Для этого:
2. Переключаемся во вкладку “Разработчик”, где жмем по значку “Visual Basic” (группа инструментов “Код”).
3. В редакторе, нажав на кнопку “View Code”, вставляем в появившемся окне код ниже:
   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
4. Закрываем окно редактора, щелкнув привычную кнопку в виде крестика в верхнем правом углу.
5. Зажав клавишу Ctrl на клавиатуре выделяем две ячейки или две области с одинаковым количество элементов, которые планируем поменять местами. Затем нажимаем кнопку “Макросы” (вкладка “Разработчик”, группа “Код”).
6. Появится окно, в котором мы видим ранее созданный макрос. Выбираем его и щелкаем “Выполнить”.
7. В результате работы макрос поменяет местами содержимое выделенных ячеек.

Примечание: при закрытии документа макрос будет удален, поэтому, в следующий раз его нужно будет создавать заново (при необходимости). Но, если вы предполагаете, что в дальнейшем придется часто выполнять подобные операции, файл можно сохранить с поддержкой макросов.

Заключение

Работа с ячейками в таблице Эксель предполагает не только внесение, редактирование или удаление данных. Иногда требуется перенести или поменять местами ячейки, содержащие определенные значения. Несмотря на то, что в функционале Эксель нет отдельного инструмента для решения данной задачи, выполнить ее можно путем копирования и последующей вставки значений, переноса ячейки или использования макросов.

Как в Excel поменять столбцы местами

В этой статье мы разберем как поменять столбцы в Excel местами. Существует несколько способов как это сделать.

Как поменять местами столбцы в Excel с помощью перемещения мышкой и клавиши Shift

Итак, представим, что у нас есть таблица с данными по продажам товаров магазина:

Наша задача переместить столбец с данными количества продаж из столбца “С” на место столбца “В”.

Для этого проделаем следующие действия:

• Зажав левую клавишу мыши выделим диапазон данных столбца, который мы хотим переместить:

• Зажмем клавишу “Shift” на клавиатуре и поднесем курс мыши к границе выделенного диапазона до появления всесторонней стрелки;
• Оставляя зажатыми клавишу “Shift” и левую клавишу мыши перенесем столбец с данными с помощью мышки туда куда нам необходимо:

Как итог, получим перенесенный столбец без потери данных. Задача выполнена:

Как поменять местами столбцы с помощью горячих клавиш

Для того чтобы поменять столбцы в Excel местами с помощью горячих клавиш или функций “Вырезать”/”Вставить” – проделаем следующие шаги:

• Выделим весь столбец с данными в Excel, кликнув по заголовку:

• Нажмем сочетание клавиш на клавиатуре “Ctrl + X” для того чтобы “вырезать” столбец;
• Выделим столбец перед которым мы хотим вставить “вырезанную” колонку;
• Кликнем правой кнопкой мыши и в выпадающем меню выберем пункт “Вставить вырезанные ячейки”:

• Готово! Задача выполнена.

Перемещение столбцов в Microsoft Excel

При работе с таблицами иногда возникает потребность поменять столбцы, расположенные в ней, местами. Давайте разберемся, как это сделать в приложении Microsoft Excel без потери данных, но, при этом, как можно проще и быстрее.

Перемещение столбцов

В Экселе колонки можно поменять несколькими способами, как довольно трудоёмкими, так и более прогрессивными.

Способ 1: копирование

Данный способ универсальный, так как подходит даже для очень старых версий Excel.

1. Кликаем по любой ячейке столбца, слева от которого мы планируем перенести другую колонку. В контекстном списке выбираем пункт «Вставить…».

Появляется небольшое окошко. Выбираем в нём значение «Столбец». Кликаем по элементу «OK», после чего новая колонка в таблице будет добавлена.

Делаем клик правой кнопкой мыши по панели координат в месте, где указано наименование того столбца, который мы хотим переместить. В контекстном меню останавливаем выбор на пункте «Копировать».

На этом перемещение элементов будет завершено.

Способ 2: вставка

Впрочем, существует и более простой вариант перемещения в Экселе.

Кликаем по горизонтальной панели координат с буквой, обозначающей адрес для того, чтобы выделить весь столбец.

Кликаем по выделенной области правой кнопкой мыши и в открывшемся меню останавливаем выбор на пункте «Вырезать». Вместо этого, можно нажать на значок с точно таким же наименованием, который находится на ленте во вкладке «Главная» в блоке инструментов «Буфер обмена».

После этого действия элементы переместятся так, как вы этого хотели. При необходимости, таким же образом можно перемещать группы колонок, выделяя для этого соответствующий диапазон.

Способ 3: продвинутый вариант перемещения

Существует также более простой и продвинутый способ перемещения.

Выделяем столбец, который хотим переместить.

Перемещаем курсор на границу выделенной области. Одновременно зажимаем Shift на клавиатуре и левую кнопку мыши. Передвигаем мышь в сторону места, куда нужно переместить колонку.

После этого нужные колонки поменяются местами.

Внимание! Если вы используете старую версию Excel (2007 и ранее), то клавишу Shift при перемещении зажимать не нужно.

Как видим, существует несколько способов поменять столбцы местами. Есть как довольно трудоёмкие, но в то же время универсальные варианты действий, так и более продвинутые, которые, правда, не всегда работают на старых версиях Excel.

Мы рады, что смогли помочь Вам в решении проблемы.

Добавьте сайт Lumpics.ru в закладки и мы еще пригодимся вам.
Отблагодарите автора, поделитесь статьей в социальных сетях.

Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.

3 способа, как поменять местами ячейки в Excel

Изменение порядка ячеек часто необходимо выполнить при трансформировании таблиц, форматировании текста и всего содержимого электронного листа в Microsoft Excel в целом. У новичков порой возникает проблема с данным вопросом, поэтому в этой статье мы поможем избавиться от подобных трудностей несколькими способами.

Первый способ: копирование

Так как отдельной функции, специально предназначенной для переноса ячеек с одной части листа на другую, не существует, придется воспользоваться другими методами. Итак, первый из них — это копирование. Производится пошагово следующим образом:

1. У нас есть таблица с сохраненными данными. Из нее необходимо перенести несколько ячеек в произвольную часть листа. Для этого кликаем по одной из них, затем в панели инструментов во вкладке «Главная» находим значение «Копировать». Также можно выделив ячейку, сделать клик правой кнопкой мыши и выбрать «Копировать» через контекстное меню. Быстрый способ скопировать данные — одновременно нажать комбинацию клавиш «Ctrl+C».

1

1. Проверяем скопировалось ли значение. Для этого заходим в «Буфер обмена». Он расположен во вкладке «Главная» в первом блоке. Кликаем по стрелке вниз и в открывшемся окне слева видим скопированный только что текст или число. Это значит, что копирование данных выполнить удалось.

Обратите внимание! Если нажать «Очистить все», то копирование придется сделать заново, потому как данные удалятся.

2

1. Теперь на листе выбираем место, в которое желаем переместить содержимое ячейки, нажимаем комбинацию клавиш «Ctrl+V» или же вызываем контекстное меню с помощью ПКМ, где кликаем по пункту «Вставить». Можно пользоваться инструментом «Специальная вкладка», который позволяет выполнить настройку вставки скопированного значения.

3

1. Аналогично переносятся все оставшиеся ячейки, если это необходимо. Чтобы перенести всю таблицу в целом, следует полностью выполнить выделение всего диапазона. После того, как все элементы перенесены, можно отформатировать прежнюю часть листа, на которой еще остались оригинальные данные.

Второй способ: сдвиг ячеек

Иначе это называется перетаскивание. Выполнить его не сложно, главное проследить, чтобы все данные были скопированы, иначе перенос будет выполнен с искажением. Рассмотрим подробности в алгоритме ниже:

1. Наводим курсор мыши на границу той ячейки, которую нужно перенести на другую часть листа. Обратите внимание, что курсор должен превратиться в крестообразный значок. После этого зажимаем клавишу мыши и перетаскиваем ячейку в нужное место.
2. Также можно сделать перемещение одной ячейки на несколько ступеней вверх или вниз. Для этого также выделим ячейку, перенесем ее на нужное место, после чего выровняем порядок оставшихся окошек, которые сместились вследствие переноса.

При таком способе выделенные ячейки переходят в другую область, при этом все содержимое внутри них сохраняется, а прежние места становятся пустыми.

Третий способ: применение макросов

Данной опцией можно воспользоваться, если макросы по умолчанию установлены в Excel, в противном случае их придется добавить через систему внутренних настроек. Разберем детали выбранного способа:

1. Переходим в меню «Файл», затем в нижней части списка переходим к пункту «Параметры».

4

1. Открывается окно «Параметры Excel», здесь необходимо кликнуть по пункту «Настроить ленту» и поставить галочку напротив пункта «Разработчик». Подтверждаем свои действия кнопкой «ОК».

Сразу обратите внимание на панель вкладок, вкладка с названием «Разработчик должна появиться в самом конце.

5

1. После переключаемся на вкладку «Разработчик», в ней находим инструмент «Visual Basic». Visual Basic — это индивидуальный редактор данных. Необходимо дождаться загрузки дополнительного окна.

6

1. После открытия вспомогательной программы настроек ищем блок инструментов «Код», он нам и потребуется для корректного редактирования. Находим раздел «View Code», в открывшееся поле вставляем специальный код, который указан ниже:

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

1. Следом жмем кнопку «Enter», чтобы данные сохранились. После сохранения можно закрыть окно редактора и продолжить редактирование.

7

1. Зажимаем клавишу «Ctrl», затем выделяем одинаковое количество строк и столбцов, чтобы получился равномерный со всех сторон диапазон. Теперь переходим к разделу «Макросы» в панели инструментов, кликаем по нему, открывается окно с функцией. Жмем кнопку «Выполнить».

8

1. Итог данного процесса — смена местоположения ячеек в пределах одного листа.

На заметку! Существует возможность переноса индивидуальных ячеек и их диапазонов с одного листа Excel на другой, причем для этого используется только один многостраничный файл.

Подведем итоги

Для новичков больше подойдут первые два варианта переноса ячеек. Они не требуют углубленных знаний программы Microsoft Excel и работают в разных версиях табличного процессора. Что касается макросов, то использование данной методики довольно сложное, очень важно ничего не перепутать, иначе велик риск совершить ошибку и вовсе отформатировать всю страницу без возврата данных, поэтому при переносе ячеек рекомендуется быть предельно внимательными.

Данные, расположенные в ячейке или в диапазоне ячеек, можно перемещать с одного места рабочего листа в другое, используя как прямое перетаскивание мышью, так и кнопки на вкладках ленты, контекстное меню, а также процедуры (макросы) – программы, написанные на языке Visual Basic for Application, сокращенно VBA.

Перемещение с помощью мыши

Простейший способ переместить ячейки с места на место – использовать манипулятор мыши. Для перемещения ячейки на новое место, необходимо выделить нужную ячейку или диапазон, навести курсор мыши на границу выделенного диапазона, чтобы курсор стал наклонной стрелкой с крестиком, как показано на рисунке  и при нажатой левой кнопке мыши, перетащить выделенную область на новое место и после этого отпустить кнопку мыши. Если при наведении курсора мыши на границу выделенного диапазона он не превращается в наклонную стрелку с крестиком и делает невозможным перетаскивание ячеек, значит, отключена специальная настройка и ее необходимо включить, щелкнув в верхнем левом углу программы по кнопке «Office» и перейдя в Параметры Excel/Дополнительно. В группе «Параметры правки» необходимо установить флажок возле пункта «Разрешить маркеры заполнения и перетаскивание ячеек».

Вырезать и вставить

Для переноса ячеек наряду с их перемещением мышью используется вырезание с последующей вставкой. Для того чтобы вырезать/вставить ячейку или диапазон ячеек, необходимо последовательно выбрать команду «Вырезать», переместить курсор на новое место и выбрать команду «Вставить». Для этого можно использовать контекстное меню (меню, которое появляется при нажатии правой кнопки мыши в области выделенного участка), группу «Буфер обмена» на вкладке «Главная» или горячие клавиши (сочетание клавиш на клавиатуре, за которыми закреплена та или иная команда).

Сочетание клавиш для вырезания – Ctrl+X или Shift+Delete. Сочетание клавиш для вставки – Ctrl+V или Shift+Insert.

При перемещении большого количества ячеек возникает желание выделить сразу все нужные ячейки и переместить их все разом. Стандартные средства Excel позволяют сделать это только с диапазоном. Если же выделена группа несмежных ячеек, то Excel выдаст сообщение «Данная команда неприменима для несвязанных диапазонов. Выберите один диапазон и снова выберите команду». В этом случае можно сначала переместить ячейки, чтобы их можно было выбрать одним лиапазоном, после чего продолжить с ними работу.

Кроме того, ячеек может быть настолько много, что перенос их вручную может превратиться в кошмар. Другой проблемой, которая может возникнуть при переносе ячеек с места на место, может оказаться сам поиск необходимых для перемещения ячеек. Для наглядности рассмотрим такой пример: необходимо разнести по разным столбцам ячейки, в зависимости от их значений.

Все эти и аналогичные задачи легко решаются при помощи надстройки для Excel.

Надстройка для быстрого перемещения ячеек

Для быстрого переноса ячеек с одного места в другое создана надстройка для Excel, а кнопка, запускающая эту надстройку выводится на отдельную вкладку ленты Excel либо  на отдельную панель инструментов (в зависимости от версии Excel). Нажатие кнопки вызывает диалоговое окно, в котором пользователь может выбрать нужные ему условия, значения, диапазоны, направление перемещения и так далее.
Перемещение производится автоматически при помощи макроса. В вышеприведенном примере были применены следующие условия: найти все ячейки с числовыми значениями, содержащими «3100» и переместить их на 1 столбец влево и на 1 строку вверх.

С этой надстройкой появляется возможность:

1. одним кликом мыши вызывать диалоговое окно макроса прямо из панели инструментов excel;

2. задавать искомое значение для ячеек;

3. задавать диапазон для поиска;

4. выбирать одно из двенадцати условий для значений ячеек;

5. определять направление перемещения для ячеек, удовлетворяющих заданным условиям и значениям:

а) перемещать ячейки на заданное количество строк вверх или вниз;

б) перемещать ячейки на заданное количество столбцов влево или вправо;

в) перемещать ячейки одновременно вверх/вниз и влево/вправо;

г) перемещать ячейки в заданный столбец;

д) перемещать ячейки в заданную строку.