Быстро поменять местами содержимое двух ячеек или диапазонов в Excel

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

Вручную поменять местами содержимое двух соседних ячеек
Легко поменять местами содержимое двух ячеек или диапазонов всего за несколько кликов
Поменять местами содержимое двух ячеек с помощью кода VBA

Вручную поменять местами содержимое двух соседних ячеек

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

1. Выберите одну из ячеек для обмена: например, выберите ячейку A4.
2. Удерживайте клавишу Shift и поместите курсор на правую границу выбранной ячейки.
3. Аккуратно перетащите курсор к правой границе ячейки B4.
4. Когда курсор отобразит символ «工», отпустите мышь.

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

Легко поменять местами содержимое двух ячеек или диапазонов всего за несколько кликов

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

После установки Kutools for Excel выберите Kutools > Диапазон > Поменять местами диапазоны, чтобы открыть диалоговое окно Поменять местами диапазоны, и затем настройте следующим образом.

1. В разделе Диапазон 1 для обмена выберите первую ячейку или диапазон, который вы хотите поменять местами.
2. В Диапазон 2 для обмена разделе выберите вторую ячейку или диапазон, с которым вы хотите произвести обмен.
   Советы: Для удобства вы можете заранее выбрать два диапазона перед открытием диалогового окна Поменять местами диапазоны. Предварительно выбранные диапазоны автоматически появятся в полях «Диапазон 1 для обмена» и «Диапазон 2 для обмена» соответственно.
3. Нажмите кнопку ОК.
   

Результат

Затем два выбранных диапазона или ячейки будут немедленно поменяны местами. См. скриншоты:

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

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

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

2. Щелкните Разработчик>Visual Basic, откроется новое окно Microsoft Visual Basic для приложений, нажмите Вставить>Модуль и введите следующий код в Модуль:

Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

3. Затем нажмите кнопку для запуска кода, после чего отобразится диалоговое окно для выбора двух ячеек, между которыми вы хотите произвести обмен. См. скриншоты:

4. Нажмите Ok в появившемся диалоговом окне, и две выбранные ячейки будут поменяны местами. См. скриншоты:

Примечания: Этот код VBA не может поменять местами форматирование двух ячеек.

Демонстрация: Поменять местами содержимое двух случайных ячеек с помощью Kutools for Excel

Связанная статья:

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