区域内若某列全部空白则隐藏，如何用VBA实现？

kof_nzx

区域内若某列全部空白则隐藏，如何用VBA实现？

假定有区域A1:D5，其中C列在此区域内“全部空白”（但在区域外非空白，如C7），如何通过VBA隐藏掉C列？

谢谢
隐藏.zip (1.91 KB, 下载次数: 9)

2012-9-28 16:19 上传

点击文件名下载附件

AVEL

1. Option Explicit
   
2. Sub l()
   
3.     Dim rng As Range
   
4.     Dim col As Range
   
5.     Set rng = [a1:d5]
   
6.     Application.ScreenUpdating = False
   
7.     rng.EntireColumn.Hidden = False
   
8.     For Each col In rng.Columns
   
9.         If Application.CountA(col) = 0 Then col.EntireColumn.Hidden = True
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

AVEL

EH(AVEL)-隐藏 12-09-28 16-40.rar (11.77 KB, 下载次数: 57)

2012-9-28 16:40 上传

点击文件名下载附件

试试看

kof_nzx

AVEL 发表于 2012-9-28 16:40
试试看

正解，非常感谢！

280077695

AVEL 发表于 2012-9-28 16:39

请问 如果这个区域变成从 第二行开始的应该怎么改代码呢？  比如区域是a2:d5 ！

AVEL

280077695 发表于 2018-8-20 16:53
请问 如果这个区域变成从 第二行开始的应该怎么改代码呢？  比如区域是a2:d5 ！

修改原代码中rng的单元格区域范围就好了。

比如：rng=[a2:d5]

280077695

AVEL 发表于 2018-8-21 14:00
修改原代码中rng的单元格区域范围就好了。

比如：rng=[a2:d5]

我的表格第一行是表格的标题，第二行开始是数据，所以我把区域设置成（c2:h10）,没有数据的列就隐藏，可是执行以后只有没有标题的列（c1没有内容的列）隐藏了，c1有内容的列都不会隐藏！

280077695

AVEL 发表于 2018-8-21 14:00
修改原代码中rng的单元格区域范围就好了。

比如：rng=[a2:d5]

我那个表格是从某个erp中导出的表格，看着没数据，代码却能认出有数据，所以不会隐藏，我把那些空格都删掉，重新挑着输了几个数据测试了一下，可以隐藏了！谢谢了！ 现在的问题是，能不能把这个看着没有数据的单元格都当成空的去隐藏啊？