恳请高手师傅们帮忙提供一个快速删除指定表格内有0，或者0：00的代码

qiongmei6

我附件上a5：f116，我想求得一个代码，就是在这个表格内a5：f116，如果单元格是0，或者0：00，执行代码后这些单元都为空白，谢谢各位高手师傅的帮忙。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("个税表")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a5:f" & r)
   
7.         For i = 1 To UBound(arr)
   
8.             For j = 1 To UBound(arr, 2)
   
9.                 If arr(i, j) = 0 Then
   
10.                     arr(i, j) = Empty
    
11.                 End If
    
12.             Next
    
13.         Next
    
14.         .Range("a5:f" & r) = arr
    
15.     End With
    
16. End Sub
    

复制代码

chxw68

简单问题。

万事胜①

Book1.zip (21.71 KB, 下载次数: 6)

2023-3-4 11:28 上传

点击文件名下载附件

杨建营

这个最方便了。

gwjkkkkk

Sub test()
    Dim ar
    ar = [A1].CurrentRegion
    For i = 1 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            ar(i, j) = IIf(ar(i, j) = 0, "", ar(i, j))
        Next j
    Next i
    [A1].CurrentRegion = ar
End Sub