В аргументах функции - диапазон. Функция должна переносить значения из ячеек в ячейки ниже в указанном диапазоне.
Написал такую, но что то не работает (выделяет переменную Num). Файл-пример приложил. Поправьте пожалуйста.
Написал такую, но что то не работает (выделяет переменную Num). Файл-пример приложил. Поправьте пожалуйста.
Код |
---|
Function Stats(Rng As Range) Dim CellCount, Num As Integer Dim Cl(Num) As Object Cl = Activesheet.Rng.Cells CellCount = Rng.Cells.Count For Num = CellCount To 1 Cl(Num).Value = Cl(Num - 1).Value Next Num End Function |