[已解决]如何使用vba快速删除空白的列？

gemini_

我从erp中导出了一张库存报表，这个表项目很多，分有很多列，我只想保留有数据的列，没有数据的统统删掉，这个要怎么编写代码啊？请高手指教！

最佳答案

月排行榜 / 总排行榜

sry660

2016-3-21 15:45

gemini_ 发表于 2016-3-21 15:01
多谢老师，我不是很懂这个代码每条的意思，能否再麻烦老师逐条注释一下！

谢谢啦！

1. Sub 删除空白列()
   
2.     Dim jmax&, rng, j&  '定义变量
   
3.     jmax = Cells(1, Columns.Count).End(1).Column    '数据区域的最大列
   
4.     Set rng = Cells(1, jmax + 1)    '给变量初始值
   
5.     For j = 1 To jmax   '循环语句，在1到最大列之间循环
   
6.         If Application.CountA(Columns(j)) = 1 Then  '满足单列非空单元格数量为1的
   
7.             Set rng = Union(rng, Cells(1, j))   '将满足条件的单元格放入变量
   
8.         End If
   
9.     Next
   
10.     rng.EntireColumn.Delete '将单元格集合所在的列删除
    
11. End Sub

复制代码

跳转到最佳答案楼层

gemini_

请高手赐教，初学者在线等

sry660

1. Sub 删除空白列()
   
2.     Dim jmax&, rng, j&
   
3.     jmax = Cells(1, Columns.Count).End(1).Column
   
4.     Set rng = Cells(1, jmax + 1)
   
5.     For j = 1 To jmax
   
6.         If Application.CountA(Columns(j)) = 1 Then
   
7.             Set rng = Union(rng, Cells(1, j))
   
8.         End If
   
9.     Next
   
10.     rng.EntireColumn.Delete
    
11. End Sub

复制代码

gemini_

sry660 发表于 2016-3-21 14:45

多谢老师，我不是很懂这个代码每条的意思，能否再麻烦老师逐条注释一下！

谢谢啦！

sry660

gemini_ 发表于 2016-3-21 15:01
多谢老师，我不是很懂这个代码每条的意思，能否再麻烦老师逐条注释一下！

谢谢啦！

1. Sub 删除空白列()
   
2.     Dim jmax&, rng, j&  '定义变量
   
3.     jmax = Cells(1, Columns.Count).End(1).Column    '数据区域的最大列
   
4.     Set rng = Cells(1, jmax + 1)    '给变量初始值
   
5.     For j = 1 To jmax   '循环语句，在1到最大列之间循环
   
6.         If Application.CountA(Columns(j)) = 1 Then  '满足单列非空单元格数量为1的
   
7.             Set rng = Union(rng, Cells(1, j))   '将满足条件的单元格放入变量
   
8.         End If
   
9.     Next
   
10.     rng.EntireColumn.Delete '将单元格集合所在的列删除
    
11. End Sub

复制代码

gemini_

sry660 发表于 2016-3-21 15:45

谢谢老师