Вывод нескольких значений в VBA

Question

Мне нужно проанализировать 4 значения. Однако эти 4 значения изменяются каждый раз, когда я запускаю код. Мне нужно запустить код 100 раз и вставить 4 значения в разные ячейки. Это то, что я до сих пор придумал:

Sub min() 
Dim i As Integer 

For i = 1 To 5 
    Cells(i, 14).Value = Array(Cells(5, 12).Value, Cells(6, 12).Value, Cells(5, 13).Value, Cells(6, 13).Value) 

Next i 
End Sub 

Каждый раз, когда я меняю, я получаю 4 разных значения.

Answer 1

Вам необходимо изменить размер диапазона в соответствии с размером вашего массива. Не нужно транспонировать массив, он уже в правильной форме.

Sub min() 
    Dim i As Integer 

    For i = 1 To 100 
     Cells(i, 14).Resize(1, 4).Value = Array(Cells(5, 12).Value, Cells(6, 12).Value, Cells(5, 13).Value, Cells(6, 13).Value) 

    Next i 
End Sub