如何通过VBA基于某工作表A列最后单元格引用删除同工作簿另一工作表下方行？

以下是完成需求的完整VBA代码，在你现有代码基础上补充了实际删除行的逻辑，并优化了代码稳定性：

Sub DeleteRowsBasedOnLastRow()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lRow As Long
    Dim deleteStartRow As Long
    
    ' 替换为你用来获取A列最后非空行的源工作表名称
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    ' 目标工作表（需删除行的表）
    Set targetSheet = ThisWorkbook.Worksheets("EIB (w formula)")
    
    ' 获取源工作表A列最后一个非空单元格的行号
    lRow = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row
    
    ' 计算目标工作表中开始删除的行号（源行号+5，匹配表头差异）
    deleteStartRow = lRow + 5
    
    ' 验证是否存在可删除的行，避免执行无效操作
    If deleteStartRow <= targetSheet.Rows.Count Then
        ' 删除从起始行到工作表末尾的所有行
        targetSheet.Rows(deleteStartRow & ":" & targetSheet.Rows.Count).Delete
        MsgBox "操作完成：已删除目标工作表第" & deleteStartRow & "行及以下所有行"
    Else
        MsgBox "无需删除：目标工作表中没有符合条件的行"
    End If
End Sub

关键优化与说明 #

• 避免依赖Select：直接通过Worksheets对象引用工作表，无需手动切换激活表，提升代码稳定性和执行效率
• 明确工作表定位：通过Set分别指定源（获取行号）和目标（删除行）工作表，避免因当前激活表变化导致的错误
• 边界校验：增加If判断，防止当计算出的起始行号超过工作表最大行数时执行无效删除操作
• 直观反馈：将原有的提示替换为操作结果通知，明确告知用户执行状态

替换注意事项 #

• 请将代码中的"源工作表名称"替换为实际用来获取A列最后非空行的工作表名称
• 若目标工作表名称变更，同步修改"EIB (w formula)"为新名称

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