[已解决]VBA把列隐藏 但合计数

laoau138

VBA把列隐藏  但合计数

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-6 13:05

1. Sub aaa()
   
2. Dim j&, clm&, rw&, rng As Range, rng1 As Range
   
3. clm = [iv1].End(1).Column
   
4. rw = [a65536].End(3).Row - 1
   
5. For j = 2 To clm
   
6.   Set rng1 = Range(Cells(2, j), Cells(rw, j))
   
7.   If Application.CountA(rng1) = 0 Then
   
8.     If rng Is Nothing Then Set rng = rng1 Else Set rng = Union(rng, rng1)
   
9.   End If
   
10. Next
    
11. rng.EntireColumn.Hidden = True
    
12. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim j&, clm&, rw&, rng As Range, rng1 As Range
   
3. clm = [iv1].End(1).Column
   
4. rw = [a65536].End(3).Row - 1
   
5. For j = 2 To clm
   
6.   Set rng1 = Range(Cells(2, j), Cells(rw, j))
   
7.   If Application.CountA(rng1) = 0 Then
   
8.     If rng Is Nothing Then Set rng = rng1 Else Set rng = Union(rng, rng1)
   
9.   End If
   
10. Next
    
11. rng.EntireColumn.Hidden = True
    
12. End Sub

复制代码

huizhiaisha

Public Sub abc()

    iColumn = [IV1].End(xlToLeft).Column

    For i = 2 To iColumn
        iRow = Cells(1, i).End(xlDown).Row
        If iRow = 33 Then Columns(i).EntireColumn.Hidden = True
    Next

End Sub

huizhiaisha

大灰狼1976 发表于 2017-4-6 13:05

还是你这个快

大灰狼1976

判断空行的话你的效率应该高一点吧，但是逐列隐藏肯定没有一次性隐藏来得快。