Маркер автозаполнения вниз и вправо
В таблицах 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
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
Всем удачи!
