作者:乔山办公网日期:
返回目录:excel表格制作
暂时能想到的办法是用筛选。估计应该有更好的办法,希望高人看看。
好像你的结果是0重新录制如e799bee5baa6e79fa5e98193e58685e5aeb9337下。
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
Sub a()
Dim rg As Range
Dim n As Integer
Application.ScreenUpdating = False
n = 1
For Each rg In Application.Intersect(ActiveSheet.UsedRange, Columns("I"))
If rg.Value = "N" Then rg.Select
With Selection
.EntireRow.Hidden = True
End With
Next rg
Application.ScreenUpdating = True
End Sub
如果你要隐藏的“0”所在单元copy格是一个由公式计算出来的值的话百,可以使用度IF来隐藏,
比如C1内容“=a1+b1”如果A1,问B1没有输入内容,C1就会显示“0”
可以改公答式为=if(a1+b1=0,"",a1+b1)
这样就会自动隐藏0了,