vba - "Can' t 分配给数组”编译错误

Question

我是 VBA 新手，当我执行以下函数时，出现“无法分配给数组”编译错误

Function GetPriorities() As String()

    Dim wksMapping As Worksheet
    Dim LastRowMapping As Long
    Dim cnt As Long
    Dim cntIndex As Long

    cntIndex = 0
    LastRowMapping = Worksheets(MAPPING).Cells(Worksheets(MAPPING).Rows.Count, "A").End(xlUp).Row
ReDim arrHighPriority(LastRowMapping - 2)

    For cnt = 2 To LastRowMapping
      arrHighPriority(cntIndex) = Worksheets(MAPPING).Cells(cnt, 2).Value
      cntIndex = cntIndex + 1
    Next cnt

    GetPriorities = arrHighPriority

End Function

我的要求是调用上面的函数并将函数返回的数组分配给变量。

我调用上述函数的代码是

Dim x() As String    
x = GetPriorities

Answer 1

您需要声明数组，以便它可以匹配返回的类型:

Function GetPriorities() As String()

    Dim wksMapping As Worksheet
    Dim arrHighPriority() As String

    ...

    GetPriorities = arrHighPriority

End Function