如何修改VBA代码实现GoalSeek自动遍历最后有效数据行？

嘿，我来帮你搞定这个自动适配数据行的需求！下面是修改后的VBA代码，它会自动定位工作表里的最后一行有效数据，从第7行开始批量对每一行应用GoalSeek，以后数据扩展到第60行甚至更多，都不用手动改代码了：

Sub AutoGoalSeek()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要操作的工作表（换成你实际的工作表名称，比如"财务数据"）
    Set ws = ThisWorkbook.Worksheets("你的工作表名称")
    
    ' 自动获取最后一行有效数据——这里以M列为判断依据，若E列是必填输入项，可改成"E"
    lastRow = ws.Cells(ws.Rows.Count, "M").End(xlUp).Row
    
    ' 从第7行循环到最后一行，逐行执行GoalSeek
    For i = 7 To lastRow
        ' 跳过空行或无计算式的行，避免报错
        If Not IsEmpty(ws.Cells(i, "M")) And ws.Cells(i, "M").HasFormula Then
            ' 核心逻辑：将M列目标设为0.3，调整对应E列的数值
            ws.Cells(i, "M").GoalSeek Goal:=0.3, ChangingCell:=ws.Cells(i, "E")
        End If
    Next i
    
    MsgBox "批量GoalSeek处理完成！", vbInformation
End Sub

关键细节说明 #

• 自动识别最后一行：ws.Cells(ws.Rows.Count, "M").End(xlUp).Row 这行代码会从M列的最底部往上扫描，直到找到第一个非空单元格，完美适配数据行的动态扩展。如果你的有效数据更适合用E列判断（比如E列是必须填写的交易项），只要把代码里的"M"改成"E"就行。
• 容错性处理：加了空行和公式检查，避免对无效行执行GoalSeek导致程序报错。
• 工作表指定：建议明确指定工作表名称，防止切换到其他工作表时执行错误操作，记得替换代码里的"你的工作表名称"。

可选优化：错误捕获 #

如果某些行因计算逻辑限制无法找到符合目标的E列值，默认会弹出错误提示中断流程。你可以加上错误捕获，让程序继续处理其他行并提示异常：

Sub AutoGoalSeekWithErrorHandling()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("你的工作表名称")
    lastRow = ws.Cells(ws.Rows.Count, "M").End(xlUp).Row
    
    For i = 7 To lastRow
        If Not IsEmpty(ws.Cells(i, "M")) And ws.Cells(i, "M").HasFormula Then
            On Error Resume Next
            ws.Cells(i, "M").GoalSeek Goal:=0.3, ChangingCell:=ws.Cells(i, "E")
            ' 如果GoalSeek失败，弹出提示
            If Err.Number <> 0 Then
                MsgBox "第" & i & "行处理失败：" & Err.Description, vbExclamation
                Err.Clear
            End If
            On Error GoTo 0
        End If
    Next i
    
    MsgBox "批量处理完成！部分行可能存在异常，请查看提示。", vbInformation
End Sub

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