Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос копирования формул, аналог двойного клика в нижний правый угол ячейки
 
#1
25.03.2019 19:50:39
Здравствуйте!
Помогите пожалуйста автоматизировать небольшой процесс.
У меня есть таблица в  которой я прописываю в ячейках и Exel умеет заполнять нижестоящие ячейки формулами, принцип всем известен когда выделяешь ячейку с исходной формулой  и двойным кликом по нижнему правому углу протягиваешь ее вниз.

Подскажите можно прописать такой макрос которым бы мог проделывать эту операцию
Получается я выделю ячеку/ячейку или несколько ячеей с формулами (условие что они будут рядом , как в примере 1 и 2)
И запускаю макрсос котрый  растягивает формулы вниз автоматически (с учетом того что количество строк/и выделенных ячеек может меняться )
Код
Sub Fill_Blanks()
   For Each cell In Selection
       If IsEmpty(cell) Then cell.Value = cell.Offset(-1, 0).Value
   Next cell
End Sub

Нашел такой пример очень удобный но он не копирует формулы а копирует значение (
Изменено: Marat_Mamedov - 25.03.2019 21:48:41
 
 
 
#2
25.03.2019 21:14:58
Как формулы записываются в ячейки (вручную или кодом/макросом) ?
Какие действия или события должны запустить код макроса копирующего формулы в ячейках ?

Вы можете использовать тоже например: "AutoFill", "FillDown", DataSeries", и т.д.
 
 
 
#3
26.03.2019 00:57:13
Marat_Mamedov,
Код
Sub Макрос1()
  With Selection
    .AutoFill .Resize(Cells(Rows.Count, .Column - 1).End(xlUp).Row - .Row + 1)
  End With
End Sub
 
 
 
#4
26.03.2019 09:56:31
Спасибо большое! Макрос1 то что нужно !
 
 
 
Страницы: 1
Наверх