其实我想了一个办法就是:当某个单元格空值也就是为0时,自动隐藏或删除该行或列,这样就可以打印出来就没有值为空值的行或者列。
你的结果是0,重新录制如下。
隐藏行列: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
输入此项后就可以隐藏有空值的行列
Sub 删除行()
'
Macro1 Macro
Cells.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
Selection.EntireRow.Delete
End Sub
Sub 删除列()
'
Macro2 Macro
Range("A1").Select
Cells.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
Selection.EntireColumn.Delete
End Sub
这个做不到吧?