
excel
Sub DeleteBlankRows()Dim ws As WorksheetFor Each ws In ThisWorkbook.WorksheetsIf ws.Cells(ws.Rows.Count, 1).Value = "" Thenws.Rows(ws.Rows.Count).DeleteEnd IfNextEnd Sub这段代码会遍历所有工作表,并检查是否有一行是空白的。如果是空白行,则删除该行。接下来,保存并关闭这个VBA脚本。然后,在excel中打开开发者选项卡,在其中找到宏按钮。点击宏按钮,然后选择刚才创建的脚本,并点击运行。这样就成功地批量删除了excel中的空白行。请注意,在执行此操作之前,请务必备份好您重要的数据,以防万一发生错误。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号