Быстро поменять местами содержимое двух ячеек или диапазонов в Excel
Обмен содержимым двух ячеек или диапазонов в Excel является распространённой задачей при реорганизации данных, изменении макетов или исправлении ошибок ввода. Это руководство представит три метода для быстрого и эффективного обмена содержимым в Excel, что позволит вам изменять данные без длительного вырезания и вставки, экономя время и снижая риск ошибок.
Вручную поменять местами содержимое двух соседних ячеек
Легко поменять местами содержимое двух ячеек или диапазонов всего за несколько кликов
Поменять местами содержимое двух ячеек с помощью кода VBA
Вручную поменять местами содержимое двух соседних ячеек
Иногда может возникнуть необходимость поменять местами две соседние ячейки. Это можно сделать вручную без особых усилий. Ниже приведены шаги для обмена ячейками A4 и B4, как показано на скриншотах:
- Выберите одну из ячеек для обмена: например, выберите ячейку A4.
- Удерживайте клавишу Shift и поместите курсор на правую границу выбранной ячейки.
- Аккуратно перетащите курсор к правой границе ячейки B4.
- Когда курсор отобразит символ «工», отпустите мышь.
Содержимое двух ячеек теперь должно быть поменяно местами, как показано на скриншоте ниже.
Легко поменять местами содержимое двух ячеек или диапазонов всего за несколько кликов
Для тех, кому нужно поменять местами несмежные ячейки или диапазоны, использование надстройки Excel, такой как Kutools for Excel, может значительно упростить процесс.
После установки Kutools for Excel выберите Kutools > Диапазон > Поменять местами диапазоны, чтобы открыть диалоговое окно Поменять местами диапазоны, и затем настройте следующим образом.
- В разделе Диапазон 1 для обмена выберите первую ячейку или диапазон, который вы хотите поменять местами.
- В Диапазон 2 для обмена разделе выберите вторую ячейку или диапазон, с которым вы хотите произвести обмен. Советы: Для удобства вы можете заранее выбрать два диапазона перед открытием диалогового окна Поменять местами диапазоны. Предварительно выбранные диапазоны автоматически появятся в полях «Диапазон 1 для обмена» и «Диапазон 2 для обмена» соответственно.
- Нажмите кнопку ОК.
Результат
Затем два выбранных диапазона или ячейки будут немедленно поменяны местами. См. скриншоты:
Если вы хотите воспользоваться бесплатной пробной версией (30-день) этой утилиты, пожалуйста, нажмите, чтобы скачать её, а затем перейдите к выполнению операции согласно вышеуказанным шагам.
Поменять местами содержимое двух несмежных ячеек с помощью кода 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 Sub3. Затем нажмите 
кнопку для запуска кода, после чего отобразится диалоговое окно для выбора двух ячеек, между которыми вы хотите произвести обмен. См. скриншоты:
4. Нажмите Ok в появившемся диалоговом окне, и две выбранные ячейки будут поменяны местами. См. скриншоты:
Примечания: Этот код VBA не может поменять местами форматирование двух ячеек.
Демонстрация: Поменять местами содержимое двух случайных ячеек с помощью Kutools for Excel
Связанная статья:
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек