Как в 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 с выделенными ячейками сделать ?
Hugo: Можно простеньким макросом. столбце (например в (транспонированный) вариант и продолжают ссылаться на
Способ 2: процедура вставки
и скопируйте ее. так и строки, ряд на то«Главная» данной строчки правой«Вставить…» буквально в паруКазанский областей не равно вторую ячейку выделения не равно 2.», данном случае он: Если строго в Значения в А1 G) пишем: в для вставки нажмите поля старого диапазона.
-
Для этого воспользуйтесь существует несколько способов. место, где хотим,в блоке инструментов кнопкой мыши. В. кликов, а другие: В чем проблема? 2.», vbCritical: Exit нельзя получить как vbCritical: Exit Sub менят только 2. одном ряду, в и В1. G11 =D12, в
одном блоке выделения,Sub Macro1() G12 =D11. Копируем Выберите параметр вставки старого столбца возникнет панели инструментов «Буфер
Способ 3: перемещение мышью
колонок. Выделите графу,Как видим, перемещение производится. Она представлена пиктограммой появится после этого, которое предлагает выбрать, процедуру значительных затрат текст в столбцеEnd SelectВ общем, получается Selection.Areas(1)
-
исправить код, чтобы меняем местами крайниеDim x, y эти ДВЕ ячейки «Транспонировать» и нажмите
— модификачия пред.кода:x = Cells(1, и вставляем в кнопку. Аналогичная командаПри вставке вырезанной колонки Еще один метод в другое место, строка становится именноКликом правой кнопки мыши
«Удалить…» вставить, перемещаем переключатель далеко не все формулу в яч.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(
)-FIND(«»If v =Case 1 ‘1 SubIf Selection.Areas.Count <> y значения, можно попытаться
только значения». Всё. на 2-х складах ниже другие. Не буфера обмена или программы 2010 и личных предпочтений пользователя.
строка будет переставлена
Как в Excel-е Содержимое 2-х ячеек поменять местами? В таблице указано кол-во на 2-х складах . (см. пояснение)
. её нужно полностью.Скачать последнюю версию
«»,
)-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
Иногда требуется местами две ячейки или целые области ячеек. Сделать это можно вручную в несколько шагов:
- Скопировать первую ячейку и вставить ее в какую-нибудь пустую неиспользуемую ячейку.
- Скопировать вторую ячейку и вставить вместо первой.
- Скопировать из 1-го действия первую ячейку и вставить вместо второй.
В общем это достаточно простая задача, на которую требуется секунд 20, однако, когда и этот процесс можно автоматизировать, работа становится намного приятнее.
Поменять ячейки местами в одно действие
Это возможно с помощью надстройки VBA-Excel. Чтобы поменять ячейки местами необходимо:
- Выделить первую ячейку или диапазон ячеек.
- Зажав клавишу Ctrl выделить вторую ячейку или диапазон ячеек.
- Перейти на вкладку VBA-Excel, которая появится после установки программы.
- В меню Поменять местами выберите команду Поменять ячейки.
Очевидно, что данным способом можно поменять местами два диапазона одинакового размера. Если вы попытаетесь выполнить эту операцию с неравными диапазонами, надстройка выдаст ошибку
Перемещение ячеек относительно друг друга в Microsoft Excel
Потребность поменять ячейки местами друг с другом при работе в таблице Microsoft Excel случается довольно редко. Тем не менее, такие ситуации бывают и их нужно решать. Давайте выясним, какими способами можно поменять ячейки местами в Экселе.
Перемещение ячеек
К сожалению, в стандартном наборе инструментов нет такой функции, которая бы без дополнительных действий или без сдвига диапазона, могла бы менять местами две ячейки. Но, в то же время, хотя данная процедура перемещения и не так проста, как хотелось бы, её все-таки можно устроить, причем несколькими способами.
Способ 1: перемещение с помощью копирования
Первый вариант решения проблемы предусматривает банальное копирование данных в отдельную область с последующей заменой. Давайте разберемся, как это делается.
-
Выделяем ячейку, которую следует переместить. Жмем на кнопку «Копировать». Она размещена на ленте во вкладке «Главная» в группе настроек «Буфер обмена».
Теперь транзитные данные удалены, а задача по перемещению ячеек полностью выполнена.
Конечно, данный способ не совсем удобен и требует множества дополнительных действий. Тем не менее, именно он применим большинством пользователей.
Способ 2: перетаскивание
Ещё одним способом, с помощью которого существует возможность поменять ячейки местами, можно назвать простое перетаскивание. Правда при использовании этого варианта произойдет сдвиг ячеек.
Выделяем ячейку, которую нужно переместить в другое место. Устанавливаем курсор на её границу. При этом он должен преобразоваться в стрелку, на конце которой находятся указатели, направленные в четыре стороны. Зажимаем клавишу Shift на клавиатуре и перетаскиваем на то место куда хотим.
Как правило, это должна быть смежная ячейка, так как при переносе таким способом происходит сдвиг всего диапазона.
Поэтому перемещение через несколько ячеек чаще всего происходит некорректно в контексте конкретной таблицы и применяется довольно редко. Но сама потребность поменять содержимое далеко стоящих друг от друга областей не исчезает, а требует других решений.
Способ 3: применение макросов
Как уже было сказано выше, не существует быстрого и корректно способа в Эксель без копирования в транзитный диапазон поменять две ячейки между собой местами, если находятся они не в смежных областях. Но этого можно добиться за счет применения макросов или сторонних надстроек. Об использовании одного такого специального макроса мы и поговорим ниже.
- Прежде всего, нужно включить у себя в программе режим работы с макросами и панель разработчика, если вы их до сих пор не активировали, так как по умолчанию они отключены.
- Далее переходим во вкладку «Разработчик». Выполняем щелчок по кнопке «Visual Basic», которая размещена на ленте в блоке инструментов «Код».
- Выполняется запуск редактора. В него нужно вставить следующий код:
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
Важно отметить, что при закрытии файла макрос автоматически удаляется, так что в следующий раз его придется записывать снова. Чтобы не делать эту работу каждый раз для конкретной книги, если вы планируете в ней постоянно проводить подобные перемещения, то следует сохранить файл как Книгу Excel с поддержкой макросов (xlsm).
Как видим, в Excel существует несколько способов перемещения ячеек относительно друг друга. Это можно сделать и стандартными инструментами программы, но данные варианты довольно неудобны и занимают много времени. К счастью, существуют макросы и надстройки сторонних разработчиков, которые позволяют решить поставленную задачу максимально легко и быстро. Так что для пользователей, которым приходится постоянно применять подобные перемещения, именно последний вариант будет самым оптимальным.
3 способа, как поменять местами ячейки в Excel
Изменение порядка ячеек часто необходимо выполнить при трансформировании таблиц, форматировании текста и всего содержимого электронного листа в Microsoft Excel в целом. У новичков порой возникает проблема с данным вопросом, поэтому в этой статье мы поможем избавиться от подобных трудностей несколькими способами.
Первый способ: копирование
Так как отдельной функции, специально предназначенной для переноса ячеек с одной части листа на другую, не существует, придется воспользоваться другими методами. Итак, первый из них — это копирование. Производится пошагово следующим образом:
- У нас есть таблица с сохраненными данными. Из нее необходимо перенести несколько ячеек в произвольную часть листа. Для этого кликаем по одной из них, затем в панели инструментов во вкладке «Главная» находим значение «Копировать». Также можно выделив ячейку, сделать клик правой кнопкой мыши и выбрать «Копировать» через контекстное меню. Быстрый способ скопировать данные — одновременно нажать комбинацию клавиш «Ctrl+C».
- Проверяем скопировалось ли значение. Для этого заходим в «Буфер обмена». Он расположен во вкладке «Главная» в первом блоке. Кликаем по стрелке вниз и в открывшемся окне слева видим скопированный только что текст или число. Это значит, что копирование данных выполнить удалось.
Обратите внимание! Если нажать «Очистить все», то копирование придется сделать заново, потому как данные удалятся.
- Теперь на листе выбираем место, в которое желаем переместить содержимое ячейки, нажимаем комбинацию клавиш «Ctrl+V» или же вызываем контекстное меню с помощью ПКМ, где кликаем по пункту «Вставить». Можно пользоваться инструментом «Специальная вкладка», который позволяет выполнить настройку вставки скопированного значения.
- Аналогично переносятся все оставшиеся ячейки, если это необходимо. Чтобы перенести всю таблицу в целом, следует полностью выполнить выделение всего диапазона. После того, как все элементы перенесены, можно отформатировать прежнюю часть листа, на которой еще остались оригинальные данные.
Второй способ: сдвиг ячеек
Иначе это называется перетаскивание. Выполнить его не сложно, главное проследить, чтобы все данные были скопированы, иначе перенос будет выполнен с искажением. Рассмотрим подробности в алгоритме ниже:
- Наводим курсор мыши на границу той ячейки, которую нужно перенести на другую часть листа. Обратите внимание, что курсор должен превратиться в крестообразный значок. После этого зажимаем клавишу мыши и перетаскиваем ячейку в нужное место.
- Также можно сделать перемещение одной ячейки на несколько ступеней вверх или вниз. Для этого также выделим ячейку, перенесем ее на нужное место, после чего выровняем порядок оставшихся окошек, которые сместились вследствие переноса.
При таком способе выделенные ячейки переходят в другую область, при этом все содержимое внутри них сохраняется, а прежние места становятся пустыми.
Третий способ: применение макросов
Данной опцией можно воспользоваться, если макросы по умолчанию установлены в Excel, в противном случае их придется добавить через систему внутренних настроек. Разберем детали выбранного способа:
- Переходим в меню «Файл», затем в нижней части списка переходим к пункту «Параметры».
- Открывается окно «Параметры Excel», здесь необходимо кликнуть по пункту «Настроить ленту» и поставить галочку напротив пункта «Разработчик». Подтверждаем свои действия кнопкой «ОК».
Сразу обратите внимание на панель вкладок, вкладка с названием «Разработчик должна появиться в самом конце.
- После переключаемся на вкладку «Разработчик», в ней находим инструмент «Visual Basic». Visual Basic — это индивидуальный редактор данных. Необходимо дождаться загрузки дополнительного окна.
- После открытия вспомогательной программы настроек ищем блок инструментов «Код», он нам и потребуется для корректного редактирования. Находим раздел «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
- Следом жмем кнопку «Enter», чтобы данные сохранились. После сохранения можно закрыть окно редактора и продолжить редактирование.
- Зажимаем клавишу «Ctrl», затем выделяем одинаковое количество строк и столбцов, чтобы получился равномерный со всех сторон диапазон. Теперь переходим к разделу «Макросы» в панели инструментов, кликаем по нему, открывается окно с функцией. Жмем кнопку «Выполнить».
- Итог данного процесса — смена местоположения ячеек в пределах одного листа.
На заметку! Существует возможность переноса индивидуальных ячеек и их диапазонов с одного листа Excel на другой, причем для этого используется только один многостраничный файл.
Подведем итоги
Для новичков больше подойдут первые два варианта переноса ячеек. Они не требуют углубленных знаний программы Microsoft Excel и работают в разных версиях табличного процессора. Что касается макросов, то использование данной методики довольно сложное, очень важно ничего не перепутать, иначе велик риск совершить ошибку и вовсе отформатировать всю страницу без возврата данных, поэтому при переносе ячеек рекомендуется быть предельно внимательными.