VBA中动态范围OFFSET函数使用问题求助

问题分析 #

你需要的是从E2开始、自动适配数据行数的动态单元格范围，先明确你两次尝试的问题：

• 尝试1：Set StatusCol = Sheet1.Range("E2:E10") 是固定范围，数据增减时不会自动调整，完全不符合动态需求。
• 尝试2：直接在VBA里写工作表函数语法OFFSET(Sheet1!$E$2,0,0,COUNTA(Sheet1!E2:E500),1) 是错误的——VBA中调用工作表函数需要通过Application.WorksheetFunction，且不能直接用这种方式赋值给Range对象。

两种正确实现方法 #

方法1：定位E列最后一个非空单元格（推荐）

这种方法能准确跳过中间空值，找到真正的最后一行数据：

Dim StatusCol As Range
' 从E2到E列最后一个非空单元格
Set StatusCol = Sheet1.Range(Sheet1.Cells(2, 5), Sheet1.Cells(Sheet1.Rows.Count, 5).End(xlUp))

解释：Sheet1.Rows.Count,5定位到E列最后一行，End(xlUp)向上找到第一个非空单元格，以此确定动态范围的终点。

方法2：结合COUNTA和Resize实现

如果E2以下没有空值（所有数据连续），可以用这种方式：

Dim StatusCol As Range
' 从E2开始，扩展到COUNTA统计的非空行数
Set StatusCol = Sheet1.Range("E2").Resize(Application.WorksheetFunction.CountA(Sheet1.Range("E2:E500")), 1)

解释：CountA统计E2到E500的非空单元格数量，Resize把E2单元格扩展对应行数，形成动态范围。

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