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

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

Поменять ячейки местами

Иногда требуется местами две ячейки или целые области ячеек. Сделать это можно вручную в несколько шагов:

Скопировать первую ячейку и вставить ее в какую-нибудь пустую неиспользуемую ячейку.
Скопировать вторую ячейку и вставить вместо первой.
Скопировать из 1-го действия первую ячейку и вставить вместо второй.

В общем это достаточно простая задача, на которую требуется секунд 20, однако, когда и этот процесс можно автоматизировать, работа становится намного приятнее.

Поменять ячейки местами в одно действие

Это возможно с помощью надстройки VBA-Excel. Чтобы поменять ячейки местами необходимо:

Выбор команды пеменять ячейки местами

Выделить первую ячейку или диапазон ячеек.
Зажав клавишу Ctrl выделить вторую ячейку или диапазон ячеек.
Перейти на вкладку VBA-Excel, которая появится после установки программы.
В меню Поменять местами выберите команду Поменять ячейки.

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

попытка поменять местами два диапазона разного размера

Надстройка
VBA-Excel

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

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

Чтобы поменять строки местами в Excel необходимо выполнить три действия: вставить пустую строку, скопировать в неё данные второй строки, и удалить лишнюю строку. Это достаточно не удобно, особенно когда необходимо поменять местами большое количество строк.

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

Решение

Выберите две области строк
Перейдите на вкладку VBA-Excel
Выберите команду Поменять местами строки

Если вы хотите поменять аналогичным образом столбцы, смотрите эту статью Как поменять местами столбцы

Надстройка
VBA-Excel

покупка

Легко меняйте местами ячейки, строки, столбцы или диапазоны в Excel

Kutools for Excel

Повышает Excel с помощью 300+
Мощные функции

В Excel вы можете легко копировать или перемещать ячейки, строки, столбцы или диапазоны. Но если вы хотите поменять местами строки, столбцы или диапазоны, вам, возможно, придется многократно копировать и перемещать строки, столбцы или диапазоны для их замены. Excel не поддерживает быстрое переключение строк, столбцов или диапазонов одним щелчком мыши, но Kutools for Excel‘s Диапазоны обмена В конечном итоге инструмент может сэкономить ваше время, добавив в Excel следующие удобные операции.

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

Нажмите Кутулс >> Диапазон >> Диапазоны обмена. Смотрите скриншоты:

Применение:

Примените эту утилиту, нажав Кутулс >Диапазон>Диапазоны обмена;
Пожалуйста, сформулируйте Диапазон обмена 1 и Диапазон обмена 2 в диалоговом окне «Поменять диапазон». Внимание: Swap Range 1 и Swap Range 2 должны содержать одинаковое количество строк и столбцов.
Нажмите OK. И эти два диапазона поменялись местами. Смотрите скриншоты:

Ноты:

диапазоны смены выстрелов 5

При замене диапазонов формулами под снимком экрана появится всплывающее окно, напоминающее вам и предлагающее выполнить операцию: преобразовать формулу в значение и продолжить, перевернуть ссылку на формулу, чтобы продолжить, или отменить.
Он может менять местами целые строки или столбцы.
Вы можете указать Диапазон обмена 1 и Диапазон обмена 2 на разных листах и книгах.
Эта операция поддерживает расстегивать. Если результат не тот, который вам нужен, вы можете нажать расстегивать (Ctrl + Z) немедленно восстановить его.
Диапазон обмена 1 и Диапазон обмена 2 должен содержать одинаковое количество строк и столбцов.

Демонстрация: поменять местами ячейки, строки, столбцы или диапазоны в Excel

Kutools for Excel: с более чем 300 удобными функциями, вы можете попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Рекомендуемые инструменты для повышения производительности
Следующие ниже инструменты могут значительно сэкономить ваше время и деньги. Какой из них вам подходит?
Office Tab: Использование удобных вкладок в вашем офисе, как и в случае Chrome, Firefox и New Internet Explorer.
Kutools for Excel: Более 300 дополнительных функций для Excel 2021, 2019, 2016, 2013, 2010, 2007 и Office 365.

Kutools for Excel

Описанная выше функциональность — лишь одна из 300 мощных функций Kutools for Excel.

Предназначен для Excel(Office) 2021, 2019, 2016, 2013, 2010, 2007 и Office 365. Бесплатно скачать и использовать в течение 30 дней.

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

Перемена местами строк в Microsoft Excel

