Помогите написать программу в VBA, буду очень благодарна. Как она должна работать:...

Question

Помогите написать программу в VBA, буду очень благодарна.

Как она должна работать:
Выделяем произвольный горизонтальный вектор (Строка в Exel)
После этого запускаем программу и данный вектор заполняется случайными числами и формируется квадратная матрица,а числа следующих строк в 2 раза больше предыдущих.

---

---

Answer 1

Sub Mydropforu()
    Randomize Timer
    Set r = Selection
    For Each Cell In r
        Cell.Value = 10 * Rnd + 1
    Next
    n = r.Columns.Count
    For i = 2 To n
        For j = 1 To n
            r.Cells(i, j).Value = r.Cells(i - 1, j) * 2
        Next j
    Next i
End Sub

Если нужно целые числа, можно сделать такой фрагмент
 For Each Cell In r
        Cell.Value = Int(10 * Rnd + 1)
Next