Excel VBA需求：删除仅含表头的单行并按逻辑调整行结构

原代码存在的问题 #

• 未绑定目标工作表，依赖当前活动表容易引发错误
• 向上遍历的For循环未设置Step -1，循环逻辑完全混乱
• 滥用Selection和ActiveCell，依赖单元格选中状态导致代码不稳定
• i = ActiveCell.Select是错误赋值，Select方法无返回值，无法更新循环变量
• 缺少添加两个空白行的逻辑
• 未实现最终删除行1和行13的要求
• IsNumeric判断未排除空单元格，可能出现误判

修正后的代码 #

Sub DeleteAndFormatTable()
    Dim wshh As Worksheet
    Dim currentRow As Long
    Dim lastRow As Long
    
    ' 绑定目标工作表，避免依赖活动表
    Set wshh = ThisWorkbook.Worksheets("Nenuco")
    With wshh
        ' 获取E列最后一个非空单元格的行号
        lastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
        currentRow = lastRow
        
        ' 从E列最后一行向上遍历至第1行
        Do While currentRow >= 1
            ' 检查E列单元格非空且不是数字
            If .Cells(currentRow, "E").Value <> "" And Not IsNumeric(.Cells(currentRow, "E").Value) Then
                ' 删除当前行
                .Rows(currentRow).EntireRow.Delete
                ' 跳至上方首个非空单元格，更新当前行号
                currentRow = .Cells(currentRow - 1, "E").End(xlUp).Row
            Else
                ' 连续执行两次xlUp定位到上方表格
                currentRow = .Cells(currentRow, "E").End(xlUp).Row
                currentRow = .Cells(currentRow, "E").End(xlUp).Row
            End If
        Loop
        
        ' 按要求删除行13和行1（先删下行避免行号偏移）
        If .Rows.Count >= 13 Then .Rows(13).EntireRow.Delete
        .Rows(1).EntireRow.Delete
        
        ' 为保留的表格添加两个空白行（在顶部插入）
        .Rows("1:2").Insert Shift:=xlDown
    End With
End Sub

关键修改说明 #

1. 工作表绑定：用ThisWorkbook.Worksheets("Nenuco")明确指定操作的工作表，避免活动表切换导致的错误
2. 循环逻辑优化：改用Do While循环处理行号动态变化，比For循环更适配删除行后的行号偏移问题
3. 移除选中依赖：全程通过单元格对象直接定位行号，彻底摆脱Selection和ActiveCell的不稳定因素
4. 判断逻辑完善：先检查单元格非空再判断是否为数字，避免空单元格被误判为非数字
5. 删除行顺序：先删除行13再删除行1，防止删除行1后行13的行号变为12，导致漏删
6. 空白行添加：通过Rows("1:2").Insert在保留表格的顶部插入两个空白行，符合需求

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