
excel
VBASub 删除乘积为0的不同行()Dim ws As WorksheetSet ws = ActiveSheetFor Each c In ws.CellsIf IsEmpty(c.Value) And IsEmpty(c.Next) And IsEmpty(c Previous) And Not c.hasFormula Thenws.Rows(c.Row).DeleteEnd IfNextEnd Sub以上代码会循环遍历所有单元格,如果某一行没有内容且之前和之后都没有内容,并且该行也没有公式,则删除该行。最后运行该代码即可完成批量删除。注意:此代码适用于所有工作表,请确保你想要删除的行存在于当前工作表上。同时也需要注意,在运行VBA之前需要将开发者选项卡显示出来。希望以上内容对您有所帮助。如果还有其他问题,请随时向我提问。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号