excel中删除单元格数据为0的行及它的下一行怎么搞!

发布网友发布时间：2022-04-29 21:54

共1个回答

热心网友时间：2023-05-19 00:30

Sub deleterows()

Dim k&

On Error Resume Next

Application.ScreenUpdating = False

For k = 16 To 2 Step -1

If Cells(k, 1) = 0 Then 'A列为0的

Rows("" & k & ":" & k + 1 & "").Delete Shift:=xlUp '0和下一行，都删除行

End If

Next

Application.ScreenUpdating = True

End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com