请求老师帮忙写一段vba，使其能隐藏数值为零的单元格所在行，谢谢！

Dong2116

由于此表每天需要报送，为了只显示当日有收入的项目 需要手工隐藏当日收入为0的行次，烦请老师帮忙写一段代码 实现一键隐藏当日收入为0的项目所在行。万分感谢！

^星^

销售日报表.zip (24.71 KB, 下载次数: 5)

2024-2-29 01:05 上传

点击文件名下载附件

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.29
   
2.     With Sheets("收入明细")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .Range("a5:f" & r)
   
5.     End With
   
6.     ReDim brr(1 To UBound(arr), 1 To 6)
   
7.     For i = 2 To UBound(arr)
   
8.         If arr(i, 3) <> 0 Then
   
9.             m = m + 1
   
10.             For j = 1 To UBound(arr, 2)
    
11.                 brr(m, j) = arr(i, j)
    
12.             Next
    
13.         End If
    
14.     Next
    
15.     With Sheets("报送主管领导")
    
16.         .UsedRange.Offset(3).Clear
    
17.         .[a4].Resize(m, 6) = brr
    
18.         .[a4].Resize(m, 6).Borders.LineStyle = 1
    
19.     End With
    
20.     MsgBox "OK！"
    
21. End Sub
    
22. 
    

复制代码