Excel VBA删除条件格式保留边框

Question

我找到了thread where the conditional formatting is removed but the format is kept。

如果我运行脚本，我将丢失边框的条件格式。是否也可以将所有信息保存在边境上？

最佳， 亚历

Answer 1

在With aCell区块内，您可以尝试添加此内容：

Dim b as long
For b = 1 To 12
  .Borders(b).LineStyle = .DisplayFormat.Borders(b).LineStyle
  .Borders(b).Color = .DisplayFormat.Borders(b).Color
  .Borders(b).Weight = .DisplayFormat.Borders(b).Weight
Next

P.S。我使用枚举xlEdgeTop，xlEdgeLeft等的数值来缩短代码。