I just purchased the Kutools for Excel because I was looking for an option to copy in Excel only the borders from a selected area - leaving the content, formatting, column width from the destination area unchanged. I found a solution for this - using Kutools for Excel on this web-page: <a href="https://www.extendoffice.com/documents/excel/4336-excel-copy-borders-only.html#a1" >https://www.extendoffice.com/documents/excel/4336-excel-copy-borders-only.html#a1</a> Now I tried to use the suggested macro and discovered it doesn't do at all what was promised: Besides copying the borders it also: - deletes the formatting from the destionation area - changes the column of the destionation area Moreover the macro works quite slow and the changes can't be undone. Could you please help me out to ensure that the macro does what was promised....? Hope to hear from you Best Marianne

全新

选项“仅复制边框”

Kutools for Excel

玛丽安万卢贝克

周三，06 2021十月

3 回复

7.4K访问

投票

解开

我刚刚购买了 Kutools for Excel，因为我正在寻找一个选项，可以在 Excel 中仅复制选定区域的边框 - 保持目标区域的内容、格式、列宽不变。

我找到了一个解决方案 - 在此网页上使用 Kutools for Excel：
https://www.extendoffice.com/documents/excel/4336-excel-copy-borders-only.html#a1

现在我尝试使用建议的宏，发现它根本没有做承诺的事情：
除了复制边界它还：
- 从目标区域中删除格式
- 更改目标区域的列
此外，宏的工作速度很慢，并且更改无法撤消。

你能帮我确保宏能实现所承诺的……吗？

期待您的回复

最棒的
玛丽安

Amanda Lee

2年前

#2314

投票

解开

嗨 MariannevanLubek，

抱歉，添麻烦了。在这里，我们为案例编写了另一个宏。你能试试吗？

Sub CopyBorders()

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 Cells 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