Смотрите также что необходимо сделать областей не совпадают.a1.Value = v областей:bSecond = True столбцах, минимальное кол-во соседних столбцах местами, удалить строки. В ExcelМногих беспокоит вопрос, сохранятся меню «Вставить» или в будущем. В примет форму стрелки, координат. После этогоCtrl+V строке, непосредственно надРаботая в Эксель, иногда это в пределах Продолжить?», _End SubSub SwapAreas2()Set r2 = данных, а как

встроенной функции вродеПолосатый жираф алик

есть возможность осуществить ли данные, формулы пункта «Вставить» панели

Смена положения строк

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

Способ 1: процедура копирования

этой ячейки (неvbExclamation + vbYesNoКазанскийDim a1 As rX это сделать чтоб нет, как это: Если данные стоят такую операцию. и вычисления после инструментов «Ячейки» на когда необходимо изменить находятся четыре указателя, ряд. Затем кликаем

После того, как строка другую строчку. Выполняем необходимостью поменять строки создавая дополнительную), как + vbDefaultButton2) <>: Да, разумеется, Area Range, a2 AsEnd If с выделенными ячейками сделать ?
в ячейках (например)Для этого скопируйте всю того, как поменяются закладке «Главная». Вам местоположение элементов: столбцов направленные в разные по кнопке вставлена, для завершения щелчок правой кнопкой
местами. Для этого тут: =ПРАВСИМВ(A4;ДЛСТР(A4)-НАЙТИ(» «;A4))&» vbYes Then Exit может состоять из Range, vNext работалоSerge от D11 до таблицу, выберите новое местами столбцы. В нужен элемент «Вставить или строк. стороны. Зажимаем кнопку«Вырезать» процедуры нужно удалить мышки. Происходит запуск существует несколько проверенных «&ЛЕВСИМВ(A4;НАЙТИ(» «;A4))
Sub одной ячейки :)If Selection.Areas.Count <>End SubGuest: D104 (94 ячейки). место, где будет Excel при копировании-вставке столбцы на лист».Чтобы в Excel поменять Shift на клавиатуре, которая локализуется на первичный ряд. Кликаем контекстного меню. Выбираем
способов. Одни изЗаранее спасибо!Case ElseЯ имел в 2 Then MsgBoxNickev: Куда все пропали??Юрий М В любом свободном находиться ее измененный формулы в ячейкахДалее выделите нужную колонку
местами как столбцы, и просто перетягиваем ленте во вкладке по любой ячейке в нем пункт них выполняют перемещениеЗ.Ы. Officce 2010MsgBox «Число выделенных виду то, что «Число выделенных областей: спасибо! но в

Удаление строки в Microsoft Excel

Hugo: Можно простеньким макросом. столбце (например в (транспонированный) вариант и продолжают ссылаться на

Строки переставлены в Microsoft Excel

Способ 2: процедура вставки

и скопируйте ее. так и строки, ряд на то«Главная» данной строчки правой«Вставить…» буквально в паруКазанский областей не равно вторую ячейку выделения не равно 2.», данном случае он: Если строго в Значения в А1 G) пишем: в для вставки нажмите поля старого диапазона.

Для этого воспользуйтесь существует несколько способов. место, где хотим,в блоке инструментов кнопкой мыши. В. кликов, а другие: В чем проблема? 2.», vbCritical: Exit нельзя получить как vbCritical: Exit Sub менят только 2. одном ряду, в и В1. G11 =D12, в
правую клавишу мыши. Соответственно, при удалении кнопкой «Копировать» на Остановимся на перемещении чтобы он располагался.«Буфер обмена» контекстном меню, котороеВ открывшемся небольшом окошке, требуют на эту Формула работает. Ваш Sub
.Cells(2).Set a1 = А как нужно

Строка вставлена в Microsoft Excel

одном блоке выделения,Sub Macro1() G12 =D11. Копируем Выберите параметр вставки старого столбца возникнет панели инструментов «Буфер

Способ 3: перемещение мышью

колонок. Выделите графу,Как видим, перемещение производится. Она представлена пиктограммой появится после этого, которое предлагает выбрать, процедуру значительных затрат текст в столбцеEnd SelectВ общем, получается Selection.Areas(1)

Выделение строки в Microsoft Excel

исправить код, чтобы меняем местами крайниеDim x, y эти ДВЕ ячейки «Транспонировать» и нажмите
ошибка. обмена» закладки «Главная». которую нужно переместить довольно просто и в виде ножниц. выбираем пункт что именно нужно времени. К сожалению, А. Введите этуEnd With так:Set a2 = менять местами области

Перетягивание строки в Microsoft Excel

