Excel VBA 中如何清除单元格并保留边框？

如果需要清除单元格中的值和公式，同时保留边框，将 Selection.Clear 改为 Selection.ClearContents。

为什么 Clear 会删除边框？

Range.Clear 会清除单元格的内容和格式，包括边框。它没有保留边框的可选参数。

Range.ClearContents 只清除值和公式，保留单元格格式，包括边框、填充色、字体和数字格式。

如何修改代码？

将原来的代码：

Selection.Clear

替换为：

Selection.ClearContents

这段代码要求当前选中的是单元格区域。如果宏运行时可能选中图表、形状等对象，可以先检查选中对象的类型：

Sub ClearSelectedCellContents()
    If TypeOf Selection Is Excel.Range Then
        Selection.ClearContents
    End If
End Sub

如果目标区域固定，也可以直接指定工作表和范围：

ThisWorkbook.Worksheets("Sheet1").Range("A1:D10").ClearContents

其中 Sheet1 和 A1:D10 需要替换成实际的工作表名称和区域。

如果还需要清除其他格式呢？

ClearContents 会保留所有单元格格式，无法用它清除其他格式而只保留边框。如果有这个需求，可以先清除内容，再分别重置需要修改的格式属性；也可以先保存边框设置，执行 Clear 后再恢复边框。如果只需要清空内容，就不需要这些额外步骤。

ClearContents 也会删除公式。如果需要保留公式，就不能对整个选区直接调用它。

备注：内容仅供参考。