Доброго времени суток, товарищи. Суть: есть несколько столбцов, слева от каждого написана формула, нужно протянуть её до нижней заполненной ячейке в конкретном столбце. Вычитал как сделать это через 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
|