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 

附：我使用數值爲枚舉xlEdgeTop,xlEdgeLeft等，以縮短代碼與循環。