Всем доброго дня!
Excel 2007
Есть необходимость программно скопировать формулу из верхней ячейки в следующую пустую одного и того же столбца.
Событие происходит не в модуле, а на листе (Private Sub Worksheet_Change(ByVal Target As Range))
Что делаю:
1. Объявляю переменные
Dim a
Dim b
2. Нахожу последнюю пустую строку
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
3. Выбираю со смещением нужную мне ячейку, где уже есть формула.
Cells(LastRow - 0, 6).Select
4. Загоняю формулу в переменную а
a = Cells(LastRow - 0, 6).Formula
Если посмотреть "а", то моя формула там сохранена в виде строки типа "=бла бла бла"
5. Выбираю следующую вниз пустую ячейку, чтоб скопировать формулу из переменной "а"
ActiveCell.Offset(1, 0).Select
И тут загвоздка.
Метод copy paste не работает, ошибка Object required
Назначение переменной "а" в качестве as Range почему-то не работает или я туплю (начал хорошо отмечать праздник...)
Вопрос: как скопировать формулу?
Excel 2007
Есть необходимость программно скопировать формулу из верхней ячейки в следующую пустую одного и того же столбца.
Событие происходит не в модуле, а на листе (Private Sub Worksheet_Change(ByVal Target As Range))
Что делаю:
1. Объявляю переменные
Dim a
Dim b
2. Нахожу последнюю пустую строку
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
3. Выбираю со смещением нужную мне ячейку, где уже есть формула.
Cells(LastRow - 0, 6).Select
4. Загоняю формулу в переменную а
a = Cells(LastRow - 0, 6).Formula
Если посмотреть "а", то моя формула там сохранена в виде строки типа "=бла бла бла"
5. Выбираю следующую вниз пустую ячейку, чтоб скопировать формулу из переменной "а"
ActiveCell.Offset(1, 0).Select
И тут загвоздка.
Метод copy paste не работает, ошибка Object required
Назначение переменной "а" в качестве as Range почему-то не работает или я туплю (начал хорошо отмечать праздник...)
Вопрос: как скопировать формулу?