将数组变量传递给 Excel 命名范围以进行数据验证列表

Question

这个问题没有令人满意的答案。我很乐意投票 任何包含变通方法的新响应。

如何在不事先将其转储到单元格的情况下将数组变量传递给 Excel 命名范围？我希望在数据验证列表中使用这样的动态命名范围。我不想通过数组变量直接在 VBA 中设置验证列表：

Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=Join(ReturnArr, ",")

因为Formula1参数的长度限制为255 characters。因此，只要Len(Join(ReturnArr, ",")) 不超过 255 个字符，上述代码就可以正常工作。

我试过这个：

Option Explicit

Function ReturnArr() As Variant
    Dim Arr(0 To 2)
    Arr(0) = "Spinosaur"
    Arr(1) = "T-Rex"
    Arr(2) = "Triceratops"

    ReturnArr = Arr
End Function

然后我添加一个指向函数返回数组的命名范围：

到目前为止，一切似乎都很好。我设置了数据验证列表。

我也尝试了以下路径，但没有成功：

• 转置数组：ReturnArr = Application.Transpose(Arr)
• INDEX(ReturnArr(),,1)
• 以=OFFSET(ReturnArr(),0,0,ROWS(ReturnArr()),1)命名的范围
• 我的事件下降到使用一个单元格的低级别，我将公式=OFFSET(ReturnArr(),0,0,ROWS(ReturnArr()),1) 放入A1 单元格并用INDIRECT("$A$1") 引用它
• 我尝试了未记录的秘密 EVALUATE 函数，该函数适用于命名范围，如 case。我尝试EVALUATE 与其他函数的所有组合返回数组。

更多参考：
Fast way to output array into range 为那些愿意为倾销方法做出贡献的人

Answer 1

您可以使用逗号分隔列表（A、B、C）填充没有命名范围的数据验证。然后，您可以将您的 Array 函数代替下面代码中的数组，这将在您指定的单元格上创建您的验证列表。

Public Sub DataValidation()
Dim ws As Worksheet
Dim range1 As Range, rng As Range
'change Sheet1 to suit
Set ws = ThisWorkbook.Worksheets("Sheet1")

Set rng = ws.Range("A1")

Dim Arr(0 To 2)
Arr(0) = "Spinosaur"
Arr(1) = "T-Rex"
Arr(2) = "Triceratops"

With rng.Validation
    .Delete 'delete previous validation
    Dim arrVal As String
    For Each arrItem In Arr()
        arrVal = arrVal & ", " & arrItem
    Next
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=arrVal
End With
End Sub

在这里找到并稍作修改：How to add data validation to a cell using VBA

这并没有使用传统意义上的命名范围，而是使用脚本中的字符串变量代替它。