Есть массив (1 2 4), нужно получить из него другой массив, путем вычета из следующего числа предыдущее

[Maxby]

Доброго времени суток. Мне нужно посчитать первые разности. Например. Есть массив (1 2 4), нужно получить из него другой массив, путем вычета из следующего числа предыдущее, то есть 4-2=2 и 2-1=1, получаем новый массив (2 1). Вот код, выводит ошибку "Type mismatch" ничего не подчеркивая. Не знаю, где там у меня несовпадение.

Sub m_x()
 
 
Dim Массив_1() As Variant, Массив_2() As Variant
Dim n As Integer, i As Integer, j As Integer, k As Integer
n = 10
ReDim Массив_1(n)
k = 9
ReDim Массив_2(k)
For i = 1 To 10
    Массив_1(i) = Worksheets("Лист1").Range("A1").EntireColumn
Next i
For j = 1 To 10
    Массив_2(j) = Массив_1(j + 1) - Массив_1(j)
Next j
End Sub

Подскажите пожалуйста.

[Казанский]

Worksheets("Лист1").Range("A1").Ent ireColumn - это массив значений ВСЕГО первого столбца. Вы помещаете его в первый элемент массива Массив_1, и ошибки тут нет: Variant может содержать массив. То же самое Вы помещаете в другие элементы массива.
А вот при вычитании возникает ошибка, т.к. в VBA можно вычитать только единичные значения, а не массивы.

Можно написать

Массив_1(i) = Worksheets("Лист1").Cells(i, 1) 'массив считывается из столбца
'или
Массив_1(i) = Worksheets("Лист1").Cells(1, i) 'массив считывается из строки

[Казанский]

А формула листа может работать с диапазоном, и это можно использовать в VBA:

Sub bb()
Dim Массив_2()
Массив_2() = [A2:A10-A1:A9] 'двумерный массив (1 to 9, 1 to 1)
Массив_2() = Application.Transpose([A2:A10-A1:A9]) 'одномерный массив (1 to 9)
End Sub

[Maxby]

Спасибо Вам.