根据你的要求,用VBA代码可以实现在第1-5行、第1-5列区域内,如果有空白单元格,那么将空单元格坐在的行隐藏。
Sub myhide()
For i = 1 To 5
If Application.WorksheetFunction.Product(Range(Cells(i, 1), Cells(i, 5))) = 0 Then
Rows(i).Hidden = True
ElseIf Application.WorksheetFunction.Product(Range(Cells(i, 1), Cells(i, 5))) > 0 Then
Rows(i).Hidden = False
End If
Next
End Sub
如果需要的话可以调整区域,也可以把代码修改一下就可以实现空白单元格所在的列隐藏。