从G列开始 删除合计列为0的列

毛毛_虫

删除列为0.rar (50.87 KB, 下载次数: 7)

2024-6-23 21:54 上传

点击文件名下载附件

从G列开始 删除合计列为0的列 工作簿里有30几个表格，所以手工做很慢，大家帮忙看下VBA怎么做。

quqiyuan

参与一下，供参考。。。

Qs18

Sub s()
Application.DisplayAlerts = False: Application.ScreenUpdating = False
Dim sht As Worksheet, rng As Range
For Each sht In Sheets
    Set rng = sht.Columns("a:a").Find("合计")
    If Not rng Is Nothing Then
        rw = rng.Row
        cl = sht.Cells(rw, Columns.Count).End(xlToLeft).Column
        For j = cl To 7 Step -1
            If sht.Cells(rw, j).Value = 0 Then
            sht.Cells(rw, j).EntireColumn.Delete
            End If
        Next
    End If
Next
Application.DisplayAlerts = True: Application.ScreenUpdating = True
MsgBox "完成！"
End Sub

Qs18

试试..............

Qs18

试一下.......

ykcbf1100

参与一下，删除列

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.24  删除合计为0的列
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     For Each Sht In Sheets
   
5.         Set Rng = Nothing
   
6.         With Sht
   
7.             c = .UsedRange.Columns.Count
   
8.             r = .Columns(1).Find("合计", LookAt:=xlWhole).Row
   
9.             For j = c To 7 Step -1
   
10.                 If .Cells(2, j) <> "出库备注" Then
    
11.                     If .Cells(r, j) = 0 Then
    
12.                         .Columns(j).Delete
    
13.                     End If
    
14.                 End If
    
15.             Next
    
16.         End With
    
17.     Next
    
18.     Application.ScreenUpdating = True
    
19.     Application.DisplayAlerts = True
    
20.     MsgBox "OK！"
    
21. End Sub
    
22. 
    
23. 
    

复制代码

毛毛_虫

谢谢大家，用过了，结果很好，非常感谢