删除特点列为0的VBA

vicky427000

2024草稿.rar (28.32 KB, 下载次数: 2)

2024-3-12 14:10 上传

点击文件名下载附件
文件

附件中的文件有很多仓库，但是不是所有仓库的所有产品都有数据发生，为了发给每个人核对库存需要删除C,D,E ,F 列没有数据发生的空白行，但是我的仓库很多，我之前用的是辅助列，在BU,我是把CDEF的数据加起来做的辅助列，然后删除BU为0的行，但是这样会出错，有的时候比如国内出货的E和F都有数据就会加为0，把我有数据的列也会删除，实际情况是CDEF只要有数据都要留下来



还有第二个问题，我的仓库有30个左右，很多，除了目录表不要进行删除外，后面的仓库都要进行CDEF没有数据，就删除这一行，我每次运行代码只能一个表一个表的运行，我想所有的仓库运行一次代码，删除所有表的空白行，如果一个表一个表的运行代码，表格太多了。

请大家帮忙看怎么修改代码

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.3.12
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim tm: tm = Timer
   
5.     On Error Resume Next
   
6.     For Each sht In Sheets
   
7.         If InStr(sht.Name, "目录") = 0 Then
   
8.             With sht
   
9.                 r = .Columns(1).Find("合计").Row
   
10.                 c = .UsedRange.Columns.Count
    
11.                 arr = .[a1].Resize(r, c)
    
12.                 Set Rng = .Rows(UBound(arr) + 1)
    
13.                 For i = 3 To UBound(arr)
    
14.                     If arr(i, 3) = Empty And arr(i, 4) = Empty Then
    
15.                         If arr(i, 5) = Empty And arr(i, 6) = Empty Then
    
16.                             Set Rng = Union(Rng, .Rows(i))
    
17.                         End If
    
18.                     End If
    
19.                 Next i
    
20.                 If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
21.                 .Range("A3").Select
    
22.             End With
    
23.         End If
    
24.     Next
    
25.     Application.ScreenUpdating = True
    
26.     Application.DisplayAlerts = True
    
27.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
28. End Sub
    
29. 
    
30. 
    

复制代码

vicky427000

谢谢哈，非常感谢

vicky427000

ykcbf1100 发表于 2024-3-12 14:58
参与一下。。。

我空了学习下这个代码，谢谢哈