好像你的结果是0重新录制如下。
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
自动删除需编程处理。
自动隐藏就简单了,c列,数据-筛选-自动筛选,自定义,不等于 0 。