Selection.Clear会一次性清除单元格的内容、格式、批注、超链接等所有元素，其中就包括边框样式。要保留边框，可通过以下几种方式实现：

1. 使用精准清除方法替代Clear #

根据实际需求选择针对性的清除命令，而非全盘清除：

• 仅清除单元格内容：Selection.ClearContents
• 仅清除批注：Selection.ClearComments
• 仅清除超链接：Selection.ClearHyperlinks
  这类操作不会影响边框及其他格式。

2. 保存边框样式后恢复 #

如果需要实现类似Clear的全面清除效果但保留边框，可先保存当前边框的样式参数，清除后再恢复：

Sub ClearKeepBorders()
    Dim rng As Range
    Dim edgeWeights As Variant, edgeColors As Variant
    Dim i As Integer
    
    Set rng = Selection
    ' 定义要保存的边框类型：上下左右、内部横竖线
    Dim borderTypes As Variant
    borderTypes = Array(xlEdgeTop, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, _
                        xlInsideHorizontal, xlInsideVertical)
    
    ' 保存边框的粗细和颜色
    ReDim edgeWeights(UBound(borderTypes))
    ReDim edgeColors(UBound(borderTypes))
    For i = LBound(borderTypes) To UBound(borderTypes)
        With rng.Borders(borderTypes(i))
            edgeWeights(i) = .Weight
            edgeColors(i) = .Color
        End With
    Next i
    
    ' 执行清除操作
    rng.Clear
    
    ' 恢复边框样式
    For i = LBound(borderTypes) To UBound(borderTypes)
        With rng.Borders(borderTypes(i))
            .Weight = edgeWeights(i)
            .Color = edgeColors(i)
        End With
    Next i
End Sub

这段代码会保存选中区域所有内外边框的粗细和颜色，清除后完整恢复，适合需要保留所有边框的场景。

3. 自定义清除范围 #

如果需要清除内容和部分格式，但保留边框，可组合使用清除命令：

Sub CustomClearPreserveBorders()
    With Selection
        .ClearContents ' 清除内容
        .Font.Clear ' 清除字体格式
        .Interior.Clear ' 清除填充格式
        .ClearComments ' 清除批注
        .ClearHyperlinks ' 清除超链接
    End With
End Sub

注意：ClearFormats会清除包括边框在内的所有格式，因此如果要保留边框，需单独清除特定格式属性，而非使用ClearFormats。

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