Excel VBA中Application.Index失效？动态行边界问题求助

原因 #

[row(FirstEntryIndex:LastEntryIndex)]是Excel单元格引用的简写语法，仅支持硬编码的数字行号，无法识别VBA变量。当你使用变量时，这个语法会把FirstEntryIndex和LastEntryIndex当作字符串字面量处理，无法解析成实际的行号范围，导致Application.Index无法正确获取目标行数据。

解决方法 #

方法1：用Evaluate动态拼接行范围字符串 #

通过字符串拼接把变量值嵌入行范围表达式，再用Evaluate解析成行号数组：

HourReport = Application.Index(HourReportBodyTable, Evaluate("row(" & FirstEntryIndex & ":" & LastEntryIndex & ")"), Array(1, 2, 3))

方法2：手动构建行号数组 #

如果需要更灵活的行号控制，可以手动生成包含目标行号的数组：

Dim rowNums() As Long
Dim i As Integer
ReDim rowNums(1 To LastEntryIndex - FirstEntryIndex + 1)

For i = 1 To UBound(rowNums)
    rowNums(i) = FirstEntryIndex + i - 1
Next i

HourReport = Application.Index(HourReportBodyTable, rowNums, Array(1, 2, 3))

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