Страницы: 1
RSS
VBA. Протянуть формулу до крайней заполненной ячейки
 
Доброго времени суток, товарищи. Суть: есть несколько столбцов, слева от каждого написана формула, нужно протянуть её до нижней заполненной ячейке в конкретном столбце. Вычитал как сделать это через start-endcol. Проблема заключается в том, что если условный первый столбец имеет 100 строк, а второй 50, то обе формулы протягиваются до 100-й строки, а нужно, чтобы первая тянулась до 100-й, а вторая до 50-й.
Код
Sub test()
Dim Endrow As Long
Const StartRow = 2
StartCol = 1
EndCol = 1
Endrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range(Cells(StartRow, StartCol), Cells(Endrow, EndCol)).FillDown
StartCol = 5
EndCol = 5
Endrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range(Cells(StartRow, StartCol), Cells(Endrow, EndCol)).FillDown
StartCol = 9
EndCol = 9
Endrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range(Cells(StartRow, StartCol), Cells(Endrow, EndCol)).FillDown
End Sub
 
Код
Sub test1()
Range("a2").Resize(Cells(Rows.Count, 2).End(xlUp).Row - 1).FillDown
Range("e2").Resize(Cells(Rows.Count, 6).End(xlUp).Row - 1).FillDown
Range("i2").Resize(Cells(Rows.Count, 10).End(xlUp).Row - 1).FillDown
Range("l2").Resize(Cells(Rows.Count, 14).End(xlUp).Row - 1).FillDown
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
Nordheim, большое спасибо вам!) То что нужно
 
то что нужно)
Страницы: 1
Наверх