Чтобы сохранить массив и записать его на лист Excel с помощью VBA (Visual Basic для приложений), вы можете использовать несколько методов. Вот несколько примеров:

Метод 1: использование цикла

Dim myArray() As Variant
myArray = Array("Apple", "Banana", "Orange")
Dim i As Long
For i = LBound(myArray) To UBound(myArray)
    Sheet1.Cells(i + 1, 1).Value = myArray(i)
Next i

Метод 2: использование функции транспонирования

Dim myArray() As Variant
myArray = Array("Apple", "Banana", "Orange")
Sheet1.Range("A1").Resize(UBound(myArray) + 1, 1).Value = WorksheetFunction.Transpose(myArray)

Метод 3: использование метода PasteSpecial

Dim myArray() As Variant
myArray = Array("Apple", "Banana", "Orange")
Sheet1.Range("A1").Resize(UBound(myArray) + 1, 1).Value = WorksheetFunction.Transpose(myArray)
Sheet1.Range("A1").PasteSpecial Paste:=xlPasteValues, Transpose:=False

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