[已解决]删除部分数据和为0的列

望帝春心

欣情故事 发表于 2017-1-13 12:26
版主不要太凶残 就是这个样子    灰常感谢      能简单说明下么？     不想老做伸手党呀

我也是菜鸟，如果有帮助就评下最佳吧

欣情故事

望帝春心 发表于 2017-1-13 12:38
就简单的循环判断，如果和为0就删除列

使用的时候发现一个问题  使用该宏后 整个文件的都删除0和列     如何只删除当前sheet？

望帝春心

欣情故事 发表于 2017-1-13 13:34
使用的时候发现一个问题  使用该宏后 整个文件的都删除0和列     如何只删除当前sheet？

1. Sub test()
   
2. Dim i%
   
3. Application.ScreenUpdating = False
   
4.     With ActiveSheet
   
5.         For i = 25 To 9 Step -1
   
6.             If Application.WorksheetFunction.Sum(.Columns(i)) = 0 Then
   
7.                 .Columns(i).Delete
   
8.             End If
   
9.         Next
   
10.     End With
    
11. Application.ScreenUpdating = True
    
12. End Sub

复制代码

yonhe

学习一下!