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

欣情故事

如题   想将附件中的文件   I 列  到  Y列  之间 每一列进行单独求和   如果结果为零， 则删除该列   最终希望能达到  图片3中的效果 （行数不固定  可能会几十条的样子）      自己弄了半天都不行  {:031:} 只好过来伸手    求大神帮忙    谢谢

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-1-13 12:17

1. Sub test()
   
2. Dim sht As Worksheet, i%
   
3. Application.ScreenUpdating = False
   
4.     For Each sht In Sheets
   
5.         For i = 25 To 9 Step -1
   
6.             If Application.WorksheetFunction.Round(Application.WorksheetFunction.Sum(sht.Columns(i)), 0) = 0 Then
   
7.                 sht.Columns(i).Delete
   
8.             End If
   
9.         Next
   
10.     Next
    
11. Application.ScreenUpdating = True
    
12. End Sub

复制代码

跳转到最佳答案楼层

欣情故事

自己先顶！d=====(￣▽￣*)b

爱疯

求和按 alt+=
全选按 ctrl+a
删除按 ctrl+-

欣情故事

爱疯 发表于 2017-1-13 11:35
求和按 alt+=
全选按 ctrl+a
删除按 ctrl+-

谢谢  是这么个意思  不过   这个整理重复性很强   每个文件都这么做 要崩溃的呀   我想实现 用VBA 一键搞定的那种  {:251:}

欣情故事

不要沉呀~

望帝春心

我晕用代码判断K\L两列删不掉啊

望帝春心

望帝春心 发表于 2017-1-13 12:10
我晕用代码判断K\L两列删不掉啊

我擦，知道哪里出错了

望帝春心

1. Sub test()
   
2. Dim sht As Worksheet, i%
   
3. Application.ScreenUpdating = False
   
4.     For Each sht In Sheets
   
5.         For i = 25 To 9 Step -1
   
6.             If Application.WorksheetFunction.Round(Application.WorksheetFunction.Sum(sht.Columns(i)), 0) = 0 Then
   
7.                 sht.Columns(i).Delete
   
8.             End If
   
9.         Next
   
10.     Next
    
11. Application.ScreenUpdating = True
    
12. End Sub

复制代码

欣情故事

望帝春心 发表于 2017-1-13 12:17

版主不要太凶残 就是这个样子  {:071:}  灰常感谢      能简单说明下么？     不想老做伸手党呀

望帝春心

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

就简单的循环判断，如果和为0就删除列