删除工作表的数据错误值和0值（再次请问大神帮助）

liulang0808

花菲飞 发表于 2025-1-15 12:57
谢谢您的帮助，但好像有些其他公式产生的符号没有清除，只清除了0值班。

就是定位，选择公式错误值，进行清除即可，恢复的时候已经提示了
楼主自己也可以录制宏代码参考的

ykcbf1100

花菲飞 发表于 2025-1-15 12:57
谢谢您的帮助，但好像有些其他公式产生的符号没有清除，只清除了0值班。

其实7楼版主的方法是可行的，速度更快，只要再加入清除公式产生的错误值代码就行了。
工作表1中I11单元格是公式产生的错误。

ykcbf1100

此方法速度更快，可同时清除静态错误值和公式产生的错误值。

1. Sub ykcbf2()  '//2025.1.15
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     arr = Sheets("设置").[a1].CurrentRegion
   
5.     Application.ScreenUpdating = False
   
6.     On Error Resume Next
   
7.     For i = 2 To UBound(arr)
   
8.         With Sheets(arr(i, 1))
   
9.             Set Rng = Intersect(.UsedRange, .Range(arr(i, 2)))
   
10.             Rng.SpecialCells(xlCellTypeConstants, 16).ClearContents
    
11.             Rng.SpecialCells(xlCellTypeFormulas, 16).ClearContents
    
12.             Rng.Replace what:="0", Replacement:="", LookAt:=xlWhole
    
13.         End With
    
14.     Next
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "OK！"
    
17. End Sub
    
18. 
    

复制代码

花菲飞

liulang0808 发表于 2025-1-15 13:21
就是定位，选择公式错误值，进行清除即可，恢复的时候已经提示了
楼主自己也可以录制宏代码参考的

好的，感谢您帮助与指导。

花菲飞

ykcbf1100 发表于 2025-1-15 15:54
其实7楼版主的方法是可行的，速度更快，只要再加入清除公式产生的错误值代码就行了。
工作表1中I11单元 ...

谢谢您的帮助。太强大了