使用 VBA 操作范围内的边框答案

【问题标题】：Manipulating borders within a range using VBA使用 VBA 操作范围内的边框
【发布时间】：2018-04-14 00:57:47
【问题描述】：

我有一个带有 3x3 网格的 Excel 工作表，它在整个网格周围有一个边框，在网格内还有水平和垂直单元格边框。使用 VBA 子例程，我想更改边框以删除内部边框，但保留周围的边框。为此，我编写了以下 sn-p

With Selection
    .Clear
    .Borders(xlInsideHorizontal).LineStyle = xlNone
    .Borders(xlInsideVertical).LineStyle = xlNone
    .Merge
    .Font.Color = RGB(0, 255, 0)
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
End With

选择是3x3网格时，当执行此SN-P时，它确实删除了水平和垂直内部线路，但也可以删除外部边框。如何保持外部边界完好无损？我想重新创建它是一种选择，但问题是实际上有许多这样的 3x3 网格，并且根据它们在工作表上的位置，四个外部边界中的每一个都可以采用不同的线宽。如果不是真的有必要，我宁愿不必根据网格位置确定要使用的权重。

【问题讨论】：

标签： excel vba

【解决方案1】：

试试你的代码

Selection.Clear

【讨论】：