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

Question

我找到了一个删除条件格式但保留格式的线程。

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

最好 亚历克斯

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

附言我为枚举xlEdgeTop、xlEdgeLeft等使用数值来缩短循环代码。