Як скопіювати лише межі вибраного діапазону в Excel?
Використовуючи Microsoft Excel, легко скопіювати лише значення комірок, форматування комірок, формули комірок тощо з діапазону за допомогою функції Спеціальна вставка. Але ви коли-небудь пробували копіювати лише стиль кордону з діапазону в Excel? Ця стаття покаже вам спосіб копіювання лише меж вибраного діапазону до нового діапазону в Excel.
Скопіюйте лише межі вибраного діапазону за допомогою коду VBA
Скопіюйте лише межі вибраного діапазону за допомогою коду VBA
Наступний код VBA може допомогти вам лише скопіювати стиль меж вибраних комірок, а потім застосувати цей стиль межі до нового діапазону в Excel. Будь ласка, виконайте наступне.
1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте та вставте наведений нижче код 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% та зменшує сотні клацань миші для вас щодня!
