Ответы на вопрос:
Sub ex() dim y() as integer, x() as integer dim i as integer, n as integer range(cells(1, 2), cells(100, i = 1 do while len(cells(i, 1).value) < > 0 i = i + 1 loop n = i - 1 redim y(1 to n), x(1 to n) for i = 1 to n y(i) = cells(i, 1).value x(i) = y(i) + i cells(i, 2).value = x(i) next i end sub предполагается, что данные располагаются в колонке а, начиная с ячейки а1 в колонку b будет выведен результирующий массив. признак конца считывания - пустая ячейка в колонке а
Популярно: Информатика
-
sema142229.05.2022 08:42
-
nadialihas200508.07.2021 18:23
-
DeM1234509.07.2020 22:08
-
оля203602.12.2021 05:00
-
BerlIS08.03.2022 14:33
-
juliabatrukova29.10.2021 12:26
-
дарья3ви17.10.2020 00:50
-
kaluznavikusa906.12.2021 20:05
-
nastyr1710.11.2022 09:41
-
igvolume1130.01.2021 19:27