Excel宏删除空行后保存时工作表名称变更问题及优化咨询

1. 工作表名称变更的原因及解决办法 #

工作表名称从Sheet1变成文件名，和你当前的删空行宏没有关系，主要是这两个可能：

• 保存格式问题：如果保存为CSV格式，Excel会自动将唯一的工作表名称改为文件名（因为CSV是单工作表格式，不支持自定义表名）。只要改成保存为.xlsx（无宏）或.xlsm（带宏）格式，就能保留Sheet1的名称。
• 事件宏干扰：检查工作簿中是否存在Workbook_BeforeSave这类事件代码——打开VBA编辑器，双击ThisWorkbook对象，查看是否有在保存时修改工作表名称的代码，如有则删除或注释掉。

2. 更优的空行删除实现方案 #

现有代码从前往后删除空行需要调整计数器，逻辑繁琐且容易出错。推荐改成从下往上删除的逻辑，同时优化最后有效行的判断方式，适配更多场景：

优化后的VBA代码 #

Sub DeleteEmptyRowsAfterLastPopulatedRow()
    Dim lastRow As Long
    Dim ws As Worksheet
    Dim i As Long
    
    ' 直接绑定活动工作表，无需额外存储名称
    Set ws = ActiveSheet
    
    ' 查找最后一行有数据的行（支持任意列有数据的情况）
    On Error Resume Next
    lastRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
        SearchDirection:=xlPrevious, LookIn:=xlValues).Row
    On Error GoTo 0
    
    ' 如果工作表全空，直接退出
    If lastRow = 0 Then Exit Sub
    
    ' 从已用区域最后一行往上遍历删除空行，无需调整计数器
    For i = ws.UsedRange.Rows.Count To lastRow + 1 Step -1
        If WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
            ws.Rows(i).Delete
        End If
    Next i
    
    ' 重置已用区域，避免后续UsedRange仍包含已删除的空行
    ws.UsedRange
End Sub

优化点说明 #

• 更可靠的最后行判断：使用Cells.Find查找最后一个非空单元格，替代仅依赖列A的逻辑，适配数据不在A列的场景。
• 从下往上删除：无需调整循环计数器，逻辑更简洁，不会因为删除行导致后续行索引混乱。
• 全空表处理：添加判断避免工作表全空时出现错误。
• 重置已用区域：删除空行后调用ws.UsedRange，让Excel重新计算已用区域，避免后续操作时UsedRange仍包含已删除的空行。

内容的提问来源于stack exchange，提问作者Joshua Smith