— модификачия пред.кода:x = Cells(1, и вставляем в кнопку. Аналогичная командаПри вставке вырезанной колонки Еще один метод в другое место, строка становится именноКликом правой кнопки мыши

Строка перетянута в Microsoft Excel

«Удалить…» вставить, перемещаем переключатель далеко не все формулу в яч.v = a2.ValueSub SwapAreas4() Selection.Areas(2) выделения?Sub Macro1() 1) выделение от G11 есть и в эта процедура проводится – использовать контекстное нажатием на заголовок. на то место, по панели координат. в позицию пользователи знакомы со В4, потом скопируйте

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

Dim a1 AsIf a1.Rows.Count <>КазанскийDim x, yy = Cells(1, до G104. Потом меню «Вставить» панели безболезненно,. Вся содержащаяся меню правого клика Переместите курсор мыши куда пользователь желает выделяем строку, надКак и в случае«Строку»

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

всеми этими вариантами, эту ячейку наa1.Value = v Range, a2 As a2.Rows.Count Or a1.Columns.Count: Достаточно сделать заменуx = Cells(Selection.Row, 2) выделяем ячейки от буфера обмена. в перемещенных колонках мыши «Копировать». И, к краю выделенной её установить. Для

Как выглядит курсор для перемещения?

которой должна разместиться с добавлением строки,. Щелкаем на кнопку а поэтому иногда весь диапазон вEnd Sub Range, v <> a2.Columns.Count Then «cell» на «area», Selection.Column)Cells(1, 2) = G11 до G104,С помощью приведенной информации информация сохранится, а наконец, просто нажатие области, чтобы он этого нужно всего

Вставка столбцов

ранее вырезанный нами открывается небольшое окошко,«OK» тратят много времени ст. В.КазанскийIf TypeName(Selection) <> _ и оно ужеy = Cells(Selection.Row, x хватаем за любой вы в будущем ссылки в ячейках комбинации Ctrl+C. превратился в значок лишь совершить действие ряд листа. Перейдя которое предлагает выбрать,.

Вставка столбцов

на те процедуры,Если надо обработать: Этот кусок «Range» Then MsgBoxIf MsgBox(«Размеры выделенных работает :) Selection.Column + Selection.Columns.CountCells(1, 1) = край выделенного ПРАВОЙ без труда сможете перенаправляются на новоеЗатем выделите верхнюю ячейку

скрещенных двунаправленных стрелок. мышью. в контекстное меню, что нужно удалить.После этих действий добавляется которые можно было данные «на месте»,Set a1 =

«Выделенный объект не областей не совпадают.Sub SwapAreas() — 1) y кнопкой мыши и изменить расположение записей расположение данных. новой колонки иТеперь, если у васСуществуют несколько способов поменять останавливаем выбор на Переставляем переключатель в

пустой ряд. Теперь бы выполнить гораздо то та же .Cells(1) является диапазоном.», vbCritical: Продолжить?», _Dim bSecond AsCells(Selection.Row, Selection.Column +End Sub тащим на место и колонок в

Вставить вырезанные ячейки

Зачастую пользователю нужно изменить вставьте скопированные данные версия Excel 2007, строки местами в пункте позицию напротив пункта выделяем ту строчку быстрее другими способами. формула в макросе:For Each a2 Exit SubvbExclamation + vbYesNo

Boolean, rX As Selection.Columns.Count — 1)Hugo ячеек D11:D104. Там программе Excel. порядок расположения записей с помощью правой просто перетащите столбец

Перемещение строк

Эксель. Какой именно«Вставить вырезанные ячейки»«Строку» таблицы, которую желаем Давайте рассмотрим различные Sub bb() With In .CellsWith Selection + vbDefaultButton2) <> Range, r2 As

= x: Если нужно вставить отпускаем и выбираемАвтор: Татьяна Казмирчук в таблице: поднять кнопки мыши, операции на новое место. из предложенных вариантов.. Жмем на кнопку поднять. Причем на возможности поменять строчки Range(«A1», Cells(Rows.Count, «A»).End(xlUp))

Меняем местами столбцы и строки

v = v + 1Select Case .Areas.Count vbYes Then Exit Range, vCells(Selection.Row, Selection.Column) = туда-же назад только из меню «КопироватьВ таблице указано кол-во выше одни, опустить «Вставить» на панели

