[已解决]利润表(因数据区域行为空或0隐藏所在行)

心灵有约

利润表(因数据区域为空或0隐藏所在行).zip (816.58 KB, 下载次数: 23)

2016-3-28 23:18 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2016-3-29 07:49

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim arr, i&
   
4. arr = Sheet1.UsedRange
   
5. Sheet1.UsedRange.Interior.ColorIndex = xlNone
   
6. For i = 6 To UBound(arr)
   
7.     If arr(i, 3) = 0 Or arr(i, 3) = "" Then
   
8.        Rows(i).Hidden = True
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim arr, w, i&
   
4. arr = Sheet1.UsedRange
   
5. w = Array("税金及附加", "变动收益")
   
6. Sheet1.UsedRange.Interior.ColorIndex = xlNone
   
7. For i = 6 To UBound(arr)
   
8.     If arr(i, 3) = 0 Or arr(i, 3) = "" Then
   
9.         Cells(i, 1).Resize(1, UBound(arr, 2)).Interior.ColorIndex = 6
   
10.     End If
    
11. Next
    
12. End Sub

复制代码

心灵有约

dsmch 发表于 2016-3-29 06:56

好像应该隐藏涂色的行

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim arr, i&
   
4. arr = Sheet1.UsedRange
   
5. Sheet1.UsedRange.Interior.ColorIndex = xlNone
   
6. For i = 6 To UBound(arr)
   
7.     If arr(i, 3) = 0 Or arr(i, 3) = "" Then
   
8.        Rows(i).Hidden = True
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

心灵有约

dsmch 发表于 2016-3-29 07:49

好像还有些问题：不只是判断第3列即c列单元格为零或空，需第3至10列均为零或空时才被隐藏。

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim arr, i&, j%
   
4. arr = Sheet1.UsedRange
   
5. Sheet1.UsedRange.Interior.ColorIndex = xlNone
   
6. For i = 6 To UBound(arr)
   
7.     s = 0
   
8.     For j = 3 To 10
   
9.         If arr(i, j) = 0 Or arr(i, j) = "" Then s = s + 1
   
10.     Next
    
11.     If s = 8 Then Rows(i).Hidden = True
    
12. Next
    
13. End Sub

复制代码

心灵有约

谢谢