iilfat,добрый вечер, только сейчас прочитал ваше обсуждение,предлагаю свой вариант макроса ilifat, который работает во всех случаях ,в то время как в целом интересный макрос от SLAVICK ilifat3 заполняет не весь диапазон(одна последняя ячейка не заполняется) и,а исправленный мной макрос от SLAVICK ilifat2 заполняет весь диапазон,но работает только,если имеется последняя заполненная ячейка в столбце D,а в случае, когда последняя заполненная ячейка только в столбце E -исправленный макрос от SLAVICK ilifat2 и ilafat 3 не работают.: перед работой любого из трех макросов надо выделить диапазон D11:E11
[vba]
Код
Sub ilifat() Dim i& i = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1 Selection.AutoFill Destination:=Range("D11:E" & i), Type:=xlFillDefault End Sub
[/vba]
[vba]
Код
Sub ilifat2() Dim N& N = Cells(Rows.Count, Selection.Column).End(xlUp).Row Selection.AutoFill Destination:=Selection.Resize(N - Selection.Row + 1), Type:=xlFillDefault End Sub
[/vba]
[vba]
Код
Sub ilifat3() N = Cells(Rows.Count, Selection.Column).End(xlUp).Row Selection.AutoFill Destination:=Selection.Resize(N - Selection.Row), Type:=xlFillDefault End Sub
[/vba]
iilfat,добрый вечер, только сейчас прочитал ваше обсуждение,предлагаю свой вариант макроса ilifat, который работает во всех случаях ,в то время как в целом интересный макрос от SLAVICK ilifat3 заполняет не весь диапазон(одна последняя ячейка не заполняется) и,а исправленный мной макрос от SLAVICK ilifat2 заполняет весь диапазон,но работает только,если имеется последняя заполненная ячейка в столбце D,а в случае, когда последняя заполненная ячейка только в столбце E -исправленный макрос от SLAVICK ilifat2 и ilafat 3 не работают.: перед работой любого из трех макросов надо выделить диапазон D11:E11
[vba]
Код
Sub ilifat() Dim i& i = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1 Selection.AutoFill Destination:=Range("D11:E" & i), Type:=xlFillDefault End Sub
[/vba]
[vba]
Код
Sub ilifat2() Dim N& N = Cells(Rows.Count, Selection.Column).End(xlUp).Row Selection.AutoFill Destination:=Selection.Resize(N - Selection.Row + 1), Type:=xlFillDefault End Sub
[/vba]
[vba]
Код
Sub ilifat3() N = Cells(Rows.Count, Selection.Column).End(xlUp).Row Selection.AutoFill Destination:=Selection.Resize(N - Selection.Row), Type:=xlFillDefault End Sub