5

有没有办法在保留边框格式的同时插入新行？我可以在保留除边框之外的所有格式的同时插入。我正在创建的宏本质上会提示用户输入一个值（strXX），然后在列表中搜索它。如果不存在，则执行以下操作。

iRow = WorksheetFunction.Match(strXX, Columns("A")) + 1
Intersect(Range("Z:TT"), Rows(iRow)).Insert _
XlInsertShiftDirection.xlShiftDown, CopyOrigin:=Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove

关于CopyOrigin有什么我必须改变的吗？似乎有可以通过粘贴功能使用的方法，但是在使用 .Insert 时我找不到类似的方法。

非常感谢任何帮助...谢谢！

更新（8/15）： 自从这篇文章以来，我已经重新格式化了我的电子表格中的内容，并且能够解决这个问题。我仍然对反馈非常感兴趣，因为原始配置无法复制边框。这肯定会在以后重新出现。请参阅下面的支持信息。

有 2 张将被更新。第一个效果很好，因为它保留了单元格格式（不需要边框）。见下文。 在此处输入图像描述

此帖子中描述的问题与第二张纸有关。插入该行并保留除边框之外的所有格式（标准“外边框”设置）。见下文。 在此处输入图像描述

4

1 回答 1

1

只需按照评论中建议的代码来做，就像这样

With cell.Borders(xlEdgeTop)
   .LineStyle = xlContinuous
   .ColorIndex = 0
   .TintAndShade = 0
   .Weight = xlThin
End With
With cell.Borders(xlEdgeBottom)
   .LineStyle = xlContinuous
   .ColorIndex = 0
   .TintAndShade = 0
   .Weight = xlThin
End With
With cell.Borders(xlEdgeRight)
   .LineStyle = xlContinuous
   .ColorIndex = 0
   .TintAndShade = 0
   .Weight = xlThin
End With
With cell.Borders(xlEdgeLeft)
   .LineStyle = xlContinuous
   .ColorIndex = 0
   .TintAndShade = 0
   .Weight = xlThin
End With
于 2015-06-09T04:06:40.297 回答