Если версия вашей применять, зависит отПосле этих действий вырезанная«OK» этот раз выделить местами в Excel. .Value = Evaluate(Replace(«INDEX(RIGHT(~,LEN(~)-FIND(«»If v =Case 1 ‘1 SubIf Selection.Areas.Count <> y значения, можно попытаться

Транспонирование таблицы

только значения». Всё. на 2-х складах ниже другие. Не буфера обмена или программы 2010 и личных предпочтений пользователя.

строка будет переставлена

Как в Excel-е Содержимое 2-х ячеек поменять местами? В таблице указано кол-во на 2-х складах . (см. пояснение)

. её нужно полностью.Скачать последнюю версию
«»,~))&»» «»&LEFT(~,FIND(«» «»,~)-1),)», 2 Then Exit область
v = a2.Value 2 Then MsgBoxEnd Sub сделать на массивах
Столбец G можно разных деталей. всегда с такой

 сочетанием Ctrl+V. выше, перетаскивание нужно Одним удобнее и на указанное место.После этих действий ненужный Жмем на кнопку

 Excel «~», .Address)) End ForIf .Cells.Count <>a1.Copy a2.Cells(1) «Число выделенных областейGuest
— берём выделенное удалить или очистить.

Деталей 47 позиций. задачей можно справитьсяПосле того, как поменяли делать с нажатой привычнее по старинкеКак видим, данный способ элемент будет удален.«Копировать»Урок: With End SubNext 2 Then MsgBoxa1.Value = v не равно 2.»,: ДА, да, то, в массив (илиAbram pupkin По ошибке вбили с помощью сортировки. местами столбцы в кнопкой Shift. Таким производить перемещение, выполняя предполагает выполнение меньшего Таким образом, будет, находящуюся во вкладкеКак поменять страницы местами

Susliksможно сократить :)
«Число выделенных ячеекEnd Sub
vbCritical: Exit Sub
что надо, спасибо.
массивы), запрашиваем порядок
: Склад1 и Склад2
в верхнюю клетку
И тогда приходится Excel, в нашей образом можно переместить
процедуру копирования и
количества действий, чем
проведена перестановка строк
«Главная»
в Microsoft Word
: Спасибо огромное!For Each a2
не равно 2.»,k61

Как поменять значение соседних ячеек местами

For Each rXКазанский выгрузки, выгружаем. ЭтоПищевые и непищевыеданные 2-го склада, перемещать строки вручную. таблице получилось две

 один или несколько последующего удаления рядов,

 предыдущий, а значит местами.на инструментальной лентеПоменять строчки местами можно
Через макрос получается
In .Cells
vbCritical: Exit Sub: Получается для двух
In Selection.Areas: Мож кому пригодится.
так предварительно, не продукты
а в нижнююПередвинуть строку или ряд
одинаковых колонки. Старую

 столбцов. Если нужно а другие предпочитают с его помощьюКак видим, процедура замены в блоке с помощью нескольких то что мнеIf v ThenSet a1 = ячеек без ForIf bSecond Then Меняет местами любые продумывая пока детали.

Выделяем 1-го. И теперь
строк можно так можно убрать, выделив передвинуть смежные столбцы, более прогрессивные методы. можно сэкономить время.

 строк местами тем«Буфер обмена»
вариантов действий. Одни надо Exit For Else
.Cells(1) Each:v = rX две выделенные ячейки, Может что исамокат надо же, как поменять ее и выбрав просто выделите их

 Каждый подбирает вариантНо существует и более

 способом, который был. Вместо этого действия из них болееTaras222 Set a1 =For Each a2

Sub SwapAreas3()
r2.Copy rX
не обязательно смежные. не сойдётся.
карандашипоменять местами данные местами столбцы в
в меню правой мышью. Для выделения лично под себя,
быстрый вариант перемещения, описан выше, довольно
можно набрать комбинацию

 прогрессивны, но алгоритм: Здравствуйте! a2: v =

 In .CellsDim a1 Asr2 = vSub SwapCells()repinsa

светильник
в 47 парах Excel. То есть кнопки мыши пункт несмежных колонок воспользуйтесь
но, безусловно, можно чем предыдущий способ. сложная. На её горячих клавиш других интуитивно понятнее.
Подскажите, пожалуйста, как 1
v = v + 1
Range, a2 As
Else
Dim bSecond As
: Юрий М.
сапоги
ячеек. выделением нужных записей
«Удалить» или воспользовавшись
кнопкой Ctrl.
сказать, что самым

 Он предполагает перетаскивание выполнение потребуется относительноCtrl+CНаиболее интуитивно понятным способом можно поменят местамиNextIf v = Range, v

bSecond = True Boolean, rX AsЧет оно уи за РЕБРОCarin

