Excel 如何在通过VBA排序时保持条件格式

我有根据范围变化对范围进行排序的代码。它对值进行排序，但保留条件格式。如何保持条件格式

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("range2rating")) Is Nothing Then
Call deadlines1
End If
End Sub

Sub deadlines1()
Range("range2").Sort _
Key1:=Range("range2rating"), Order1:=xlDescending
End Sub

---

我会考虑让代码在排序后进行格式化。你能澄清你的问题是什么吗？你预计会发生什么？什么事没有发生？对不起，忘了问这个问题。如何让代码在排序时也移动条件格式和单元格填充？AFAIK条件格式会随排序而改变，但取决于您如何定义条件格式的范围，它可能不会随数据范围而改变。要么（1）动态定义条件格式范围，要么（2）在脚本之前删除所有条件格式，然后在脚本之后重新应用它们。我会考虑让代码在排序之后进行格式设置。你能澄清你的问题是什么吗？你预计会发生什么？什么事没有发生？对不起，忘了问这个问题。如何让代码在排序时也移动条件格式和单元格填充？AFAIK条件格式会随排序而改变，但取决于您如何定义条件格式的范围，它可能不会随数据范围而改变。（1）动态定义条件格式范围，或（2）在脚本之前删除所有条件格式，然后在脚本之后重新应用它们。