将溢出范围传递给 VBA 时遇到问题 - 仅出现应用程序定义或对象定义的错误

Question

我在将 Spill 数组传递给 VBA 时遇到问题。该范围由名称“ListCurJobs”和等式定义

=UNIQUE(FILTER(CtrlSht!$B:$B,CtrlSht!$B:$B<>""))

使用“=ListCurJobs”在工作表上的范围按预期返回溢出范围。

我试图使用

Sub ListJobs
Dim listCurJobs() As Variant

n = Worksheets("CtrlSht").Range("listCurJobs").Rows.Count

ReDim listCurJobs(n, 1)

listCurJobs = Worksheets("CtrlSht").Range("listCurJobs")

End Sub

This Works Fine for standard arrays 将其传递到 VBA 中，但对于溢出数组，我收到错误：应用程序定义或对象定义的错误。

编辑：跟进 - 我设法通过更改命名范围 listCurJobs 以使用偏移函数

=OFFSET(CtrlSht!$E$1,0,0,CtrlSht!$D$1)

来解决此问题，其中 CtrlSht! 计算 E 中的所有项目

$D$1 正在通过=COUNTA(E1#)

，并且 E1 具有我试图在命名范围中使用的溢出函数，即

=UNIQUE(FILTER(CtrlSht!$B:$B,CtrlSht!$B:$B<>""))

无论是什么导致了原始错误，这些额外的步骤似乎都可以避免它。

Answer 1

我设法通过更改命名范围 listCurJobs 以使用 Offset 函数来解决此问题：

=OFFSET(CtrlSht!$E$1,0,0,CtrlSht!$D$1)

其中 CtrlSht!$D$1 正在计算 < 中的所有项目code>E via：

=COUNTA(E1#)

并且 E1 具有我试图在指定范围内使用的 spill 函数；即，

=UNIQUE(FILTER(CtrlSht!$B:$B,CtrlSht!$B:$B<>""))

无论导致原始错误的原因是什么，这些附加步骤似乎都可以避免它。