求助，怎么批量删除条件格式重复项

ouyangbao · 发表于 2019-5-27 13:29

各位大神，我这边有个表格，其中为了避免错误，单元格有很多的条件格式来进行提醒，现在的问题是条件规则里面有很多是重复的规则（规则比较多，有上百项，每个单元格都不同），求助怎么批量删除重复的规则！

lss001 · 发表于 2019-5-27 14:42

本帖最后由 lss001 于 2019-5-29 13:06 编辑

Dim i&
Sub tjgs()'批量删除重复条件格式！
Set tj = Cells.FormatConditions
  For i =  tj.Count To 2 Step - 1
If tj.Item(i).Type = 1 Then
   For j = i - 1 To 1 Step - 1
      If tj.Item(j).Type = 1 Then
      If tj.Item(j).Formula1 = tj.Item(i).Formula1 Then
         i = i + 1: tj.Item(j).Delete
      End If
      End If
   Next
End If
  Next
End Sub

ouyangbao · 发表于 2019-5-28 10:25

lss001 发表于 2019-5-27 14:42
Sub tjgs()'批量删除重复条件格式！
Set tj = Cells.FormatConditions
For i = 1 To tj.Count - ...

呃，大神，我已经完全蒙蔽了，不会搞啊！

lss001 · 发表于 2019-5-28 10:59

ouyangbao 发表于 2019-5-28 10:25
呃，大神，我已经完全蒙蔽了，不会搞啊！

把代码复制到文件模块中，然后运行代码！
实在不行请上传您的附件！

840818468 · 发表于 2019-5-28 11:19

点击左上角全选文档，开始--条件格式--清除规则--所选单位格

ouyangbao · 发表于 2019-5-28 14:39

840818468 发表于 2019-5-28 11:19
点击左上角全选文档，开始--条件格式--清除规则--所选单位格

大哥，你是来添乱的吧！

ouyangbao · 发表于 2019-5-28 14:41

lss001 发表于 2019-5-28 10:59
把代码复制到文件模块中，然后运行代码！
实在不行请上传您的附件！

好的，我把附件穿上来，您给看看

ouyangbao · 发表于 2019-5-28 14:43

lss001 发表于 2019-5-28 10:59
把代码复制到文件模块中，然后运行代码！
实在不行请上传您的附件！

文件，您给看一下

lss001 · 发表于 2019-5-28 22:17

可参考2楼更新！！！

ouyangbao · 发表于 2019-5-29 09:38

lss001 发表于 2019-5-28 22:17
可参考2楼更新！！！

还是不行，运行错误438！

		自动登录	找回密码
密码			免费注册

[已解决] 求助，怎么批量删除条件格式重复项

评分

最新热点 /1