[已解决]怎么隐藏这一列呢？

望天打卦

如表格中那样：
想把带有2012年字符串的列隐藏掉。因为有合并的单元格所以在自己写的代码运行时会选择很多的列。
高手帮忙修改下代码了。
谢谢了

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-6 16:26

1. Sub 批量隐藏列()
   
2. '---------------------------------------------------------------------------------------
   
3. ' Procedure : 批量隐藏列
   
4. ' Author    : hwc2ycy
   
5. ' Date      : 2013/3/6
   
6. ' Purpose   :
   
7. '---------------------------------------------------------------------------------------
   
8. '
   
9. '最后数据列坐材料
   
10.     Dim lCol As Long
    
11.     '循环变量
    
12.     Dim i As Byte
    
13. 
    
14.     '关闭屏幕刷新
    
15.     Application.ScreenUpdating = False
    
16.     lCol = Cells(11, Columns.Count).End(xlToLeft).Column
    
17. 
    
18.     For i = 1 To lCol
    
19.         '检测单元格内是否含有2012
    
20.         If Cells(11, i).Value Like "*2012*" Then
    
21.             Columns(i).Hidden = True
    
22.         End If
    
23.     Next
    
24. 
    
25.     '开启屏幕刷新
    
26.     Application.ScreenUpdating = True
    
27. 
    
28.     MsgBox "隐藏完成"
    
29. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub Macro4()
   
2.     Dim lCol As Long
   
3.     Dim i As Byte
   
4.     Application.ScreenUpdating = False
   
5.    
   
6.     lCol = Cells(11, Columns.Count).End(xlToLeft).Column
   
7.     For i = 1 To lCol
   
8.         If Cells(11, i).Value Like "*2012*" Then
   
9.             Columns(i).Hidden = True
   
10.         End If
    
11.     Next
    
12.    Application.ScreenUpdating = True
    
13.    MsgBox "隐藏完成"
    
14. End Sub

复制代码

望天打卦

有合并单元格的。我原先的代码怎么不行呢？

hwc2ycy

1. Sub 批量隐藏列()
   
2. '---------------------------------------------------------------------------------------
   
3. ' Procedure : 批量隐藏列
   
4. ' Author    : hwc2ycy
   
5. ' Date      : 2013/3/6
   
6. ' Purpose   :
   
7. '---------------------------------------------------------------------------------------
   
8. '
   
9. '最后数据列坐材料
   
10.     Dim lCol As Long
    
11.     '循环变量
    
12.     Dim i As Byte
    
13. 
    
14.     '关闭屏幕刷新
    
15.     Application.ScreenUpdating = False
    
16.     lCol = Cells(11, Columns.Count).End(xlToLeft).Column
    
17. 
    
18.     For i = 1 To lCol
    
19.         '检测单元格内是否含有2012
    
20.         If Cells(11, i).Value Like "*2012*" Then
    
21.             Columns(i).Hidden = True
    
22.         End If
    
23.     Next
    
24. 
    
25.     '开启屏幕刷新
    
26.     Application.ScreenUpdating = True
    
27. 
    
28.     MsgBox "隐藏完成"
    
29. End Sub
    

复制代码

hwc2ycy

那就把合并取消吧。

chin15

Columns(m).EntireColumn.Hidden = True
可以隐藏的，你写成Hidden = false啦

望天打卦

哎 我说呢搞反了。呵呵