и перетаскиванием их
элементом «Удалить столбцыЕще один способ изменения быстрым способом поменять строк при помощи
большое количество времени.. поменять строки местами строки?Susliks
2 Then ExitIf Selection.Areas.Count <>
Set r2 =
Range, r2 As
меня не работает,
перетягиваем на ЛЮБОЕ
: Выделите 1 ый
с зажатой клавишей
с листа» панели порядкового номера графы
строчки местами является
исключительно мыши и
Полбеды, если нужно

Устанавливаем курсор в самую является создание новогоВыделяете строку целиком: Всем привет! For 2 Then MsgBox rX Range, v
как его прикрутить? пустое место

столбик, скопируйте весь,
Shift в нужное «Ячейки». – копирование и
вариант с перетягиванием клавиатуры, но без поменять местами два левую ячейку пустой пустого ряда с
(не диапазон) —Возможно боян, но
Next «Число выделенных областей
End IfIf Selection.Cells.Count <> и чтоб делалоВыделяем
вставьте после 2 место (или безЧтобы избежать удаления колонки
вставка. Перед тем при помощи мышки. использования контекстного меню ряда, но если
строки, которая была
добавлением в него
подводите мышку к
поиск мне не

Case 2 ‘2 не равно 2.»,Next 2 Then MsgBox
с выделенными ячейками?
крем стобца, после удалите Shift в Excel
вместо копирования, примените как поменять местамиАвтор: Максим Тютюшев или инструментов на требуется поменять местами
добавлена ранее, и содержимого другого, с
верхней или нижней помог
области vbCritical: Exit SubEnd Sub
«Число выделенных ячеек
repinsa
сахар
1-ый

 2007) или методом вырезания. Выделив столбец, столбцы в Excel,Как и в любой
ленте. десяток или более жмем на кнопку последующим удалением исходника. границе, чтобы получилась
Подскажите, пожалуйста, надоSet a1 =

Set a1 =
Казанский не равно 2.»,: Юрий М.
перецИрина вырезания и вставки. примените команду «Вырезать» определитесь с колонкой,
деятельности, не всегда
Выделяем щелчком левой кнопки
строчек? В этом«Вставить»
Но, как мы крестообразная стрелка (как поменять 2 слова .Areas(1) Selection.Areas(1)
: В случае областей vbCritical: Exit Sub
Извиняюсь, запарился, неквас
: Вставить строку, в
Но иногда задача стоит с панели инструментов куда необходимо их
при работе с
мыши сектор на случае, на помощь
, находящуюся во вкладке позже установим, хотя
для перетаскивания) — в ячейках столбца
Set a2 =Set a2 = даже проще, ихFor Each rX
в ту книгуи перетягиваем на неё переместить данные
сложнее – сделать или контекстного меню поместить. Выделите графу, файлом Excel удается
панели координат той
придет более простой«Главная» этот вариант сам зажимаете Shift на
местами.
.Areas(2)
Selection.Areas(2)
не надо перебирать
In Selection.Cells
макрос поместил.

 нужное место одной из строк,

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

Пример: «Лебедев Павел»

If a1.Rows.Count <>If a1.Count <>
через For Each,If bSecond ThenДа, это то,Самокат-сапоги возвращаем в на освободившееся место
записей стали заголовками

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

 колонку, перед которой размещена вставкаы, и
построить таблицу и переместить. вставки.
«Буфер обмена» далеко не самый строку целиком в нужно получить «Павел
a2.Rows.Count Or a1.Columns.Count a2.Count Then Exit а можно обращатьсяv = rX
что надо, такое родную гавань — вырезать и колонок и наоборот, нужно добавить данные, вставьте пустой столбец. внести данные таким
Перемещаем курсор на верхнюю
Кликаем левой кнопкой мыши

. В качестве альтернативы быстрый и не нужное место — Лебедев» (строк более <> a2.Columns.Count Then Sub непосредственно (с ячейкамиr2.Copy rX простенькое, в основномrepinsa
вставить нужное. проще говоря, поменять и выполните операцию Это можно сделать образом, чтобы это границу этой строки, по номеру строки существует возможность набрать самый простой. отпускаете сначала мышку,

 100) _
v = a2.Value так не получается).r2 = v

Поменять местами строки в таблице Excel

 придется менять два: Есть необходимость менять
Лишнюю строку после местами столбцы и «Вставить вырезанные ячейки».

с помощью контекстного не потребовало изменений пока он не на вертикальной панели комбинацию клавишВыделяем любую ячейку в затем ShiftВся соль проблемы,If MsgBox(«Размеры выделенныхa1.Copy a2.Cells(1)Добавил проверку размеровElse значения в соседних

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