Невозможно назначить большой массив одной ячейке в Excel VBA.Возникают проблемы, когда я открываю Excel

Question

У меня есть массив, который содержит приблизительно 1403 значения, и я хочу отобразить его в раскрывающемся списке одной ячейки в VBA.Все работает с этим кодом, он присваивает его соответствующей ячейке, а значения заполняют ячейку.Но когда я пытаюсь снова открыть Excel.Я получаю сообщение об ошибке, в котором говорится, что часть содержимого Excel удалена. Вы хотите, чтобы мы извлекли как можно больше информации, и когда я нажимаю «Да», раскрывающийся список исчезает.Я думаю, что в одной ячейке не может храниться столько значений.

Попытался присоединиться к выводу, как упоминалось в предыдущих предложениях в StackOverflow.Но проблема все еще сохраняется.

For Each Item In oJSON ( JSON object )
    keys(Index) = Item("key")
    Index = Index + 1
Next Item

With Range("E2").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    Operator:=xlBetween, Formula1:=keys
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With