[已解决]【求助】隐藏excel中满足要求的行

ts_louis

我需要隐藏表中行汇总数据为0，或者为空的行，详细需求见附件！

谢谢！ 隐藏行.rar (11.61 KB, 下载次数: 4)

2011-8-28 03:47 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

EXCEL-YQ

2011-8-28 15:13

1. Option Explicit
   
2. 
   
3. Sub 隐藏()
   
4. Dim Rng As Range, x As Integer
   
5. '定义Rng变量为单元格类型
   
6. For Each Rng In Range("B5:L22")
   
7. '遍历单元格B5：L22这个区域
   
8.     If Rng = 0 Then
   
9.         x = x + 1
   
10.         '如果该单元格=0或者为空那么变量x在本身上递增1
    
11.         If x = 11 Then
    
12.             Rows(Rng.Row).EntireRow.Hidden = True
    
13.             '如果有单元格等于0那么该单元格所在行的整行隐藏，否则不进行操作。
    
14.         End If
    
15.         If Rng.Column = 12 Then x = 0
    
16.         '如果运行到单元格的列号等于12那么就将变量x重新赋值为0开始。
    
17.     End If
    
18. 
    
19. Next
    
20. End Sub

复制代码

跳转到最佳答案楼层

EXCEL-YQ

1. Sub 隐藏()
   
2. Dim Rng As Range
   
3. '定义Rng变量为单元格类型
   
4. For Each Rng In Range("B5:L22")
   
5. '遍历单元格B5：L22这个区域
   
6.     If Rng = 0 Then Rows(Rng.Row).EntireRow.Hidden = True
   
7. '如果有单元格等于0那么该单元格所在行的整行隐藏，否则不进行操作。
   
8. Next
   
9. End Sub

复制代码

EXCEL-YQ

操作步骤：
Step1：按下组合快捷键<Alt+F11>进入VBE编辑窗口
Step2：依次单击菜单栏上的“插入”菜单--“模块”
Step3：将代码粘贴进代码框中
Step4：在工作表上的按钮上单击鼠标右键--指定宏--选择“隐藏”

注意：该代码是指的在B5:L22这个区域中，只要有任意一个单元格的值为空或者等于0那么该单元格所在的整行将会被隐藏。

ts_louis

回复 EXCEL-YQ 的帖子

刚起床。。。谢谢回复！应该是我需求没有说太清楚，我需要的是区域内整行数据为0，或者为空的才隐藏，不是某个单元格为0就隐藏。

非常感谢大清早的回复！{:091:}

EXCEL-YQ

1. Option Explicit
   
2. 
   
3. Sub 隐藏()
   
4. Dim Rng As Range, x As Integer
   
5. '定义Rng变量为单元格类型
   
6. For Each Rng In Range("B5:L22")
   
7. '遍历单元格B5：L22这个区域
   
8.     If Rng = 0 Then
   
9.         x = x + 1
   
10.         '如果该单元格=0或者为空那么变量x在本身上递增1
    
11.         If x = 11 Then
    
12.             Rows(Rng.Row).EntireRow.Hidden = True
    
13.             '如果有单元格等于0那么该单元格所在行的整行隐藏，否则不进行操作。
    
14.         End If
    
15.         If Rng.Column = 12 Then x = 0
    
16.         '如果运行到单元格的列号等于12那么就将变量x重新赋值为0开始。
    
17.     End If
    
18. 
    
19. Next
    
20. End Sub

复制代码

ts_louis

回复 EXCEL-YQ 的帖子

谢谢了！
大概思路我找到了，3Q！