VBA运行时错误1004求助：Offset语句报错（附代码，新手）

核心错误原因 #

• 列偏移出界：Selection.Offset(0, -2)会将当前选中单元格向左偏移2列，若选中单元格位于第1列或第2列，会超出工作表列范围（最小列号为1），直接触发运行时错误。
• 拼写错误：WorkshetFunction应为WorksheetFunction，少写一个字母e会导致“未定义函数”错误。
• 无效冗余代码：Exit For后的ActiveCell.Offset(j, 0).Select永远不会执行，因为Exit For会直接跳出循环。
• 循环逻辑混乱：在For循环内修改循环上限s，会导致实际循环次数远少于预期的301次。
• 错误值判断失效：若单元格是公式返回的#N/A错误值，D = "N/A"无法匹配，需用IsError()或CVErr(xlErrNA)判断；若为手动输入的字符串"N/A"，当前判断有效，但需明确场景。
• 依赖选择操作不稳定：依赖Selection和ActiveCell的代码易因用户误操作出错，建议直接用单元格对象引用。

修正后的代码 #

Sub Ret_Calc()
    Dim D As Variant, W As Variant
    Dim LnReturn() As Double
    Dim errorcount As Integer, j As Integer
    Dim startCell As Range
    Const totalRows As Integer = 301 ' 用常量固定循环次数，避免逻辑混乱
    
    ' 固定起始单元格，可替换为具体引用如Sheet1.Range("D2")
    Set startCell = ActiveCell
    ReDim LnReturn(1 To totalRows)
    
    For j = 1 To totalRows
        ' 先判断列号是否足够偏移，避免出界
        If startCell.Offset(j - 1, 0).Column > 2 Then
            D = startCell.Offset(j - 1, -2).Value
            W = startCell.Offset(j, -2).Value ' 对应原代码的Offset(1,-2)逻辑
            
            ' 覆盖错误值与字符串"N/A"两种情况
            If IsError(D) Or IsError(W) Or D = "N/A" Or W = "N/A" Then
                startCell.Offset(j - 1, 0).Value = ""
                errorcount = errorcount + 1
                ' 若需遇到第一个错误就终止循环，取消下面注释
                ' Exit For
            Else
                ' 避免W为0导致Ln函数报错
                If W <> 0 Then
                    startCell.Offset(j - 1, 0).Value = WorksheetFunction.Ln(W / totalRows)
                    LnReturn(j) = startCell.Offset(j - 1, 0).Value
                Else
                    startCell.Offset(j - 1, 0).Value = ""
                    errorcount = errorcount + 1
                End If
            End If
        Else
            ' 列号不足，标记错误
            startCell.Offset(j - 1, 0).Value = ""
            errorcount = errorcount + 1
        End If
    Next j
End Sub

关键优化说明 #

• 用startCell固定起始位置，避免依赖Selection操作，提升代码稳定性。
• 增加列号判断，彻底解决偏移出界问题。
• 补充W=0的判断，防止对数函数计算错误。
• 统一错误值判断逻辑，覆盖公式错误与手动输入字符串两种场景。

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