Excel VBA UDF返回Range时出现'Overflow'错误求助

错误原因 #

你遇到的Overflow错误，是因为VBA默认用Integer类型作为数组下标，而Integer的最大值是32767。你的目标区域有4925行×59列=290575个单元格，远超Integer的上限，直接把Range赋值给Variant数组时就会触发溢出。

解决方案 #

最直接的修复方式是修改UDF，让它直接返回Variant数组（而非Range），这样能自动使用Long类型下标支持大区域：

Function Get_Data_Range(sWorksheetName As String, sDataRange As String, iResizeOffset As Long) As Variant
    Dim rngData As Range
    Set rngData = Sheets(sWorksheetName).Range(sDataRange).CurrentRegion
    Set rngData = rngData.Offset(iResizeOffset, 0).Resize(rngData.Rows.Count - iResizeOffset, rngData.Columns.Count)
    
    ' 处理单行列的情况，确保返回统一的二维数组
    If rngData.Rows.Count = 1 Or rngData.Columns.Count = 1 Then
        Get_Data_Range = Application.Transpose(Application.Transpose(rngData.Value))
    Else
        Get_Data_Range = rngData.Value
    End If
End Function

调用代码不需要改动，直接赋值即可：

Dim vTableArray As Variant
vTableArray = Get_Data_Range("Invoices", "A11", 2)

备选方案（不推荐大区域） #

如果必须保留返回Range的逻辑，需要手动创建Long下标的数组并逐个填充：

Dim vTableArray() As Variant
Dim rngSource As Range
Dim i As Long, j As Long

Set rngSource = Get_Data_Range("Invoices", "A11", 2)
ReDim vTableArray(1 To rngSource.Rows.Count, 1 To rngSource.Columns.Count)

For i = 1 To rngSource.Rows.Count
    For j = 1 To rngSource.Columns.Count
        vTableArray(i, j) = rngSource.Cells(i, j).Value
    Next j
Next i

额外验证 #

可以在函数中加入Debug.Print rngData.Address，确认CurrentRegion没有意外选中超大区域（比如整列），避免后续再出现类似问题。

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