VBA中Range右侧边框仅应用于最后一个单元格问题咨询

这不是边框覆盖问题，是对Borders(xlEdgeRight)的作用范围理解有误：

• 当你对一个单元格区域使用Borders(xlEdgeRight)时，它仅指代整个区域的最右侧边缘，也就是示例中D5的右边框，而非区域内每个单元格的右边框。
• 区域内A5、B5、C5的右边框属于内部垂直边框，需要用xlInsideVertical来设置。

解决方案1：同时设置内部垂直边框与区域右侧边框 #

With Range("A5:D5")
    ' 配置区域内单元格的内部垂直边框（A5、B5、C5的右边框）
    With .Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .Color = vbYellow
    End With
    ' 配置区域最右侧的边框（D5的右边框）
    With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .Color = vbYellow
    End With
End With

解决方案2：遍历每个单元格单独设置右边框 #

如果需要更灵活的控制，可以逐个遍历区域内的单元格：

Dim cell As Range
For Each cell In Range("A5:D5")
    With cell.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .Color = vbYellow
    End With
Next cell

内容的提问来源于stack exchange，提问作者M J