如何用VBA代码删除不为0的行？

作者：绿色风分类：时间：2022-08-17 浏览：61

楼主悟空师弟	Q：如何删除P列不为0的行？（删除前提示将删除哪些行。） A：代码如下： Private Sub CommandButton1_Click() Dim x As Integer Dim y As Integer Dim z As String Dim s As String y = 3 For x = 1 To [P65536].End(3).Row If Range("P" & y) <> 0 Then If Application.WorksheetFunction.Sum(Range("P" & y + 1 & ":P" & [P65536].End(3).Row + 1)) > 0 _ And y < [P65536].End(3).Row Then z = z & y & ":" & y & "," s = s & y & "," Else z = z & y & ":" & y s = s & y End If End If y = y + 1 Next x If z = "" Then Exit Sub End If MsgBox "将删除以下行：" & s Range(z).Delete xlUp
2楼 kevinchengcw	不错的资料
3楼至繁归于至简

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表