Как скопировать в Excel только границы выделенного диапазона?
При использовании Microsoft Excel легко копировать только значения ячеек, форматирование ячеек, формулы ячеек и т. Д. Из диапазона с помощью специальной функции «Вставить». Но пробовали ли вы когда-нибудь скопировать только стиль границы из диапазона в Excel? В этой статье будет показан метод копирования только границ выделенного диапазона в новый диапазон в Excel.
Копировать только границы выделенного диапазона с кодом VBA
Копировать только границы выделенного диапазона с кодом VBA
Следующий код VBA может помочь вам скопировать только стиль границы выбранных ячеек, а затем применить этот стиль границы к новому диапазону в Excel. Пожалуйста, сделайте следующее.
1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, а затем скопируйте и вставьте приведенный ниже код 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 ключ для запуска кода. При первом появлении Kutools for Excel диалоговом окне выберите диапазон с границами, которые необходимо скопировать, а затем щелкните OK .
4. В секунду Kutools for Excel диалоговом окне выберите ячейку для применения скопированной границы, затем щелкните OK кнопка. Смотрите скриншот:
Затем вы можете видеть, что только стиль границы выбранного диапазона копируется и применяется к новому диапазону, как показано ниже.
Статьи по теме:
- Как копировать и вставлять значения без дублирования в Excel?
- Как скопировать данные ячеек с высотой строки и шириной столбца в Excel?
- Как скопировать ячейку как текстовое значение, а не формулу в Excel?
- Как скопировать данные в следующую пустую строку другого листа в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!