在默认情况下,客户端的一个电子表格(带有1个工作表)包含2条件格式规则,为了自己的方便,我通常添加几条新规则。
我希望删除我创建的所有新规则,但保留客户端规则。
剧本:
Sub Remove_New_Formatting()
With ActiveSheet.Cells
For i = 3 To ActiveSheet.Cells.FormatConditions.Count
.FormatConditions.Item(i).Delete
Next i
End With
End Sub
结果:
当我运行脚本时,只有几条规则被删除,然后我将'Subscript超出范围‘错误。
我不知道我做错了什么。
发布于 2020-08-18 14:43:27
删除最自然的循环方式是向后执行。
Sub Remove_New_Formatting()
Dim i As Long
With ActiveSheet.Cells.FormatConditions
For i = .Count To 3 Step -1
.Item(i).Delete
Next i
End With
End Sub
https://stackoverflow.com/questions/63470825
复制相似问题