根据设定条件隐藏列。。可以出结果。。就是有个问题，丑

bavinfeather

为啥这么丑~

代码如下~大神帮我看看啥问题~
test2 - hide.rar (22.27 KB, 下载次数: 3)

2019-3-15 10:33 上传

点击文件名下载附件

1. Sub Button2_Click()
   
2.   On Error Resume Next
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Dim nRow As Integer, nCol As Integer, nFillCol As Integer
   
6.    
   
7. 
   
8.    
   
9.     i = Cells(4, Columns.Count).End(1).Column '
   
10.     y = Cells(Rows.Count, 1).End(3).Row
    
11. 
    
12.     With Sheet1
    
13.         
    
14.         For nCol = 2 To i
    
15.             If .Cells(6, nCol) = "Sum of FF2" And .Cells(6, nCol + 1) = "Sum of FF1" Then
    
16. 
    
17.                 For nRow = 7 To y
    
18. 
    
19.                     If InStr(Range(Cells(7, nCol), Cells(y, nCol)).NumberFormatLocal, "$") Then
    
20.                     Range(Columns(nCol), Columns(nCol + 1)).Select
    
21.                     Selection.Columns.Group
    
22.                      End If
    
23. 
    
24. 
    
25. 
    
26.                    Next
    
27.                   
    
28.             End If
    
29. 
    
30.         Next
    
31.     End With
    
32.    
    
33. 
    
34.    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    
35.     Application.DisplayAlerts = True
    
36.     Application.ScreenUpdating = True
    
37. End Sub
    
38. 
    

复制代码

蓝桥玄霜

在第21行后面加一句：Exit For

bavinfeather

简化了一下代码，又有新问题 test2 - hide.rar (22.64 KB, 下载次数: 1)

2019-3-15 15:05 上传

点击文件名下载附件

条件是 如果是FF2 或者FF1(因为是举例，实际代码不能用ff*简化） 然后下面的值含$
就折叠但是运行后FF1未折叠。

1. If .Cells(6, nCol) = "Sum of FF2" Or .Cells(6, nCol + 1) = "Sum of FF1" And InStr(Range(Cells(7, nCol), Cells(y, nCol)).NumberFormatLocal, "$") Then

复制代码

完整代码如下。。。

1. Sub Button2_Click()
   
2.   On Error Resume Next
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Dim nRow As Integer, nCol As Integer, nFillCol As Integer
   
6.         
   
7.     i = Cells(4, Columns.Count).End(1).Column
   
8.     y = Cells(Rows.Count, 1).End(3).Row
   
9. 
   
10.     With Sheet1
    
11.         
    
12.         For nCol = 2 To i
    
13.             If .Cells(6, nCol) = "Sum of FF2" Or .Cells(6, nCol + 1) = "Sum of FF1" And InStr(Range(Cells(7, nCol), Cells(y, nCol)).NumberFormatLocal, "$") Then
    
14. 
    
15.                 For nRow = 7 To y
    
16. 
    
17.                     Range(Columns(nCol), Columns(nCol)).Select
    
18.                     Selection.Columns.Group
    
19.                 Exit For
    
20.             
    
21.             Next
    
22.         End If
    
23.         Next
    
24.     End With
    
25.    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    
26.     Application.DisplayAlerts = True
    
27.     Application.ScreenUpdating = True
    
28. End Sub

复制代码