VBA执行GoalSeek提示对象变量或With块变量未设置错误排查

触发「对象变量或With块变量未设置」运行时错误的核心原因是VBA中给对象类型变量赋值时，必须使用Set关键字。
你代码里的LeverageRatio是Range（单元格对象）类型，直接写LeverageRatio = Cells(r, c)时，VBA会默认读取Cells(r,c)的默认属性（即单元格的Value值）赋值给变量，不会把单元格对象本身存入LeverageRatio。后续你再调用Range(LeverageRatio).GoalSeek时，传入的是一个数值而非有效的单元格引用，自然会触发对象未定义的错误。

除此之外代码里还有几处不规范/冗余的问题：

• 多余套嵌：如果LeverageRatio正确赋值为Range对象，可以直接调用GoalSeek方法，不需要再用Range()包裹
• 冗余选中：Range("MaxEV").Select是多余操作，GoalSeek方法不需要目标单元格处于选中状态即可执行，这类Select语句反而容易因为工作表激活状态异常触发其他错误
• 变量未声明：行列定位用的r、c变量没有显式声明类型，虽然不会直接触发当前错误，但容易埋下隐式类型转换的隐患

注意：Option Explicit语句需要写在VBA模块的最顶部（所有Sub过程之外），作用是强制所有变量必须显式声明，从源头避免变量拼写错误、类型不匹配等低级问题。

' 模块顶部声明
Option Explicit

Sub MacroTest1()
    ActiveSheet.Calculate
    
    Dim LeverageRatio As Range
    Dim r As Long, c As Long
    
    ' 定位目标求解单元格的行列
    r = Range("LeverageRatioPeriod").Row
    c = WorksheetFunction.Match(Range("MaxAcquisitionYear"), Range("YearRange"), 0)
    
    ' 核心修复：给Range对象赋值必须加Set关键字
    Set LeverageRatio = Cells(r, c)
    
    ' 执行单变量求解，无需提前选中单元格
    LeverageRatio.GoalSeek Goal:=4, ChangingCell:=Range("MaxEV")
End Sub

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