作者:乔山办公网日期:
返回目录:excel表格制作
需要用VBA
按alt+F11,打开VBA编辑器,右键左侧工程窗口zd,插入一个模块
在模块里粘贴以下代码并保存
Sub 删除总计为0行()
Dim end_row As Long
end_row = Cells(Rows.Count, "D").End(3).Row
For i = end_row To 2 Step -1
If Cells(i, "D").Value = 0 Then Rows(i).Delete
Next i
End Sub
在文件->Excel选项->快速访问工具栏添加开发工具选回项卡里的“插入控件”
利用插答入控件插入一个按钮
在弹出的指定宏窗口中指定刚才粘贴的宏,点击确定
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row > 2 Then
i = Target.Row
If Target = 0 Then Rows(i & ":" & i).Delete Shift:=xlUp
End If
End Sub
删除copy行的代码:
range("1:1").delete
删除行时,从顶上删除是不百行的(删除后,总行号上移了呢),只能从底下删度除。所以全代码是:
sub DelRow()
for i=7531 to 1 step -1 '从最后一行开知始往道上判断
if range("E" & i)=0 then range(i & ":" & i).delete ‘如果等于0就删除
next
end sub
ALT+F11,输入百如下度代码问:答
Sub mydel()
Dim i As Long
For i = Cells(Rows.Count, 1).End(3).Row To 3 Step -1
If Range("d" & i) = 0 Then Rows(i).Delete
Next i
End Sub
运行版即可权