怎么删除指定列的0值

十二三

例如附件中标黄的标题项需要筛选出0值，然后删除整行，中间框起来的字段是无需理会的

ykcbf1100

代码运行结果，全部数据都得删除。

是不是数据摸拟有点问题。

ykcbf1100

代码如下：

1. Sub ykcbf() '//2024.3.8
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     With Sheets("Sheet1")
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         c = .UsedRange.Columns.Count
   
7.         arr = .[a1].Resize(r, c)
   
8.         Set Rng = .Rows(r + 1)
   
9.         For i = UBound(arr) To 3 Step -1
   
10.             For j = 1 To UBound(arr, 2)
    
11.                 If j < 9 Or j > 11 Then
    
12.                     If arr(i, j) = Empty Then
    
13.                         Set Rng = Union(Rng, .Rows(i))
    
14.                         Exit For
    
15.                     End If
    
16.                 End If
    
17.             Next
    
18.         Next
    
19.         If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
20.     End With
    
21.     Application.ScreenUpdating = True
    
22.     MsgBox "OK！"
    
23. End Sub
    

复制代码

十二三

ykcbf1100 发表于 2024-3-8 17:35
代码运行结果，全部数据都得删除。

是不是数据摸拟有点问题。

你好，我刚刚用你的代码进行了测试，发现位于第三行的数据，不管单元格的内容，整行都会被删除

gwjkkkkk

建议模拟一下结果。。。

ykcbf1100

十二三 发表于 2024-3-8 17:49
你好，我刚刚用你的代码进行了测试，发现位于第三行的数据，不管单元格的内容，整行都会被删除

第3行有0值啊