Как скопировать только границы выделенного диапазона в Excel?
При работе в Microsoft Excel часто возникает необходимость перенести определённое форматирование из одного диапазона в другой. Стандартные операции копирования и вставки позволяют копировать значения ячеек, формулы или даже всё форматирование с помощью функции «Вставить специально». Однако бывают ситуации, когда нужно воспроизвести только стиль границ. Выберите диапазон, не затрагивая другие элементы форматирования — такие как цвета, шрифты или заливки. Например, вы можете стремиться поддерживать единый стиль границ таблицы в разных разделах листа или воссоздавать одинаковые макеты границ в новых шаблонных листах. К сожалению, Excel не предлагает простого встроенного способа копировать и вставлять только границы ячеек. В этом руководстве описан практичный метод, позволяющий скопировать исключительно границы любого выбранного диапазона и применить их к новому диапазону в Excel — обеспечивая согласованность оформления без изменения других свойств ячеек.
Используйте код VBA для копирования только границ Выберите диапазон
Альтернативное решение: Воспроизведение границ вручную с помощью Использование формата Painter
Используйте код VBA для копирования только границ Выберите диапазон
С помощью простого макроса VBA вы можете эффективно копировать точный стиль границ из одной ячейки или диапазона и применять его в другом месте листа независимо от содержимого или других атрибутов форматирования. Это решение идеально подходит, когда требуется автоматизация повторяющихся задач или ускорение рабочего процесса при работе с таблицами и шаблонами с пользовательским оформлением. Следуйте подробным инструкциям ниже, чтобы безопасно запустить код VBA, и обратите внимание на полезные советы по параметрам.
1. Нажмите клавиши Alt+F11 одновременно на клавиатуре. Откроется окно редактора Microsoft Visual Basic для приложений (VBA). Если на ленте Excel нет вкладки «Разработчик», просто используйте эту комбинацию клавиш — она напрямую открывает редактор VBA в любой современной версии Excel.
2. В редакторе VBA выберите в меню Вставка, затем — Модуль. Откроется новое пустое окно модуля. Скопируйте и вставьте в него приведённый ниже код VBA.
Код VBA: Копирование только границ Выберите диапазон в Excel
Sub CopyBorders()
'Updated by Extendoffice 20211203
Dim xRg, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
With yRg.Borders(xlEdgeLeft)
.LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
.ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
.Weight = xRg.Borders(xlEdgeLeft).Weight
End With
With yRg.Borders(xlEdgeTop)
.LineStyle = xRg.Borders(xlEdgeTop).LineStyle
.ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
.Weight = xRg.Borders(xlEdgeTop).Weight
End With
With yRg.Borders(xlEdgeBottom)
.LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
.ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
.Weight = xRg.Borders(xlEdgeBottom).Weight
End With
With yRg.Borders(xlEdgeRight)
.LineStyle = xRg.Borders(xlEdgeRight).LineStyle
.ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
.Weight = xRg.Borders(xlEdgeRight).Weight
End With
With yRg.Borders(xlInsideHorizontal)
.LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
.ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
.TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
.Weight = xRg.Borders(xlInsideHorizontal).Weight
End With
With yRg.Borders(xlInsideVertical)
.LineStyle = xRg.Borders(xlInsideVertical).LineStyle
.ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
.TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
.Weight = xRg.Borders(xlInsideVertical).Weight
End With
End Sub
3. После вставки кода макрос можно запустить, нажав клавишу F5 или выбрав пункт Запуск на панели инструментов редактора VBA. При появлении первого диалогового окна «Kutools для Excel» выделите мышью диапазон, содержащий границы, которые нужно скопировать, и подтвердите выбор, нажав «OK».
4. Появится второе диалоговое окно с заголовком «Kutools для Excel». Теперь выберите верхнюю левую ячейку диапазона назначения, к которому нужно применить скопированный стиль границ. После выбора целевой ячейки (и, при необходимости, всего диапазона) нажмите «OK». См. иллюстрацию ниже:
После выполнения этих шагов оформление границ исходного диапазона будет применено к выбранному вами новому местоположению. Переносится только форматирование границ — данные ячеек, цвета и другие атрибуты остаются неизменными. Это особенно полезно при создании единообразных таблиц или копировании визуального стиля листов. Ниже приведён пример результата:
Альтернативное решение: Воспроизведение границ вручную с помощью Использование формата Painter
Для пользователей, предпочитающих подход без программирования, встроенный инструмент Excel Формат по образцу предлагает быстрый способ копировать форматирование границ — а также некоторые другие стили — из одного диапазона в другой. Вот как его использовать:
- Выделите диапазон, содержащий границы, которые вы хотите скопировать.
- На вкладке Главная, в группе Буфер обмена, нажмите кнопку Формат по образцу (значок кисти).
- Курсор превратится в кисть. Выделите диапазон, к которому хотите применить границы. Это одновременно перенесёт границы исходного диапазона и некоторые другие форматы — например, шрифт и цвет заливки.
Преимущества: Простота и встроенная доступность в Excel; идеально подходит для быстрого визуального копирования.
Недостатки: Невозможно скопировать только стиль границ — одновременно копируются и другие параметры форматирования ячеек, такие как цвет заливки, изменения шрифта и т.д. Не подходит, если нужно сохранить содержимое и форматирование целевых ячеек без изменений, за исключением границ.
Каждый метод имеет свои уникальные преимущества и идеально подходит для разных задач в рабочем процессе: VBA обеспечивает точную передачу только границ, а «Формат по образцу» — мгновенное копирование всего форматирования.
Связанные статьи:
- Как копировать и вставлять значения в Excel, пропуская дубликаты?
- Как копировать данные ячеек вместе с высотой строк и шириной столбцов в Excel?
- Как скопировать ячейку как текстовое значение, а не как формулу, в Excel?
- Как скопировать данные в первую пустую строку на другом листе в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек