【求助】请问怎么用VBA实现隐藏列的功能

zhaozhaoxqh

求助各位大神，想要隐藏没有数据的列怎么操作，就比如隐藏D、E、G列（有标题，但是标题下面的数据均为空白的列），写的代码一直出错，看不出为什么？
目前我的代码如下（标黄部分报错）：
Sub yincanglie()
Dim rng As Range
rs = Cells(4, Columns.Count).End(xlToLeft).Column
Range(Cells(1, 3), Cells(1, rs)).EntireColumn.Hidden = False
For i = 3 To rs
m = 0
m = Application.CountA(Range(Cells(1, i), Cells(53, i)))
If m = 0 Then
If rng Is Nothing Then
Set rng = Columns(i)
Else
Set rng = Union(rng, Columns(i))
End If
End If
Next i
rng.EntireColumn.Hidden = True
End Sub

约定的童话

Sub test()
    Dim i, rng
    For i = 3 To 21
        For Each rng In Range(Cells(4, i), Cells(53, i))
            If rng <> "" Then
                n = n + 1
            End If
        Next
        If n = 0 Then Columns(i).Hidden = True
        n = 0
    Next
End Sub
效果还可以，好用记得评分一下吧，谢谢！

zhaozhaoxqh

约定的童话 发表于 2019-4-30 11:20
Sub test()
    Dim i, rng
    For i = 3 To 21

优秀，太优秀了

zhaozhaoxqh

约定的童话 发表于 2019-4-30 11:20
Sub test()
    Dim i, rng
    For i = 3 To 21

优秀，太优秀了，谢谢啦

b_57

你都是数字而且不会有负数吧，我改了下
Sub test()
     Dim i, rng
     For i = 3 To 21
       if  application.worksheetfunction.sum(range(cells(4,i),cells(53,i))) =0 then Columns(i).Hidden = True
         Next
End Sub