Быстрый обмен содержимым двух ячеек или диапазонов в Excel
Обмен содержимым двух ячеек или диапазонов в Excel — распространённая задача при реорганизации данных, корректировке макетов или исправлении ошибок ввода. В этом руководстве представлены три быстрых и эффективных метода обмена данными в Excel, позволяющих изменять информацию без множества операций вырезания и вставки, что экономит время и снижает риск ошибок.
Ручной обмен содержимым двух соседних ячеек
Простой обмен содержимым двух ячеек или диапазонов всего за несколько кликов
Обмен содержимым двух ячеек с помощью кода VBA
Ручной обмен содержимым двух соседних ячеек
Иногда бывает нужно поменять местами содержимое двух соседних ячеек — и это легко сделать вручную. Ниже описаны шаги для обмена данными между ячейками A4 и B4, как показано на снимках экрана:
- Выберите одну из ячеек для обмена: например, ячейку A4.
- Удерживайте клавишу Shift и наведите курсор на правую границу выделенной ячейки.
- Аккуратно переместите курсор к правой границе ячейки B4.
- Как только курсор примет вид символа «工», отпустите кнопку мыши.
Теперь содержимое двух ячеек должно быть обменено, как показано на снимке экрана ниже.
Простой обмен содержимым двух ячеек или диапазонов всего за несколько кликов
Чтобы обмениваться содержимым несмежных ячеек или диапазонов, гораздо проще воспользоваться надстройкой для Excel, такой как Kutools для Excel.
После установки Kutools для Excel выберите Kutools > Диапазон > Обмен диапазонами, чтобы открыть диалоговое окно Обмен диапазонами, а затем выполните следующие настройки.
- В разделе Диапазон 1 для обмена выберите первую ячейку или диапазон, содержимое которого требуется обменять.
- В разделе Диапазон 2 для обмена выберите вторую ячейку или диапазон, с которым нужно выполнить обмен.Совет: для удобства заранее выделите два диапазона до открытия диалогового окна «Обмен диапазонами». Выделенные диапазоны автоматически появятся в полях «Диапазон 1 для обмена» и «Диапазон 2 для обмена» соответственно.
- Нажмите кнопку OK.
Результат
Затем содержимое двух выбранных ячеек или диапазонов будет мгновенно заменено одно другим. См. снимки экрана:
Если вы хотите воспользоваться бесплатной пробной версией (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 для 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек