接着上周的问题，根据设定条件隐藏列，又有新的错误（修改）求各位大神帮我检查错误~

bavinfeather

还是有问题。。正常一个透视表的时候 代码运行正常
透视表的位置变了之后，代码就不能用拉。

我的理解是 For nCol = 2 To i 如果把i 修改成50 那么就不用定义 i 最后一列
直接查找2到50列的所有值，
但是不管是i 还是50 都是只查找到J列。。这是啥原因喃
请下载这个更新后的附件
test_hide.rar (27.84 KB, 下载次数: 0)

2019-3-18 11:13 上传

点击文件名下载附件

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(6, Columns.Count).End(1).Column
   
8. y = Cells(Rows.Count, 8).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) = "Sum of FF1" Then
    
14.             If InStr(Range(Cells(7, nCol), Cells(y, nCol)).NumberFormatLocal, "[        DISCUZ_CODE_0        ]quot;) Then
    
15.                     Range(Columns(nCol), Columns(nCol)).Select
    
16.                     Selection.Columns.Group
    
17.                 Exit For
    
18. 
    
19.                   
    
20.             End If
    
21.             
    
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
    
29. 
    

复制代码

bavinfeather

修改了内容和附件。。刚刚的附件忘记定义了Y。。。

bavinfeather

顶~求助~~~~

bavinfeather

。。。自己解决了 把Exit For 删了就好了