Sub 隐藏()
Dim FenDian$, Col%, I%
FenDian = Sheet2.Range("P7") & "月库存"
With Sheet1
.Cells.EntireRow.Hidden = False
Col = .Range("1:1").Find(what:=FenDian, LookIn:=xlValues, lookat:=xlWhole).Column
For I = 2 To Cells(65536, Col).End(3).Row
If .Cells(I, Col) = 0 Or .Cells(I, Col) = "" Then .Rows(I).EntireRow.Hidden = True
Next
End With
End Sub