VBA Excel - 在下面以相同的格式插入行,包括边框和框架

Question

我想构建一个宏,在所选单元格下面以相同的格式插入一行.这是我到目前为止的代码:

Public Sub insertRowBelow()
ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
End Sub

问题是:此代码仅部分传输格式.它确实对新行使用相同的背景颜色,但它不使用单元格的边框/框架.我怎样才能做到这一点？

Answer 1

最简单的选择是使用Excel复制/粘贴.

Public Sub insertRowBelow()
ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub