删除条件格式时保留格式

Question

我一直在使用以下代码（在删除条件格式时保留格式）工作正常，但速度很慢。完成任务需要 1 分钟以上。

有什么方法可以让它快速运行，因为如果数据更多，则需要更多时间。任何帮助将不胜感激。

Sub Keep_Formats()

 Dim ws As Worksheet
 Dim mySel As Range, aCell As Range

 Set ws = ThisWorkbook.Sheets("DATA")
 
 Set mySel = ws.UsedRange
 For Each aCell In mySel
 With aCell
 .Interior.Color = .DisplayFormat.Interior.Color
 End With
 Next aCell
 mySel.FormatConditions.Delete
End Sub