«Невозможно присвоить массив» компилировать ошибки

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