VBA Range.Offset错误1004：动态范围超工作表范围问题求助

问题分析 #

你碰到的1004错误，核心原因很明确：当新建的计划表为空时，.Range("G1024").End(xlUp)会定位到G1单元格（毕竟G列没有任何数据），这时执行.Offset(-6, -6)会试图访问行号1-6=-5、列号7-6=1的位置——行号小于Excel工作表的最小有效行号1，直接越界，自然触发错误。

考虑到生产线计划表位置变动极大、需要大幅向上偏移的需求，我们可以通过边界校验来规避越界问题，同时保留动态定位的灵活性。

修改后的VBA代码 #

Option Explicit
Sub Print_Line_3()

    Dim lastCell As Range
    Dim startRow As Long, startCol As Long
    Dim printRange As Range
   
    Application.ScreenUpdating = False
    With Sheets("Line 3")
        ' 定位G列最后一个非空单元格，空表时会返回G1
        Set lastCell = .Range("G1024").End(xlUp)
        
        ' 计算偏移后的起始行和列，强制确保不小于1（工作表最小行/列）
        startRow = WorksheetFunction.Max(lastCell.Row - 6, 1)
        startCol = WorksheetFunction.Max(lastCell.Column - 6, 1)
        
        ' 生成要打印的目标范围
        Set printRange = .Cells(startRow, startCol).Resize(24, 14)
        printRange.PrintOut
    End With
    Application.ScreenUpdating = True

End Sub

代码逻辑说明 #

• 越界防护：用WorksheetFunction.Max()把计算出的起始行、列锁定在不小于1的范围，哪怕工作表完全为空，也能从A1开始生成打印范围（你可以根据实际需求调整空表时的默认起始位置）。
• 动态适配：不管生产线计划表的位置怎么变动，只要G列有数据，lastCell都会精准定位到最后一行数据，再以此为基准计算偏移位置，完全适配大幅偏移的需求。
• 原逻辑保留：你原本的「从最后非空单元格向上/向左偏移、Resize生成打印范围」的核心逻辑被完整保留，只是新增了越界校验环节。

原代码与注释参考 #

你提供的初始实现代码：

Option Explicit
Sub Print_Line_3()

    Dim lRow As Range
   
Application.ScreenUpdating = False
    With Sheets("Line 3")
        Set lRow = .Range("G1024").End(xlUp).Offset(-6, -6).Resize(24, 14)
        lRow.PrintOut
    End With
Application.ScreenUpdating = True

End Sub

对应的代码注释：

' Starts from an arbitrary point then looks up to the last filled cell in that column.
' Moves from the selected cell up 6 then left 6 spots.
' Creates a selected range from previous cell to create a range to printout from.

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