VBA实现为含值/文本区域添加边框：现有代码效果不符

1. 先修正原代码的语法错误 #

原代码中存在一个多余的End If语句（无对应If判断），直接删除该语句即可，否则会触发编译错误。

2. 原代码的逻辑问题 #

你循环给每个单元格单独调用BorderAround方法，会导致相邻单元格的边框重叠显示，出现类似双线的效果——这是因为每个单元格的四条边都被单独添加边框，而非统一设置整个数据区域的边框。

3. 正确实现代码 #

方法一：快速设置完整边框（外框+内部分隔线）

这种写法简洁高效，直接给整个已用区域的所有边框统一设置样式：

Dim border As Range
Set border = ThisWorkbook.ActiveSheet.UsedRange

' 可选：清除原有边框，避免残留旧格式
border.Borders.LineStyle = xlNone

' 统一设置所有边框为细实线
With border.Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
End With

方法二：精细控制外框与内部边框

如果需要区分外框和内部边框的样式（比如外框加粗），可以用这种逐边设置的方式：

Dim border As Range
Set border = ThisWorkbook.ActiveSheet.UsedRange

' 清除原有边框
border.Borders.LineStyle = xlNone

' 设置外框样式
With border.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
End With
With border.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlThin
End With
With border.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
End With
With border.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
End With

' 设置内部单元格分隔线
With border.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .Weight = xlThin
End With
With border.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .Weight = xlThin
End With

效果说明 #

以上代码会给整个已用区域添加连续的单线条边框，相邻单元格之间不会出现重复线条，完全匹配你期望的样式。

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