Как в Excel, используя маркер автозаполнения считать не только вниз, но и вправо, пишем первый макрос

Маркер автозаполнения вниз и вправо

В таблицах Excel очень часто нам требуется скопировать формулу, текстовое или числовое значение, построить логическую последовательность или просто заполнить какой-то диапазон данными. Но что делать, если маркер автозаполнения копирует быстро формулы только вниз? Как быть если нужно «растянуть» их вправо? Как при этом сохранить формат данных и игнорировать разрывы в таблице? Ответ на все вопросы в нашем новом видео!

На всякий случай приведу и текст макроса:
 
Sub SmartFillDown()
Dim rng As Range, n As Long
Set rng = ActiveCell.Offset(0, -1).CurrentRegion
If rng.Cells.Count > 1 Then
n = rng.Cells(1).Row + rng.Rows.Count — ActiveCell.Row
ActiveCell.AutoFill Destination:=ActiveCell.Resize(n, 1), Type:=xlFillValues
End If
End SubSub SmartFillRight()
Dim rng As Range, n As Long
Set rng = ActiveCell.Offset(-1, 0).CurrentRegion
If rng.Cells.Count > 1 Then
n = rng.Cells(1).Column + rng.Columns.Count — ActiveCell.Column
ActiveCell.AutoFill Destination:=ActiveCell.Resize(1, n), Type:=xlFillValues
End If
End Sub
 
Всем удачи!

Post Author: Иван

Добавить комментарий