Как да копирате само граници на избрания диапазон в 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 за Excel диалогов прозорец, моля, изберете диапазона с граници, който трябва да копирате, и след това щракнете върху OK бутон.
4. Във втория Kutools за Excel в диалоговия прозорец, моля, изберете клетка, за да приложите копираната рамка, след което щракнете върху OK бутон. Вижте екранна снимка:
След това можете да видите само стила на границата на избрания диапазон, който е копиран и приложен към нов диапазон, както е показано на екранната снимка по-долу.
Свързани статии:
- Как да копирате и поставите стойности, пропускайки дубликати в Excel?
- Как да копирате данни от клетки с височина на ред и ширина на колона в Excel?
- Как да копирате клетка като текстова стойност, а не формула в Excel?
- Как да копирате данни в следващия празен ред на друг работен лист в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!