如何正确捕获Excel单元格边框？

Question

我使用“格式化单元格”为单元格（例如A1 ）添加了底边框：

[ A1有底边框， A2 没有底边框。]

如果我再编程捕捉单元格的格式A2 单元格的下边框A1被捕获作为电池的上边框A2 。

这不是在本机“格式刷”中发生的情况，在本机中，将A2的格式复制到其他某个单元格不会对该目标单元格添加任何边框-我尝试使用代码复制的行为。

如何实现呢？

Answer 1

这应该更多是评论，但是我还没有访问“评论”的权限。 格式刷与设置单元格格式时所看到的区别是您访问的是Borders对象还是range对象。 在borders对象中，这两个像元共享一个公共边界，因此两者都有边界。 但是，此边框属于A1，而不属于A2，因此，复制格式时 ，仅在复制A1时获得边框。

要在VBA中模拟此情况，您需要复制A1并执行PasteSpecial，如下所示：

ActiveCell.PasteSpecial Paste:=xlPasteFormats